 |
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
|
||||||||||||
 |
 |
 |
|
||||||||||
 |
|
||||||||||||
 |
|
||||||||||||
 |
|
||||||||||||
 |
 |
 |
|
||||||||||
 |
|
||||||||||||
 |
 |
|
|||||||||||
 |
|
||||||||||||
 |
 |
|
|||||||||||
 |
|
||||||||||||
 |
 |
|
|||||||||||
 |
|
||||||||||||
 |
 |
|
|||||||||||
 |
|
||||||||||||
 |
 |
|
|||||||||||
 |
|
||||||||||||
 |
 |
 |
|
||||||||||
 |
|
||||||||||||
 |
 |
 |
|
||||||||||
 |
|
||||||||||||
 |
 |
 |
|
||||||||||
 |
|
||||||||||||
 |
 |
|
|||||||||||
 |
|
||||||||||||
 |
|
||||||||||||
 |
|
||||||||||||
 |
|
||||||||||||
 |
|
||||||||||||
 |
|
||||||||||||
 |
|
||||||||||||
 |
 |
BREAKING NEWS |
Donald Trump (The Apprentice-Your'e Fired) ... best Real Estate
advice I ever received...
|
<% PageNo = request("page")
If PageNo="" then
%>
<%
PageNo=1
ElseIf PageNo=1 then
%>
<%
Else
%>
<%
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
DSNtemp=dsntemp & "DBQ=" & server.mappath("guestbook.mdb")
conn.Open DSNtemp
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 > 0 then
response.write " There are " & TotalRecs & " testimonial entries on " & TotalPages & " pages Current Page is : " & PageNo & " " response.write " " End If If rs.eof then response.write "All clients are welcome to sign the Testimonials" 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") Country = rs("Country") Email = rs("Email") URL = rs("URL") If IsEmpty(URL) or URL = "" then Link = "no URL given" Else Link = "" & URL & "" End If Comments = rs("Comments") Comments = replace(Comments, "''", "'") Start = rs("PostDate") %>
<% rs.MoveNext End If Next response.write "
|
||||||||
 |
||||||||
