|
<% PageNo = request("page")
If PageNo="" then
%>
Assinar o livro de Visitas do Site Olhares.net
<%
PageNo=1
ElseIf PageNo=1 then
%>
Assinar
o Livro de Visitas do Site Olhares.net
<%
Else
%>
Assinar
o Livro de Visitas do
Site Olhares.net
<%
End If
set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
' set the actual path to the guestbook below - this example
' assumes that the guestbook is in the web server root
sqlstmt = "SELECT * from Guestbook ORDER BY PostDate DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, conn, 3, 3
TotalRecs = rs.recordcount
rs.Pagesize=10
TotalPages = cInt(rs.pagecount)
rs.absolutepage=PageNo
If PageNo = 1 then
response.write "
Existem " & TotalRecs & " entradas em " & TotalPages & " páginas "
End If
If rs.eof then
response.write "
Ainda não existem entradas neste Livro de Visitas"
response.write "
Assinar o Livro de Visitas"
response.end
End If
x = 0
For x = 1 to 10
If rs.eof then
Exit For
Else
When = rs("PostDate")
Name = rs("Name")
Name = Replace(Name,"''","'")
City = rs("City")
State = rs("State")
Country = rs("Country")
Email = rs("Email")
URL = rs("URL")
If IsEmpty(URL) or URL = "" then
Link = "::: ::: "
Else
Link = "::: HomePage ::: "
End If
Comments = rs("Comments")
Comments = replace(Comments, "''", "'")
Start = rs("PostDate")
%>
| :::
<%= When %>
::: |
|
|
|
<%
If IsEmpty(Email) or Email="" then
response.write(Name)
Else
response.write "" & Name & ""
End If
%>
|
:::
<%= City %>
:::
<%= State %>
:::
<%= Country %>
::: |
<%= Link %>
|
<%
rs.MoveNext
End If
Next
response.write ""
response.write "| "
If PageNo > 1 then
response.write ""
Else
response.write " "
End If
response.write " | "
If NOT rs.eof then
response.write ""
Else
response.write " "
End If
response.write " |
"
conn.close
set conn = nothing
%>
|