<% '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 postings." 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 %>

Welcome to Topeka Lifeguard Messages: Email me your message and I will post it.

Message by Fred on Monday, December 31, 2007 at 13:43

Hi All,
Hope you survived 2007 well and have a great 2008. Don't forget to let me know if your email address changes. That way I can send messages when we have alumni events.
Please remember that any messages posted here have to be okayed before they will appear. This had to be done because I was getting HUGE spam messages posted.
Happy New Year to you all!!!

Message by Alan Wilds on Thursday, September 20, 2007 at 15:21

HEY! Y'all need to plan another reunion! I missed the last one but can guarantee I'll make the next one come hell or high water!! Big shout out to all my 80s old timers from the pool days....where ever you might be now!! :)

Message by Ken on Sunday, August 05, 2007 at 23:37

Just wanted to say hello and say we miss you at the pools this year Fred. I was wondering what happen to Scott Puff and now I know.

Message by Scott Puff on Friday, July 06, 2007 at 19:10

Great Website! Was just telling people at work today that the best job I've ever had was working as a lifeguard and swimming instructor in Topeka! Thanks for keeping up the website and to all you newbies cherish your time at the pool and stay away from a real job as long as you can! Warmest regards from Dallas, Scott Puff

Message by Andrew McGuire on Monday, April 23, 2007 at 10:52

HEY HEY HEY...just wanted to say hi to everyone and i know its comeing up on the summer i hope you all are so excited well stay in touch and good luck to all you newbees 785-817-2324

Message by Brian Pitman on Thursday, January 04, 2007 at 23:52

Hey all, we have moved to a different domain name. Hope you like it. Happy 2007!

Click Here to Return to Main Page

<% '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 %>

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then Response.Write("Powered by Web Wiz Guestbook version " & strVersion & "") Response.Write("
Copyright ©2001-2004 Web Wiz Guide") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>