<%@ 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 %> <%=Application("CompanyDisplay")%> FAQs Coming soon!
<% If Request.QueryString("urlmessage") <> "" Then %> (<%=Request.QueryString("urlmessage")%>) <% End If %>
<% If CategoryFlag = True Then %> <% Else %> <% End If %>
Category: Coming soon...://<%=Application("SiteUrl")%>/faqs/faq_add_question.asp">Ask a Question
<% If Request("display_status")="submit" then 'ByVal: vCompanyID, vAppID, vType 'Optional: vQTIDNo, vQTypeIDNo If Request("q_type_id_no") = 0 Then 'show all questions Set locADORecords = objRegistration.getQuestion(Application("Company"), Session("FAQID"), "customer") Else Set locADORecords = objRegistration.getQuestion(Application("Company"), Session("FAQID"), "customer",, Request("q_type_id_no")) End If If Err.number > 0 Then %> No Records Found

<% Err.Clear Else If Not locADORecords.EOF Then While Not locADORecords.EOF %> Question:
<%=locADORecords("question")%>
Answer:
<%=locADORecords("reply")%>
<% locADORecords.MoveNext() Wend End If End If Else %>

Select a category from the list above.

<% End If %>
<% Set locADORecords = Nothing Set objRegistration = Nothing %>