% Dim cnDB ' As ADODB.Connection Dim rsData ' As ADODB.Recordset Dim strSQL ' As String Dim strMMDD ' As String Dim strTitle ' As String Dim strDiff ' As String Dim strWhoMoves ' As String Dim mQuestion ' As Memo Dim mSolution ' As Memo Dim strWhite ' As String Dim strBlack ' As String Dim strYear ' As String Dim strType ' As String Dim strStage ' As String Dim strAction ' As String Dim strPageName ' As String Dim strSolution ' As String Dim strComments ' As String strSolution = Request("S") strComments = Request("C") ''''''''''''''''''''''''''''''''''''' ' determine the MMDD ' ''''''''''''''''''''''''''''''''''''' If Request("D")<>"" Then strMMDD = Request("D") Else DBC "MMDD = " & Right("0" & Month(Date()),2) & Right("0" & Day(Date()),2) strMMDD = Right("0" & Month(Date()),2) & Right("0" & Day(Date()),2) End If Set cnDB = OpenDB() strSQL = "SELECT * FROM tblChess " _ & "WHERE MMDD like " & DQ & strMMDD & DQ DBC "strMMDD = " & strMMDD DBC "strSQL = " & strSQL Set rsData = cnDB.Execute(strSQL) DBC "title = " & rsData("Title") strDiff = rsData("Difficulty") strTitle = rsData("Title") strWhoMoves = rsData("WhoMoves") mQuestion = rsData("Question") mSolution = rsData("Solution") strWhite = rsData("White") strBlack = rsData("Black") strYear = rsData("Year") strType = rsData("Type") strStage = rsData("Stage") rsData.Close Set rsData = Nothing Close cnDB %>
If your browser does not continue on to the new Daily Chess Puzzles, click DailyChessPuzzles.com
Difficulty: <% = strDiff %>
Challenge Type: <% = strType %>
Who Moves First: <% = strWhoMoves %>
Challenge Question: <% = mQuestion %>
<%
If strWhite <> "Unknown" Then
WL "
W: " & strWhite & " vs. "
WL "B: " & strBlack & " (" & strYear & ")
"
End If
'''''''''''''''''''''''''''''''''''''
' determine whether to show the
' solution or not
'
'''''''''''''''''''''''''''''''''''''
Select Case strSolution
Case "solution"
WL ""
WL "Solution:
" & mSolution
WL "