<% cUserName=request.cookies("uzUserName") cUserCity=request.cookies("uzUserCity") cUserEmail=request.cookies("uzUserEmail") if cUserEmail = " " then cUserEmail = "" end if if cUserCity = " " then cUserCity = "" end if %> <% Dim BookName, Title BookName=Request.QueryString("bookname") PageNumber=CInt(Request.QueryString("page")) if BookName="main" then Title = "Гостевая книга" elseif BookName="adopt" then Title = "Усыновить" elseif BookName="refuse" then Title = "Отказ от ребёнка" elseif BookName="needhelp" then Title = "Прошу о помощи!" elseif BookName="canhelp" then Title = "Готовы помочь" else BookName = "main" Title = "Гостевая книга" end if Response.Write("" & Title & "") %>

<%Response.Write(Title)%>

<% Set cn = Server.CreateObject("ADODB.Connection") cnpath="DBQ=" & server.mappath("db/gbook.mdb") cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath Set rsComments = Server.CreateObject("ADODB.Recordset") strSQL = "select dt,name,email,city,message from gbook where bookname='" & BookName & "' order by dt desc" rsComments.Open strSQL, cn Set objDT = rsComments("dt") Set objName = rsComments("name") Set objEmail = rsComments("email") Set objCity = rsComments("city") Set objMessage = rsComments("message") PageLen = 10 Count = 0 do until rsComments.EOF if PageNumber = Count \ PageLen then Response.Write "" end if rsComments.MoveNext Count = Count + 1 loop cn.Close if Count > PageLen then Response.Write "" end if %>


" & objName if len(objEmail) <> 0 then Response.Write " (" & objEmail & ")" end if if len(objCity) > 0 then Response.Write " " & objCity & "" end if Response.Write ", " & objDT Response.Write "

" & objMessage & "


Страницы:" for i = 0 to (Count-1) \ PageLen if i = PageNumber then Response.Write " "&i else Response.Write " "&i&"" end if next Response.Write "
*Имя:
Город:
e-mail:
*Cообщение:
 
Усыновить Отказ от ребёнка Прошу о помощи! Готовы помочь

Международный проект "В защиту жизни".
Пре перепечатывании материалов ссылка на наш сайт желательна.

e-mail: emmanuil@inbox.ru, телефон (371) 106-14-63 (международный +998-71-106-14-63)

Дизайн и разработка - © 2001 AleKo

TopList Апорт Top 1000 <% if section = "news" then %> <% else %> <% end if %>