<% Dim sql, rst, sConn, cnn, arrWork Dim g_Initial,g_ExportExcel,g_WhatsNew,g_CompanyInfo,g_History,g_FAQ Dim g_ClientList,g_Service,g_WorkOrder,g_Staff,g_Education,g_ACCreview Dim g_DeedRestrict,g_Jobs,g_admin,g_ContactUs,g_HelpLinks,g_ClientListNorth,g_ClientListSouth Dim g_PayRequest,g_AboutUs,g_Forms, g_OPayRequest, sErr,g_Street,g_LWconstRequest Dim g_LWsignapp, g_LWfenceapp Dim vbCrLf Dim action vbCrLf = chr(13) & chr(10) ' Set cnn = OpenConn ' Set rst = Server.CreateObject("ADODB.Recordset") 'HandelActions 'DisplayContent ' Set rst = Nothing ' Set cnn = Nothing Sub CommonAction() HandelActions End Sub Sub CommonHead() %> <% If Request("action")="opayment" Then MyIntNumOnly() End If End Sub Sub CommonNav() DisplayUserMenu End Sub Sub CommonContent() DisplayContent End Sub %>