<% 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 %> Daily Chess Puzzles and Chess Problems <% ''''''''''''''''''''''''' ' Determine difficulty ' ''''''''''''''''''''''''' Select Case strDiff Case "Hard" strDiff = "Very difficult" Case "Average" strDiff = "Average" Case "Easy" strDiff = "Easy" Case else ' strTitle = "Today" & SQ & "s chess puzzle will be uploaded shortly. " _ ' & "In the mean time, check out yesterday" & SQ & "s puzzle." response.redirect "index.asp?d=0119" End Select %>
Daily Chess Puzzles has moved.
You will be redirected automatically in 10 seconds.

If your browser does not continue on to the new Daily Chess Puzzles, click DailyChessPuzzles.com


<% = strTitle %>

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 "

" WL "
" Case "hint" WL "" WL "
" WL "
" Case Else WL "" WL "
" WL "" End Select If strComments = "show" Then WL "
Hide Comments" '''''''''''''' ' add the count of comments (i.e. (12)) '''''''''''''''''' WL " | Post a Comment" WL "

Comments coming soon!" ' Loop through comments newest to oldest ' If Session("Access") = "ChessAdmin" Then ' Show "Edit" and "Del" buttons ' End If Else WL "


Show Comments" WL " | Post a Comment" End If %>