<%
' Количество записей на страницу
rsPageSize = 10
' Постраничный вывод
if Request("Page") <> "" then
sPage = Request("Page")
else
sPage = 1
end if
' Добавление записей
' Вывод данных
sqlFndRec = "SELECT * FROM gbook ORDER BY data DESC"
' Коннекшн по страницам
set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.Open sqlFndRec, cnUM, 3, 3
rsNews.PageSize = rsPageSize
' Устанавливаем выводимую страницу
if rsNews.recordcount>0 then
rsNews.AbsolutePage = sPage
end if
%>
<%
If ((sPage+1)*rsPageSize - rsNews.RecordCount) < rsPageSize then
%>
вперед
<%
End if
%>
примечание (время сообщения Московское)
<%
'Вывод записей
i=0
Do While (Not rsNews.EOF) AND (i
<%
sEm=rsNews("email")
if sEm<>"" then
Response.Write("" & rsNews("name") & " ")
else
Response.Write("" & rsNews("name") & " ")
end if
sWWW=rsNews("http")
' Отображаем Web-адрес
if sWWW<>"" then
Response.Write("(" & sWWW &") ")
End if
Response.Write("[" & rsNews("data") & "]")
Response.Write(" " & rsNews("body") & "" )
answer=rsNews("answer")
if answer<>"" then
Response.Write("Ответ:")
Response.Write( answer )
end if
Response.Write("")
rsNews.MoveNext
loop
set rsNews = Nothing
%>
