<%
'If there are no rcords in the database display an error message
If rsCommon.EOF Then
'Tell the user there are no records to show
Response.Write " There are no records in the guestbook database"
Response.Write " Please check back later"
Response.End
'Display the guestbook
Else
'Count the number of enties in the guestbook database
intTotalNumGuestbookEntries = rsCommon.RecordCount
'Count the number of pages there are in the guestbook database calculated by the PageSize attribute set above
intTotalNumGuestbookPages = rsCommon.PageCount
'Display the HTML number number the total number of pages and total number of records in the guestbook database
%>
There are <% = intTotalNumGuestbookEntries %> guestbook entries in <% = intTotalNumGuestbookPages %> pages and you are on page number <% = intRecordPositionPageNum %> |
<%
'For....Next Loop to display records from the guestbook database
For intRecordLoopCounter = 1 to intRecordsPerPage
'If there are no guestbook records left to display then exit loop
If rsCommon.EOF Then Exit For
'Read in the values form the database
strName = rsCommon("Name")
strCountry = rsCommon("Country")
strEmailAddress = rsCommon("EMail")
dtmEntryDate = CDate(rsCommon("Date_stamp"))
strHomepage = rsCommon("Homepage")
strComments = rsCommon("Comments")
'If URL homepgae entry is diisabled don't show URL
If blnURL = false Then
strHomepage = ""
'If there is no homepage entry to display the display no URL given
ElseIf strHomepage = "http://" or strHomepage = "" then
strHomepage = "no URL given"
'Else turn the URL stored in the strHomepage variable into a hyperlink
Else
strHomepage = "" & strHomepage & ""
End If
'Write the HTML to the web browser to display the guestbook entries
%>
Comments by <%
'Display the email address if there is one
If blnEmailAddress AND strEmailAddress <> "" Then Response.Write("" & strName & "") Else Response.Write(strName)
%> on <% = FormatDateTime(dtmEntryDate, VbLongDate) %> at <% = FormatDateTime(dtmEntryDate, VbShortTime) %> |
IP Logged |
|
<% = strComments %>
|
<% = strCountry %>
|
<% = strHomepage %>
|
|
<%
'Move to the next record in the database
rsCommon.MoveNext
'Loop back round
Next
End If
'Display an HTML table with links to the other entries in the guestbook
%>
<%
'If there are more pages to display then add a title to the other pages
If intRecordPositionPageNum > 1 or NOT rsCommon.EOF Then
Response.Write vbCrLf & " Page: "
End If
'If the guestbook page number is higher than page 1 then display a back link
If intRecordPositionPageNum > 1 Then
Response.Write vbCrLf & ("<< Prev")
End If
'If there are more pages to display then display links to all the pages
If intRecordPositionPageNum > 1 or NOT rsCommon.EOF Then
'Display a link for each page in the guestbook
For intLinkPageNum = 1 to intTotalNumGuestbookPages
'If there is more than 7 pages display ... last page and exit the loop
If intLinkPageNum > 15 Then
If intTotalNumGuestbookPages = intRecordPositionPageNum Then Response.Write(" ..." & intTotalNumGuestbookPages) Else Response.Write(" ..." & intTotalNumGuestbookPages & "")
'Exit Loop
Exit For
'Else display the normal link code
Else
'If the page to be linked to is the page displayed then don't make it a hyper-link
If intLinkPageNum = intRecordPositionPageNum Then Response.Write(" " & intLinkPageNum) Else Response.Write(" " & intLinkPageNum & "")
End If
Next
End If
'If it is Not the End of the guestbook entries then display a next link for the next guestbook page
If NOT rsCommon.EOF then
Response.Write (" Next >>")
End If
'Finsh HTML the table
%>
|
|
<%
'Reset Server Variables
rsCommon.Close
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
%>
|