%@ Language=VBScript %> <% On Error Resume Next Dim locADORecords 'locRecordset Dim objRegistration 'AldaT Registration Object Dim locStatus 'Maintains state from menu Dim ErrorFlag 'Flag if string error occurs Dim ErrorNumber 'Err.number to error.asp Dim ErrorDescription 'Err.description to error.asp Dim ErrorSource 'Err.source to error.asp Dim ErrorPage 'Error source page Dim ErrorUser 'Error source user Dim locQTypeIDNo 'local copy of q_type_id_no form submited form Dim CategoryFlag 'indicates if any categories existe Dim objCommerce 'AldaT commerce object ErrorFlag = False CategoryFlag = True locStatus = Trim(Request.QueryString("status")) locQTypeIDNo = Request("q_type_id_no") If locQTypeIDNo = "" Then locQTypeIDNo = -1 End If 'Populate session app id If Session("FAQID")="" then Set objRegistration = Server.CreateObject("aldatRegistration.Admin") 'ByVal: vCompanyID, vAppID Set locADORecords = objRegistration.getApp(Application("Company"), "FAQs") If Err.number > 0 then 'create error for obj return ErrorNumber = Server.URLEncode("Error Number: " & Err.number) ErrorDescription = Server.URLEncode("Error Description: " & Err.description) ErrorSource = Server.URLEncode("Error Source: " & Err.source) ErrorPage = Server.URLEncode("Error Page: " & Request.ServerVariables("SCRIPT_NAME")) ErrorUser = Server.URLEncode("Error User: " & Session("EmployeeID")) Response.Redirect ("error.asp?errornum=" & ErrorNumber & "&errordes=" &_ ErrorDescription & "&errorsrc=" & ErrorSource &_ "&errorpg=" & ErrorPage & "&errorusr=" & ErrorUser) End If If Not locADORecords.EOF Then Session("FAQID") = locADORecords("appid") End If End If Set objRegistration = Server.CreateObject("aldatRegistration.Questions") Set locADORecords = objRegistration.getCategory(Application("Company"), Session("FAQID")) 'error check when obj is returned If Err.number > 0 then 'clear error for obj return Err.Clear() CategoryFlag = False End If %>