% 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") %> |