<%
' 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"))%>
<%
rs.movenext
Loop
End With
End If
%>