% intPageSize = 25
intPage = Request.QueryString("page")
If intPage = "" Then intPage = 1 %>
<% Set RSBirth = Server.CreateObject("ADODB.Recordset")
Birth = "SELECT * FROM tblMember WHERE Deleted = False AND Active = True ORDER BY Name"
With RSBirth
.ActiveConnection = Connect
.Source = Birth
.PageSize = intPageSize
.CursorType = 3
.LockType = 1
.Open
End With %>
Skivbaren.nu's Medlemmar
<% RSBirth.AbsolutePage = intPage
intTotalPages = RSBirth.PageCount
TotalPosts = RSBirth.Recordcount
Call PageNavigation(intPage, intTotalPages) %>
Medlemsinfo |
---|
Inga Medlemmar hittades... |
"><% =RSBirth("Name") %> ( Medlem sedan <% =RSBirth("Datum") %> ) Även känd som <% =RSBirth("Nick") %> <% If Session("SbNuUserGood") = True AND NOT RSBirth("ID") = Session("SbNuUserID") AND strBuddyOK = True Then If Not RSBuddy.EOF Then If RSBuddy("Block") = False Then %> Du har <% =RSBirth("Nick") %> satt till Vän. Ändra till &friend=No">Ovän <% ElseIf RSBuddy("Block") = True Then %> Du har <% =RSBirth("Nick") %> satt till Ovän. Ändra till &friend=Yes">Vän <% End If Else %> Lägg till som &friend=Yes">Vän | &friend=No">Ovän <% End If RSBuddy.Close End If %> |