<% strCheckAdmin = Mid(Session("SbNuAdmin"), 2, 1) intPageSize = 25 intPage = Request.QueryString("page") If intPage = "" Then intPage = 1 %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") If strCheckAdmin = "1" Then Visa = "SELECT tblGuest.*, tblMember.Nick AS MemName FROM tblGuest INNER JOIN tblMember ON tblGuest.MemID = tblMember.ID WHERE tblGuest.Deleted = False ORDER BY tblGuest.Datum DESC, tblGuest.ID DESC" Else Visa = "SELECT * FROM tblGuest WHERE Deleted = False ORDER BY Datum DESC, ID DESC" End If With RSShow .ActiveConnection = Connect .Source = Visa .PageSize = intPageSize .CursorType = 3 .LockType = 1 .Open End With %>

Skivbaren.nu's Gästbok!

Här nedan finns kommentarer som Besökare lagt in under Skivbaren.nu's liv...!
Har just Du något att förmedla, ris eller ros åt oss, eller annat??
Välj då 'Ny kommentar' från menyn och skriv en rad!

Företagsreklam i Gästboken kommer att raderas!
Företag som vill göra reklam? Tryck här.

<% RSShow.AbsolutePage = intPage intTotalPages = RSShow.PageCount TotalPosts = RSShow.Recordcount Call PageNavigation(intPage, intTotalPages) %> <% x = 0 If Not RSShow.EOF Then Do Until RSShow.EOF OR intCounter >= intPageSize intCounter = intCounter + 1 If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSShow.MoveNext Loop Else %>
Inlägg

<% If Not RSShow("Rubrik") = "" Then %> <% =RSShow("Rubrik") %>

<% End If %> <% If strCheckAdmin = "1" Then %> ">  ">

<% End If %> <% =FormatStr(RSShow("Mess")) %>

***

<% If Not RSShow("Mail") = "" Then %> Av: "><% =RSShow("Name") %> <% If Not RSShow("Site") = "" Then %> <% If Not RSShow("Site") = "http://" Then %>  (" target="_blank">Hemsida)
<% Else %>
<% End If %> <% Else %>
<% End If %> <% Else %> <% If Not RSShow("Name") = "" Then %> Av: <% =RSShow("Name") %> <% If Not RSShow("Site") = "" Then %> <% If Not RSShow("Site") = "http://" Then %>  (" target="_blank">Hemsida)
<% Else %>
<% End If %> <% Else %>
<% End If %> <% End If %> <% End If %> Postad: <% =RSShow("Datum") %>
IP: <% If Not RSShow("IP") = "" Then %>Loggad.<% Else %>Saknas.<% End If %> <% If strCheckAdmin = "1" Then %>
Om Medlem: <% If IsNull(RSShow("MemName")) = True Then %>-<% Else %><% =RSShow("MemName") %><% End If %>
Postad från IP: <% If IsNull(RSShow("IP")) = True Then %>-<% Else %><% =RSShow("IP") %><% End If %> <% End If %>


Inga poster hittade...

<% End If RSShow.Close Set RSShow = Nothing %>

<% Call PageNavigation(intPage, intTotalPages) %>