<% @ LANGUAGE="VBSCRIPT" %> <% Response.Buffer=True RidleType="Last" %> Загадки - последние поступления

Загадки - последние поступления

  Детские загадки    Математические загадки    Логические загадки    Прикольные загадки     Загадки о животных     Загадки о временах года     Дурацкие загадки    Загадки о природе     Загадки на английском языке     Что? Где? Когда?     Загадки из КВН     Все загадки    Последние поступления    Лучшие загадки 

  Поиск загадки     Добавить загадку     Пословицы и поговорки  

меню загадок, верх
Начать просмотр загадок с первой загадки
Поиск загадок

меню загадок, низ

<% 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">Проголосовать за загадку   Поиск загадок  

манускрипт с загадками, верх
 

Последние поступившие загадки

<%=Replace(rst("Text"), chr(13) & chr(10),"
")%>

<% if RidleAnswer=1 then Response.Write Replace(rst("Answer"), chr(13) & chr(10),"
") end if %>

 
манускрипт с загадками, низ
опции меню загадок, верх
Отгадай загадку и рассмотри картинку

Не забывай голосовать за понравившуюся загадку!

опции меню загадок, низ


Загадки и пословицы Мира 2003-2007






Одежда Rambler's Top100     Рейтинг@Mail.ru