<% bSendMail = true bMakeVisible = false nMaxPages = 10 nMaxPerPage = 100 gbbgcolor = "#ffffff" sGBHeadingFont="" sGBHeadingFontEnd="" sGBGuestInfoFont="" sGBGuestInfoFontEnd="" sGBCommentsFont="" sGBCommentsFontEnd="" %>
 
Home PageSearchEmail UsSite MapChristmas LetterDogsOur WeddingTorrey PinesFamilyDenver Blizzard '97UsSan DiegoAlbuquerqueDenverHank DoggRobin Page 1Robin Page 2Dogs PageRobin Page 3Links to FriendsPit Bulls and BSLDenver Police Swat  Team Arrest Alleged  Pit BullDenver Kills DogsAlleged Pit Bull ordered              executed by Insurance CompanyRun Forrest RunStray Pit Bull Saves Woman and ChildAlamogordo, NMDenve Pit Bull policy assailedPit Bull and BSL PettionsNo BSL in EnglewoodPit bull saves Holland         woman       from abductorRoxy the Friendly Pit BullHouse for Sale in   Raytown MONazi Eyewitness Warns America           not to let       Freedom Slip AwayRaytown Community Cleanup DayUnited Socialist States      of America
  Guestbook  
 
 
 
<% Dim nPageNo Dim oRs Dim oCmd Dim myconn if Request.QueryString("pageno") then nPageNo = CInt(Request.QueryString("pageno")) else nPageNo = 1 end if Set oRs = Server.CreateObject("ADODB.Recordset") Set myconn = GetConnection("passwords/") Set oCmd = Server.CreateObject("ADODB.Command") Set oCmd.ActiveConnection = myconn oCmd.CommandType = 1 oCmd.CommandText = "SELECT GuestbookID, UserName, UserCompany, UserURL, Date, Comments FROM Guestbook WHERE Status=2 ORDER BY Date DESC" oRs.Open oCmd Dim nRecordCount if oRs.RecordCount <> -1 then nRecordCount = oRs.RecordCount else nRecordCount = GetGuestbookActiveCount() end if fMaxPages = nRecordCount / nMaxPerPage nMaxPages = Int(fMaxPages) if fMaxPages <> nMaxPages then nMaxPages = nMaxPages + 1 end if if not oRs is NOTHING and not oRs.eof then ' skip ahead? if nPageNo > 1 then oRs.Move((nPageNo-1) * nMaxPerPage) width = "250" row = 0 col = 0 bDone = false do while not oRs.eof and not bDone Dim sURL Dim sURLName sURL = oRs("UserURL") sURLName = sURL if (InStr(sURL, "://")) Then sURLName = Right(sURL, (Len(sURL) - InStr(sURL, "://") - 2)) End If Response.Write "" Response.Write "" Response.Write "" else Response.Write sGBCommentsFontEnd & "" end if Response.Write "" Response.Write "" & vbCrLf oRs.MoveNext row = row + 1 if row = nMaxPerPage then bDone = true elseif not oRs.eof then Response.Write "" Response.Write "" end if loop ' Pad the extra spaces if not bDone then bDone = false do while not bDone Response.Write "" & vbCrLf Response.Write "" Response.Write "" Response.Write "" Response.Write "" & vbCrLf row = row + 1 if row = nMaxPerPage then bDone = true end if loop end if else ' Write a message that the directory is empty? end if %>
Sign the Guestbook
  <%=sGBHeadingFont%>Guest<%=sGBHeadingFontEnd%> <%=sGBHeadingFont%>Comments<%=sGBHeadingFontEnd%> <%=sGBHeadingFont%>Date<%=sGBHeadingFontEnd%>  
 " & sGBGuestInfoFont Response.Write oRs("UserName") & "
" & oRs("UserCompany") & "
" Response.Write "" & sURLName & "" & sGBGuestInfoFontEnd & "
" & sGBCommentsFont Response.Write Left(oRs("Comments"), 150) if (Len(oRs("Comments")) > 150) then Response.Write "..." & sGBCommentsFontEnd & sGBGuestInfoFont & "" Response.Write "MORE" & sGBGuestBookInfoFontEnd & "" & sGBGuestInfoFont Response.Write oRs("Date") & sGBGuestInfoFontEnd & " 
 
 
 " & sGBHeadingFont Response.Write " " & sGBHeadingFontEnd & "
" Response.Write sGBGuestInfoFont & " " & "
" Response.Write " " & sGBGuestInfoFontEnd & "
" & sGBCommentsFont Response.Write " " & sGBCommentsFontEnd & "" & sGBGuestInfoFont Response.Write " " & sGBGuestInfoFontEnd & " 
<% ' set guestbook page links Response.Write "Page:  " for i=1 to nMaxPages if i <> nPageNo then Response.Write "" & i & "  " else Response.Write "" & i & "  " end if next %>
<%'!!%>
 

Home Page | Search | Email Us | Site Map | Christmas Letter | Dogs | Our Wedding | Torrey Pines | Family | Denver Blizzard October 1997 | Us | San Diego | Albuquerque | Denver | Hank Dogg | Robin Page 1 | Robin Page 2 | Dogs Page | Robin Page 3 | Links to Friends | Pit Bulls and BSL | Denver Police Swat Team Arrest Alleged Pit Bull | Denver Kills Dogs | Alleged Pit Bull ordered executed by Insurance Company | Run Forest Run | Stray Pit Bull Saves Woman and Child from Attacker | Alamogordo | Denver Pit Bull policy assailed | Pit Bull and BSL Petitions | No BSL in Englewood CO | Pit bull saves Holland woman from abductor | Roxy the Friendly Pit Bull | Raytown MO | Nazi Eyewitness Warns America Not to Let Freedom Slip Away  | Raytown Community Cleanup Day  | United Socialist States of America




Starfield Technologies, Inc.