<%
OPTION EXPLICIT
Response.Buffer = True
%>
Frequently Asked Questions
| FAQ |
No of Questions |
<%
Dim oFAQConn, nCount
Set oFAQConn = FAQ_GetDatabaseConn()
'Set oFAQConn = Function FAQ_GetAd(nNumber)
Dim oRSFAQ, sURL
Set oRSFAQ = oFAQConn.Execute("select max(faq.fldAuto) as faqid, max(faq.name) as name, count(*) as antal from faq, chapter, question where question.chapter_fldAuto=chapter.fldAuto AND chapter.faq_fldAuto=faq.fldAuto group by faq.fldAuto" )
While Not oRSFAQ.EOF
sURL = "showfaq.asp?fldAuto=" & oRSFAQ("faqid")
%>
| <%=oRSFAQ("name")%> |
<%=oRSFAQ("antal")%> |
<%
oRSFAQ.MoveNext
Wend
%>
|
|
|
|
