Guest Books List
<%
dim conn
dim rs
dim sql
dim pesan
dim total
dim hal
dim record
dim i
pesan=5
record=0
if request("hal")="" then
hal=1
else
hal=request.querystring("hal")
end if
set conn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
conn.open dsn
sql="select * from tamu order by nomor"
rs.open sql, conn,adOpenStatic, adLockReadOnly,adCmdText
rs.pagesize=pesan
rs.cachesize=pesan
rs.absolutepage=hal
total=rs.pagecount
jum=rs.RecordCount
%>
Jumlah Pengisi Buku Tamu :<%=jum%>orang
Halaman <%= hal %> dari <%=total%>
<%
response.write ""
for i=1 to total
response.write ""&i&" "
next
response.write ""
response.write "
"
'response.write ""
do while record < pesan and not rs.eof
response.write "Name : " & rs("nama")&"
"
response.write "Address : " & rs("alamat")&"
"
response.write "Telephone : " & rs("telepon")&"
"
response.write "Email : " & rs("email")&"
"
response.write "Comments : " & rs("komentar")&"
"
response.write "
"
record=record+1
rs.movenext
loop
response.write "
"
for i=1 to total
response.write ""&i&" "
next
%>
Halaman <%= hal %> dari <%= total %>