<% strCheckAdmin = Mid(Session("SbNuAdmin"), 4, 1) intPageSize = 25 intPage = Request.QueryString("page") If intPage = "" Then intPage = 1 %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") If strCheckAdmin = "1" Then Visa = "SELECT tblTipLink.*, tblMember.Nick AS MemName FROM tblTipLink INNER JOIN tblMember ON tblTipLink.MemID = tblMember.ID WHERE tblTipLink.Deleted = False ORDER BY tblTipLink.Datum DESC, tblTipLink.ID DESC" Else Visa = "SELECT * FROM tblTipLink 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 %>

Besökarnas Länktips!

Här nedan finns länkar som Ni besökare tipsar andra besökare om!
Har just Du en musikrelaterad länk??
Välj då 'Tipsa' från menyn och skriv in informationen!
Övriga länkar hänvisas till Gästboken...

<% If Not RSShow.EOF Then RSShow.AbsolutePage = intPage intTotalPages = RSShow.PageCount TotalPosts = RSShow.Recordcount Call PageNavigation(intPage, intTotalPages) %> <% x = 0 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 RSShow.Close Set RSShow = Nothing %>
Länktips

<% If Not RSShow("LName") = "" Then %>" target="_blank"><% =RSShow("LName") %><% Else %>" target="_blank">Länk<% End If %>

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

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

Postad <% =RSShow("Datum") %>
Av: <% If Not RSShow("Mail") = "" Then %> "><% =RSShow("Name") %> <% Else %> <% =RSShow("Name") %> <% End If %>
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 %>

<% Call PageNavigation(intPage, intTotalPages) Else %>

Inga Länkar hittade...

<% End If %>