<% Set RSUser = Server.CreateObject("ADODB.Recordset") UserInfo = "SELECT * FROM tblMember WHERE ID = " & Request.QueryString("id") & " " RSUser.Open UserInfo, Connect, adOpenStatic, adLockOptimistic If Session("SbNuUserGood") = True Then Set RSBuddy = Server.CreateObject("ADODB.Recordset") Buddy = "SELECT * FROM tblMemberFriend WHERE FriendID = " & Request.QueryString("id") & " 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 = " & Request.QueryString("id") & " 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 RSUser("NoShow") = RSUser("NoShow") -- 1 RSUser.Update Set RSMod = Server.CreateObject("ADODB.Recordset") Moderator = "SELECT * FROM tblForumModerator WHERE ModID = " & Request.QueryString("id") & " AND Deleted = False " RSMod.Open Moderator, Connect, adOpenStatic, adLockOptimistic strNextAge = DateDiff("yyyy", RSUser("BirthDate"), Now) strAge = strNextAge - 1 strMonth = Mid(RSUser("BirthDate"), 6, 2) strDay = Right(RSUser("BirthDate"), 2) %>
<% =RSUser("Name") %>'s Profil...
( aka <% =RSUser("Nick") %> )

<% If Not RSUser("EMail") = "" AND RSUser("ShowEMail") = True Then %> "> <% If Not RSUser("Site") = "" AND RSUser("Site") <> "http://" Then %>  " target="_blank">

<% Else %>
<% End If %> <% Else %> <% If Not RSUser("Site") = "" OR Not RSUser("Site") = "http://" Then %>  " target="_blank">

<% Else %>
<% End If %> <% End If %> Registrerad <% =RSUser("Datum") %>

<% If Session("SbNuUserGood") = True AND NOT RSUser("ID") = Session("SbNuUserID") AND strBuddyOK = True Then If Not RSBuddy.EOF Then If RSBuddy("Block") = False Then %> Du har <% =RSUser("Nick") %> satt till Vän.
Ändra till &friend=No">Ovän

