<%
Option Explicit
Dim conn
Dim RSFooter
Dim RSCurrentProblem
Dim RSProblems
Dim CurrentHelpID
Dim PageText
Dim TheProblem
Dim TheSolution
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'Help')"
set RSFooter = conn.execute("select BriefText from ASPPageText " _
  & "where PageName = 'Footer'")
If IsEmpty(Request.Form("Answer")) Then
  set RSCurrentProblem = conn.execute("select Min(HelpID) as MinID " _
    & "from ASPHelp")
  CurrentHelpID = RSCurrentProblem("MinID")
else
  CurrentHelpID = Request.Form("HelpID")
End If
set RSCurrentProblem = conn.execute("select Solution, Problem from ASPHelp " _
  & "where HelpID = " & CurrentHelpID)
TheSolution = RSCurrentProblem("Solution")
TheProblem = RSCurrentProblem("Problem")
set RSProblems = conn.execute("select HelpID, Problem from ASPHelp")
%>
