<% strCheckAdmin = Left(Session("SbNuAdmin"), 1) strDate = Date intPageSize = 10 intPage = Request.QueryString("page") If intPage = "" Then intPage = 1 %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") If strCheckAdmin = "1" Then Visa = "SELECT * FROM tblSponsor WHERE Deleted = False ORDER BY Name" Else Visa = "SELECT * FROM tblSponsor WHERE Start <= #" & strDate & "# AND Stop >= #" & strDate & "# OR Always = True AND Hidden = False ORDER BY Name" End If With RSShow .ActiveConnection = Connect .Source = Visa .PageSize = intPageSize .CursorType = 3 .LockType = 1 .Open End With %>

Skivbaren.nu's lista över Sponsorer!

Här nedan finns alla som valt att sponsra Skivbaren.nu...!

Vill även Du sponsra Skivbaren.nu?
Gå gå in här för mer information!

<% If strCheckAdmin = "1" Then %> Lägg till Sponsor

<% End If %>
<% If Not RSShow.EOF Then RSShow.AbsolutePage = intPage intTotalPages = RSShow.PageCount 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 %> <% If strCheckAdmin = "1" Then %> <% Else %> <% End If %> <% x = x + 1 RSShow.MoveNext Loop %>

">    ">

<% =RSShow("Name") %>
<% If RSShow("Hidden") = True Then %>Dold!
<% End If %> Kontakt: <% If IsNull(RSShow("Contact")) = True Then %> <% If IsNull(RSShow("Mail")) = True Then %> - <% Else %> ">E-post <% End If %> <% Else %> <% If IsNull(RSShow("Mail")) = True Then %> <% =RSShow("Contact") %> <% Else %> "><% =RSShow("Contact") %> <% End If %> <% End If %>

Startas: <% =RSShow("Start") %>
Stoppas: <% =RSShow("Stop") %>
Visas alltid: <% If RSShow("Always") = True Then %>Ja<% Else %>Nej<% End If %>

Info:
<% =RSShow("Info") %>

Liten Banner:
<% If Not RSShow("SPic") = "" Then %><% =RSShow("SPic") %><% End If %>

Stor Banner:
<% If Not RSShow("LPic") = "" Then %><% =RSShow("LPic") %><% End If %>

<% If IsNull(RSShow("LPic")) = True Then If IsNull(RSShow("SPic")) = True Then %> Saknas... <% Else %> <% =RSShow("SPic") %> <% End If %> <% Else %> <% =RSShow("LPic") %> <% End If %>

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

Inga Sponsorer hittade...

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