<% ElseIf RSBuddy("Block") = True Then %> Du har <% =RSUser("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 %> ">PM'a <% =RSUser("Nick") %>

<% End If %> ICQ#: <% If IsNull(RSUser("ICQ")) = True Then %>-<% Else %><% =RSUser("ICQ") %><% End If %>
MSN: <% If IsNull(RSUser("MSN")) = True Then %>-<% Else %><% =RSUser("MSN") %><% End If %>
AOL: <% If IsNull(RSUser("AOL")) = True Then %>-<% Else %><% =RSUser("AOL") %><% End If %>
Yahoo: <% If IsNull(RSUser("Yahoo")) = True Then %>-<% Else %><% =RSUser("Yahoo") %><% End If %>

<% =RSUser("Nick") %> bor i <% If IsNull(RSUser("Location")) = True Then %>-<% Else %><% =RSUser("Location") %><% End If %>

Lite info om <% =RSUser("Nick") %>:
<% If IsNull(RSUser("About")) = True Then %>-<% Else %><% =FormatStr(RSUser("About")) %><% End If %>
Info om
<% =RSUser("Name") %>

<% strDate1 = RSUser("BirthDate") strDate2 = Date strMonth = Mid(strDate1, 6, 2) strDay = Right(strDate1, 2) strThisYear = Left(strDate2, 4) strNewYear = strThisYear & "-" & strMonth & "-" & strDay strNextYear2 = DateDiff("yyyy", strNewYear, strDate2) strNextYear = DateDiff("yyyy", strDate1, strDate2) strNextMonth = DateDiff("m", strNewYear, strDate2) strNextDay = DateDiff("d", strNewYear, strDate2) %> <% If strNextMonth = 0 AND strNextDay = 0 Then %> Fyller <% =strNextYear %> idag!!
Grattis!!!

<% ElseIf strNextMonth > 0 OR strNextDay > 0 Then strNow = strNextYear strNextYear = strNextYear -- 1 strThisYear = strThisYear -- 1 %> Är <% =strNow %> år.
Fyller <% =strNextYear %> den <% If strDay < 10 Then %><% =Right(strDay, 1) %><% Else %><% =strDay %><% End If %>/<% If strMonth < 10 Then %><% =Right(strMonth, 1) %><% Else %><% =strMonth %><% End If %>, <% =strThisYear %>

<% ElseIf strNextMonth < 0 OR strNextDay < 0 Then strNow = strNextYear - 1 %> Är <% =strNow %> år.
Fyller <% =strNextYear %> den <% If strDay < 10 Then %><% =Right(strDay, 1) %><% Else %><% =strDay %><% End If %>/<% If strMonth < 10 Then %><% =Right(strMonth, 1) %><% Else %><% =strMonth %><% End If %>, <% =strThisYear %>

<% End If %> Bild:
<% If IsNull(RSUser("Picture")) = True Then %> Saknas... <% Else %> " width="150"> <% End If %>


Är Administrator för:
<% If RSUser("Admin") = False OR RSUser("AdminGuest") = False OR RSUser("AdminLink") = False OR RSUser("AdminTipLink") = False OR RSUser("AdminClass") = False OR RSUser("AdminFair") = False OR RSUser("AdminShop") = False OR RSUser("AdminCountry") = False OR RSUser("AdminMember") = False OR RSUser("AdminNews") = False OR RSUser("AdminArticle") = False OR RSUser("AdminRelease") = False OR RSUser("AdminConcert") = False OR RSUser("AdminForum") = False OR RSUser("AdminPoll") = False OR RSUser("AdminHistory") = False Then %> - <% Else %> <% If RSUser("Admin") = True Then %> SuperUser
<% End If %> <% If RSUser("AdminGuest") = True Then %> Gästboken
<% End If %> <% If RSUser("AdminLink") = True Then %> Länkarna
<% End If %> <% If RSUser("AdminTipLink") = True Then %> Besökarnas Länktips
<% End If %> <% If RSUser("AdminClass") = True Then %> Annonserna
<% End If %> <% If RSUser("AdminFair") = True Then %> Skivmässorna
<% End If %> <% If RSUser("AdminShop") = True Then %> Försäljarna
<% End If %> <% If RSUser("AdminCountry") = True Then %> Länderna
<% End If %> <% If RSUser("AdminMember") = True Then %> Medlemmarna
<% End If %> <% If RSUser("AdminNews") = True Then %> Nyheterna
<% End If %> <% If RSUser("AdminArticle") = True Then %> Artiklarna
<% End If %> <% If RSUser("AdminRelease") = True Then %> Skivreleaserna
<% End If %> <% If RSUser("AdminConcert") = True Then %> Konserterna
<% End If %> <% If RSUser("AdminForum") = True Then %> Forumet
<% End If %> <% If RSUser("AdminPoll") = True Then %> Snabbfrågan
<% End If %> <% If RSUser("AdminHistory") = True Then %> Musikhistorian
<% End If %> <% End If %>

Är Moderator för:
<% If RSMod.EOF Then %> - <% Else %> <% Do Until RSMod.EOF strMainCat = RSMod("CatID") Set RSMainCat = Server.CreateObject("ADODB.Recordset") MainCat = "SELECT * FROM tblForumCat WHERE ID = " & strMainCat & " " RSMainCat.Open MainCat, Connect, adOpenStatic, adLockOptimistic %> <% =RSMainCat("Name") %>
 <% RSMod("Name") %>
<% RSMainCat.Close strMainCat = Nothing RSMod.MoveNext Loop RSMod.EOF %> <% End If %>


Lite statistik:
Besökt på Sb.Nu: <% =RSUser("NoVisit") %>
<% =RSUser("NoShow") %> personer har tittat här.

Forumet:
 Startade trådar: <% =RSUser("NoThread") %>
 Svar: <% =RSUser("NoPost") %>
 Poäng: <% =RSUser("NoPoints") %>

Annonser (Totalt): <% =RSUser("NoClass") %>
Annonser (Aktiva): <% =RSUser("NoClassActive") %>
Chatten: <% =RSUser("NoChat") %>
Länktips: <% =RSUser("NoTipLink") %>
Gästboksinlägg: <% =RSUser("NoGuest") %>
<% RSUser.Close Set RSUser = Nothing %>