 
Seja bem vindo ao Guestbook.
Esperamos que tenha apreciado os momentos que
passaram conosco; e não deixe de nos visitar outras vezes, estaremos sempre em
atualização, para mantê-lo informado das novidades.
escreva-nos diretamente para
elaine@blazestar.com.br,
OU para
blazestarcats@gmail.com
Ou ligue para
(11)
5585-1836, ou (11) 8203-3003.
Welcome to our Guestbook.
We hope that you have enjoyed the time visiting our website; and hope to have your visit other times, we will be always in update to share the
news with you.
But, if you are interest in some kitten, please, don´t let here your request;
e-mail me directly, or call.
Write us directly at
elaine@blazestar.com.br,
OR to blazestarcats@gmail.com;
or call at (55 11)
5585-1836, or (55 11) 8203-3003. We will be pleased to
talk with you.
| |
|
|
<%
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../dados/GuestBook.mdb")
'DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\sites\criador\blazestar\blazestar.com.br\db\GuestBook.mdb"
set ActConn = Server.createObject("ADODB.Connection")
ActConn.CursorLocation = 3
ActConn.Open DSN
Page = request.querystring("p")
if Page = "" then
Page = 1
end if
strDB = "Select * from GuestBook order by ID Desc"
set rsReadregs = Server.CreateObject("ADODB.Recordset")
rsReadRegs.PageSize = 15
rsReadRegs.CacheSize = 15
rsReadRegs.Open StrDB, ActConn
if rsReadregs.eof then
response.end
end if
rsReadRegs.AbsolutePage = page
%>
<%
counter = 0
do while counter < rsReadregs.PageSize and not rsreadregs.eof
nameU = replace(RSReadRegs("nameUser"),chr(91)&chr(93),chr(39))
CommentsU = RSReadregs("comments")
commentsU = replace(CommentsU,chr(91)&chr(93),chr(39))
%>
<%
counter = counter + 1
rsreadregs.movenext
loop
%>
|
<%
for i = 1 to rsreadregs.pagecount
if i = cint(page) then
response.write "" & i & " "
else
response.write "" & i & " "
end if
next
rsreadregs.close
set rsreadregs = nothing
ActConn.close
set Actconn = nothing
%>
|
| |
|
