<%
Option Explicit
Dim conn
Dim RSFooter
Dim RSCurrentQuestion
Dim RSQuestions
Dim CurrentFAQID
Dim TheAnswer
Dim TheQuestion
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'FAQ')"
set RSFooter = conn.execute("select BriefText from ASPPageText " _
  & "where PageName = 'Footer'")
If IsEmpty(Request.Form("Answer")) Then
  set RSCurrentQuestion = conn.execute("select Min(FAQID) as MinID " _
    & "from ASPFAQ")
  CurrentFAQID = RSCurrentQuestion("MinID")
else
  CurrentFAQID = Request.Form("FAQID")
End If
set RSCurrentQuestion = conn.execute("select Answer, Question from ASPFAQ " _
  & "where FAQID = " & CurrentFAQID)
TheAnswer = RSCurrentQuestion("Answer")
TheQuestion = RSCurrentQuestion("Question")
set RSQuestions = conn.execute("select FAQID, Question from ASPFAQ")
%>
