|
|
 | Questions Posed to Dave's Head and the Enigmatic but Wise Answers |
| |
<%
adOpenStatic = 3
adOpenDynamic = 2
adOpenKeyset = 1
LastQID = Request.QueryString("LastQ")
If LastQID = "" or IsNull(LastQID) Then
LastQID = 9999999
End If
DHReply = Array("Knowingly Replied", "Wisely Said", "Cleverly Answered", "Enigmatically Said", "Ingeniously Replied", "Fruvously Claimed")
Set DaveQTable = CreateObject("ADODB.Recordset")
DaveQTable.Open "Select * from QandA where QuestionsAsked.ID <" & CLng(LastQID) & " order by QuestionsAsked.Date desc", "DSN=daveshead;", adOpenStatic
If Not(DaveQTable.EOF) Then
DaveQTable.MoveLast
End If
TotalRecords = DaveQTable.RecordCount
If TotalRecords = 0 Then
%> | No more records | <%
Else
DaveQTable.MoveFirst
If TotalRecords < 50 Then
ShowNumRecords = TotalRecords-1
DaveQTable.MoveLast
Else
ShowNumRecords = 50
DaveQTable.Move ShowNumRecords
End If
x = 1
DaveQTable.MovePrevious
LastQID = DaveQTable.Fields(0)
Do While Not(DaveQTable.EOF) and Not(DaveQTable.BOF) and x <= ShowNumRecords
Question = DaveQTable.Fields("Question")
Answer = DaveQTable.Fields("Quote")
%> | Question: | <%=Question%> |
| DH <%=DHReply(x mod 6)%>: | <%=Answer%> |
| | <%
x = x +1
DaveQTable.MovePrevious
Loop
DaveQTable.Close
If TotalRecords > 50 Then
%>| Give me more... | <%
End If
End If
%>
| |
| Take Me to the Latest Questions and Words of Wisdom |
| |
| Ask Dave's Head |
|