• KRS Promotions

  • About Us
  • KRS Members

• Events

  • Upcoming Events
  • Weekly Events
  • Past Events

• Photogallery

  • Monday
  • Tuesday
  • Wednesday
  • Thursday
  • Friday
  • Saturday
  • Sunday

  • Bananas sponsored events

    • 11 Aug 07:
      Bikini Cruises
    • 05 Aug 07:
      Ms Summer Swimwear & Fashion Show
    • 01 July 07:
      Glow Cruise

• 97.5 FM

• Entertainers

  • DJ's
  • Others

• About Us

  • Our Location
  • Committee
  • Contact Us

Unfortunately we get a lot of Scam Entries in our guestbook. Therefore we will close it for some time.
Please accept our apologies.

<% strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" strConnection = strConnection & Server.MapPath("cguestbook.mdb") strConnection = strConnection & ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;" ' korrekt nach Datum absteigend sortiert; first ten records Const cstrFirstTenRecords = "SELECT TOP 10 IdField,Name,EmailAddress,Homepage,EntryDate,Comment,Club,Website from Guestbook ORDER BY IdField DESC" ' next ten records Const cstrNextTenRecP1 = "SELECT TOP 10 IdField,Name,EmailAddress,Homepage,EntryDate,Comment,Club,Website from Guestbook WHERE IdField < " Const cstrNextRecP2 = " ORDER BY IdField DESC" ' previous ten records; WRONG SORT ORDER INITIALLY! Const cstrPrevTenRecP1 = "SELECT TOP 10 IdField,Name,EmailAddress,Homepage,EntryDate,Comment,Club,Website from Guestbook WHERE IdField > " Const cstrPrevRecP2 = " ORDER BY IdField ASC" strPageDirection = Trim(Request.QueryString("Page")) If "" = strPageDirection Then strPageDirection = "Start" nLastIndex = Trim(Request.QueryString("Index")) If ("" = nLastIndex Or Not IsNumeric(nLastIndex)) Then strPageDirection = "Start" Select Case strPageDirection Case "Next" strSQL = cstrNextTenRecP1 & nLastIndex & cstrNextRecP2 Case "Prev" strSQL = cstrPrevTenRecP1 & nLastIndex & cstrPrevRecP2 bTopDown = True Case Else strSQL = cstrFirstTenRecords End Select Set conn = CreateObject("ADODB.Connection") conn.Open strConnection Set rs = CreateObject ("ADODB.Recordset") rs.Open strSQL, conn If Not rs.EOF and Not rs.BOF Then avarRecords = rs.GetRows() Else bNoRecords = True End If rs.Close ' get summary information rs.Open "SELECT * FROM qSummaries", conn nTotalRecords = rs(0) If nTotalRecords <> 0 Then rs.MoveNext nTotalMax = rs(0) rs.MoveNext nTotalMin = rs(0) End If rs.Close conn.Close Set rs = Nothing Set conn = Nothing strScriptName = Request.ServerVariables("SCRIPT_NAME") If Not bNoRecords Then nRecords = UBound(avarRecords,2) If Not bTopDown Then nPrevPaging = avarRecords(0,0) nLastPaging = avarRecords(0,nRecords) Else nPrevPaging = avarRecords(0,nRecords) nLastPaging = avarRecords(0,0) End If Response.Write "" Response.Write "" & vbCrLf WritePagingHeaders If Not bTopDown Then For intRecord = 0 To nRecords WriteRecord avarRecords, intRecord Next Else For intRecord = nRecords To 0 Step -1 WriteRecord avarRecords, intRecord Next End If WritePagingHeaders Response.Write "

Total entries: " & nTotalRecords Response.Write "

" Else Response.Write "

No entries found!

" End If ' bNoRecords Sub WriteRecord(avarRecords, intRecord) Response.Write "" Response.Write "Name: " & avarRecords(1,intRecord) & "
" Response.Write "Email: " If "" <> avarRecords(2,intRecord) Then Response.Write "" Response.Write avarRecords(2,intRecord) & "" Else Response.Write "none" End If Response.Write "
" Response.Write "Homepage: " If "" <> avarRecords(3,intRecord) Then Response.Write "" Response.Write "http://" & avarRecords(3,intRecord) & "" Else Response.Write "none" End If Response.Write "
" Response.Write "Comment: " & Replace(avarRecords(5,intRecord),vbCrlf,"
") Response.Write "
" Response.Write "Suggestions for Club: " & Replace(avarRecords(6,intRecord),vbCrlf,"
") Response.Write "
" Response.Write "Suggestions for web site: " & Replace(avarRecords(7,intRecord),vbCrlf,"
") Response.Write "
" Response.Write "" Response.Write "" & avarRecords(4,intRecord) & "" Response.Write "" & vbCrLf Response.Write "

---

" & vbCrlf End Sub Sub WritePagingHeaders() %> <% End Sub %>

<% If nTotalMax > nPrevPaging Then Response.Write "back 10" Else Response.Write "back 10" End If %> | ">start | <% If nTotalMin < nLastPaging Then Response.Write "next 10" Else Response.Write "next 10" End If %>