20 ottobre 2004 alle 23:40:30
Modificato il 20 ottobre 2004 alle 23:45:42

Sub DisplayTopLastMembers(iTop)
Dim oCn, oRs, rSQL, iLine, iLoop, iNum, NumeroIscrittiTipo, rSQL2, oCn2, ors2
Dim bDisplayProfil, sMyLogin, sURL, sEmail


Set oCn = DBConnexion(DB_MAIN)
'rSQL = "SELECT uLogin, uEmail, uURL, uProfile FROM users WHERE uValid=1 ORDER BY uDate DESC"
rSQL = "SELECT users.uLogin, users.uEMail, users.uURL, users.uProfile, users.uGender, users.uValid FROM users WHERE ((users.uGender=1) and (users.uValid=True)) ORDER BY users.uLogin"

rSQL2 = "SELECT sID FROM sessions WHERE sLogin = '" & Server.URLEncode(sMyLogin) & "'"


Set oRs = DBRecordSet(oCn, rSQL)
Set oRs2 = DBRecordSet(oCn, rSQL2)

Response.Write NumeroIscrittiTipo & vbCRLF
iNum = 0

'Response.Write " & GetTranslation(""LANG_ACCOUNTS_TOTAL"") & " : " & iNum & " & vbCRLF



If Not oRs.EOF Then
CreateTopTable "TopMembers", "Lista Uomini Iscritti"

Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td width=""150"">" & GetTranslation("LANG_LOGIN") & "</td>" & vbCRLF
Response.Write " <td width=""80"">" & GetTranslation("LANG_PM") & "</td>" & vbCRLF
Response.Write " <td width=""50"">" & GetTranslation("LANG_PM") & "</td>" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_FOTO") & "</td>" & vbCRLF
'Response.Write " <td width=""200"">" & GetTranslation("LANG_EMAIL") & "</td>" & vbCRLF
'Response.Write " <td>" & GetTranslation("LANG_URL") & "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

iLine = 1
'iLoop = 0

While Not oRs.EOF
bDisplayProfil = oRs("uProfile").Value
sMyLogin = oRs("uLogin")
sURL = oRs("uURL")
sEmail = oRs("uEmail")

' Force view if admin
If IsAuthorizedBin(ROLE_ADMINISTRATOR) Then
bDisplayProfil = True
end if
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td><a href=""" & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.URLEncode(sMyLogin) & """>" & Server.HTMLEncode(sMyLogin) & "</a></td>" & vbCRLF

Response.Write " <td>" & vbCRLF
if Not oRs2.EOF then
Response.Write " <a href=""" & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.HTMLEncode(sMyLogin) & """><img src=""" & GLOBAL_SITE_IMAGES_PATH & "online.gif"" border=""0"" hspace=""2"" alt=""" & GetTranslation("LANG_PROFILE") & " - " & Server.HTMLEncode(sMyLogin) & """></a>"
else
Response.Write " <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.HTMLEncode(sMyLogin) & """><img src=""" & GLOBAL_SITE_IMAGES_PATH & "offline.gif"" border=""0"" hspace=""2"" alt=""" & GetTranslation("LANG_PROFILE") & " - " & Server.HTMLEncode(sMyLogin) & """></a>"
End if
Response.Write "</td>" & vbCRLF


'Response.Write " <td>" & vbCRLF
Response.Write " <td><p align=""center""><a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PRIVATE_MESSAGES_PAGE & "?do=new&to=" & Server.HTMLEncode(sMYLogin) & """ title=""Scrivi messaggio privato"">" & GetTranslation("LANG_SEND_PRIVATE_MESSAGE_BOX") & "</a></p></td>" & vbCRLF
'Response.Write "</td>" & vbCRLF

Response.Write " <td><p align=""right"">"
DisplayAvatar(sMyLogin)
Response.Write "</p></td>" & vbCRLF

Response.Write " </tr>" & vbCRLF

iLine = ((iLine-1) XOr 1) + 1


oRs.MoveNext

iNum = iNum + 1
WEnd

'Response.Write "</table>" & vbCRLF
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td colspan=""3"">" & GetTranslation("LANG_ACCOUNTS_TOTAL_UOMINI") & " : " & iNum & "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</table>" & vbCRLF
CreateBottomTable ""

NumeroIscrittiTipo = iNum

End If

oRs2.Close
Set oRs2 = Nothing


oRs.Close
Set oRs = Nothing

oCn.Close
Set oCn = Nothing
End Sub

21 ottobre 2004 alle 09:49:04
Modificato il 21 ottobre 2004 alle 09:58:01

if oRs("uLogin") = oRs("sLogin") then
Response.Write " <a href=""" & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.HTMLEncode(sMyLogin) & """><img src=""" & GLOBAL_SITE_IMAGES_PATH & "online.gif"" border=""0"" hspace=""2"" alt=""" & GetTranslation("LANG_PROFILE") & " - " & Server.HTMLEncode(sMyLogin) & """></a>"
else
Response.Write " <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.HTMLEncode(sMyLogin) & """><img src=""" & GLOBAL_SITE_IMAGES_PATH & "offline.gif"" border=""0"" hspace=""2"" alt=""" & GetTranslation("LANG_PROFILE") & " - " & Server.HTMLEncode(sMyLogin) & """></a>"
End if