<% 'Present the questions...
Dim sTextToShow
Dim sCurrentSubcat
Response.Write "
"
While Not oFAQ.EOF
If sCurrentSubcat <> Trim( oFAQ("chaptername").Value ) Then
'Start a new one...
If sCurrentSubcat <> "" Then
'Avsluta gamla
Response.Write ""
End If
'Response.Write "