<% 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) %> <% If RSBirth.EOF Then %> <% Else %> <% x = 1 Do Until RSBirth.EOF OR intCounter >= intPageSize intCounter = intCounter + 1 If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If If Session("SbNuUserGood") = True Then strMemID = RSBirth("ID") Set RSBuddy = Server.CreateObject("ADODB.Recordset") Buddy = "SELECT * FROM tblMemberFriend WHERE FriendID = " & strMemID & " AND MemID = " & Session("SbNuUserID") & " AND Deleted = False " RSBuddy.Open Buddy, Connect, adOpenStatic, adLockOptimistic Set RSNoBuddy = Server.CreateObject("ADODB.Recordset") NoBuddy = "SELECT * FROM tblMemberFriend WHERE FriendID = " & Session("SbNuUserID") & " AND MemID = " & strMemID & " AND Block = True AND Deleted = False " RSNoBuddy.Open NoBuddy, Connect, adOpenStatic, adLockOptimistic If RSNoBuddy.EOF Then strBuddyOK = True Else strBuddyOK = False End If RSNoBuddy.Close End If %> <% x = x + 1 strMemID = 0 RSBirth.MoveNext Loop End If RSBirth.Close Set RSBirth = Nothing %>
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 %>

<% Call PageNavigation(intPage, intTotalPages) %>