<% RidleAnswer=Request("a") RidleNumber=Request("id") if RidleAnswer="" AND Request.Cookies(RidleType)<>"" then RidleNumber=Request.Cookies(RidleType) if RidleNumber="" then RidleNumber=1 Set rst = Server.CreateObject("ADODB.recordset") rst.CursorType = 3 rst.CursorLocation = 3 rst.LockType = 3 path="D:\home\amparlius\db\puzzle.mdb" SQL="SELECT * FROM Puzzles WHERE Hide=FALSE ORDER BY ID DESC;" rst.Open SQL, "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & path TotalItems=rst.RecordCount For i = 1 to RidleNumber-1 rst.MoveNext Next if RidleNumber>0 AND TotalItems-RidleNumber>1 then NextRidle=RidleNumber+1 Response.Cookies(RidleType) = NextRidle Response.Cookies(RidleType).Expires="01.01.2038" else NextRidle=1 end if 'Response.Write TotalItems & " " & NextRidle & " " & RidleNumber & " " & TotalItems-RidleNumber %>     &tp=1">