<%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] <% Dim today,rsCat,rsStory Sub getCategory(cat) 'Sub to pull out the individual stories for each category set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_hanoun_STRING If rs.ActiveConnection.Errors.Count>0 Then Response.Redirect("../error.htm") Response.End() End If rs.Source = "SELECT QuestionID, Question FROM QuestionAnswer "&_ "WHERE (CategoryID="&cat&") ORDER BY Question" rs.CursorType = 3 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() If rs.BOF AND rs.EOF Then Response.Write "

Future questions to come.

" Else Dim counter Response.Write("
    ") While NOT rs.EOF Response.Write("
  1. "&(rs.Fields.Item("Question").Value)&"
  2. ") rs.MoveNext() Wend Response.Write("
") End If rs.Close() Set rs=Nothing End Sub set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.ActiveConnection = MM_hanoun_STRING If rsCat.ActiveConnection.Errors.Count>0 Then Response.Redirect("../error.htm") End If rsCat.Source = "SELECT * FROM QACategory ORDER BY Category" rsCat.CursorType = 3 rsCat.CursorLocation = 2 rsCat.LockType = 1 rsCat.Open() %> Knowledge Base
Products Training Support About Us Site Map Contact Us

Search the Knowledge Base

<% Dim i i=1 While NOT rsCat.EOF%> <%i=i+1 rsCat.MoveNext Wend%>
<%=UCase(rsCat("Category"))%>
<%call getCategory(rsCat("CategoryID"))%>
<% rsCat.Close() Set rsCat = Nothing %>