<% ' Fetch records sSQL = "SELECT Distinct Category FROM FAQ WHERE LangID=" & iDefLangID Set rs = conDB.Execute(sSQL) If IsRSEmpty(rs) Then %>

<%=smNoQuestions%>

<% Else With rs Do While not .EOF %> <%=HighLight(.Fields("Category"))%> <% PaintQuestions .Fields("Category") .movenext Loop End With End If Set rs = Nothing Sub PaintQuestions (Category) Dim rst Dim strSQL strSQL = "SELECT ID, Question FROM FAQ WHERE Category = " & Chr(34) & Category & Chr(34) & " AND LangID=" & iDefLangID & " ORDER BY OrderShown" Set rst = conDB.Execute(strSQL) If IsRSEmpty(rst) Then %>
<%=smNoQuestions%>
<% Else Response.Write "
" With rst Do While not .EOF %>
" target="_self"> <%=HighLight(.Fields("Question"))%>
<% .movenext Loop Response.Write "
" End With End If Set rst = Nothing End Sub Response.Write "
" Response.Write "
" Response.Write "
" sSQL = "SELECT ID, Question, Answer FROM FAQ WHERE LangID=" & iDefLangID & " ORDER BY OrderShown" Set rs = conDB.Execute(sSQL) If IsRSEmpty(rs) Then %>
<%=smNoQuestions%>
<% Else Response.Write "
" With rs Do While not .EOF %> ">
<%=HighLight(.Fields("Question"))%>

<%=HighLight(.Fields("Answer"))%>

<%=smBackFaqTop%>
<% .movenext Loop Response.Write "
" End With End If Set rs = Nothing %>