<%
for lRecordCount = 0 to lPageHolder-1
if objRs.EOF=true or objRs.BOF=true then
bLastPage=True
exit for
end if
%>
Name
:
<%=objRs("Gbk_sName")%>
Email
:
<%=objRs("Gbk_sEmail")%>
Address
:
<%=objRs("Gbk_sAddress")%>
City
:
<%=objRs("Gbk_sCity")%>
How you came to know about
:
<%=objRs("Gbk_sCametoknow")%>
Comments
:
<%=objRs("Gbk_sComments")%>
Date of Submission
:
<%=objRs("Gbk_tDate")%>
<%
If Not CBool(bLastPage) then
objRs.MoveNext
End If
lCount = lCount + 1
If objRs.Eof then
bLastPage=True
Exit For
End If
next
%>
<%
if lPage>1 Then
Response.Write ("")
end If
%>
<%
Response.Write ("")
if lPage >1 Then
Response.Write ("")
end if
%>
<%
if Not bLastPage Then
Response.Write ("")
end If
%>
<%
if Not bLastPage Then
Response.Write ("")
end If
%>
<%
Dim iPage
if (lTotalPages - lPage )<= 10 then
if lTotalPages <= 10 then
for iPage = 1 to lTotalPages
if lPage = iPage then
Response.write (iPage & " |")
else
Response.write ("" & iPage & " |")
end if
next
else
for iPage = (lPage-5) to lTotalPages
if lPage = iPage then
Response.write (iPage & " |")
else
Response.write ("" & iPage & " |")
end if
next
end if
else
if lPage >= 10 then
for iPage = (lPage-5) to (lPage + 5)
if iPage = lTotalPages then
exit for
else
if lPage = iPage then
Response.write (iPage & " |")
else
Response.write ("" & iPage & " |")
end if
end if
next
else
for iPage = 1 to 10
if iPage = lTotalPages then
exit for
else
if lPage = iPage then
Response.write (iPage & " |")
else
Response.write ("" & iPage & " |")
end if
end if
next
end if
end if
%>
