<% BrowserTitle = oRC.RS("FAQ_LIST") PageHeader = oRC.RS("FAQ_LIST") PageSubHeader = "" dim FAQStatus, QuestionText, Flag dim index, NextEnabled, PrevEnabled dim FAQlistRS, oFAQ, FAQStatusRS dim oAdmin, CategoryID FAQStatus = Request.Form("QuestionStatus") QuestionText = Request.Form("QuestionText") SET oAdmin=Server.CreateObject("CRC_Admin.cAdmin") oAdmin.SetSite SiteName set oFAQ =Server.CreateObject("CRC_FAQ.cFAQ") oFAQ.SetSite SiteName set FAQStatusRS = oAdmin.GetUserTypes("English", "", "FAQS") CategoryID = Request.Form("CategoryID") if CategoryID= "" then CategoryID=0 end if FAQStatus = Request("FAQStatus") QuestionText = Request("QuestionText") if FAQStatus = "" then FAQStatus=0 end if if Index = "" then Index = 0 end if if Request.QueryString("Action")="next" then if Request.Form ("index") <> "" then index = Request.Form ("index") + 1 else index=0 end if end if if Request.QueryString("Action")="previous" then if Request.Form ("index") <> "" then index = Request.Form ("index") - 1 else index=0 end if end if set FAQlistRS=oFAQ.ListFAQ(CStr(Language(Lang)),cstr(QuestionText),cint(CONST_FAQ_Published),Cint(CategoryID),cint(index),NextEnabled,PrevEnabled) %>

<%if FAQlistRS.EOF then %> <%else FAQlistRS.MoveFirst() While not FAQlistRS.EOF CategoryID = Trim(cstr(FAQlistRS("Category_ID"))) %> <% Do While not FAQlistRS.eof if cstr(FAQlistRS("Category_ID")) <> cstr(CategoryID) then Exit DO end if %> <% FAQlistRS.MoveNext() Loop Wend end if %> <%=oRC.RS("End_Of_The_List_Or_No_Records_Were_Found")%>      <%'=FAQlistRS("Category")%>   ')" class="titlear1"> <%Response.Write FAQlistRS("Question") %>

<%if (FAQlistRS.recordcount>0) then %> <%end if%>   <%if PrevEnabled = "Y" then%> <%else%><%end if%>    <%if NextEnabled = "Y" then %> <%else%><%end if%>