|
|
| |
| Please Leave Us Feedback by completeting the
following form. |
| |
<%
dim conn 'db connection
dim rs 'recordset
dim sql 'sql query
Dim iPageSize 'How big our pages are
Dim iPageCount 'The number of pages we get back
Dim iPageCurrent 'The page we want to show
dim iRecordsShown
dim i 'counter
iPageSize = 5 'you can edit how many messages per page
if request("page")="" then
iPageCurrent = 1
else
iPageCurrent = cint(request.querystring("page"))
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn'open connection
SQL = "select * from entries order by id desc"
Rs.Open sql, conn,adOpenStatic, adLockReadOnly, adCmdText
RS.PageSize = iPageSize
RS.CacheSize = iPageSize
RS.AbsolutePage = iPageCurrent
iPageCount = RS.PageCount
iRecordsShown = 0
%>
| Previous
Feedback: |
<%response.write "Total:" & rs.recordcount & " Entries" %>
|
<%
Do While iRecordsShown < iPageSize And Not RS.EOF
response.write "Name:" & "" & rs("name") & "
"
response.write "Subject:" & rs("subject") & "
"
response.write "Date:" & rs("enDate") & "
"
response.write "Content:" & rs("content") & "
"
if (NOT(strcomp(rs("response"), ""))) then
response.write " - Response: " & rs("response") & "
"
end if
response.write "
"
iRecordsShown = iRecordsShown+1
rs.movenext
loop
response.write "
"
for i=1 to ipagecount
response.write "" & i & " "
next
%>
Page <%= iPageCurrent %> of <%= iPageCount %>
|
|
|
