<% If Request.Cookies("IWGalleryUserName") = "" Then Response.Redirect("../home/") %> <% Dim rsProfile__iUser rsProfile__iUser = "0" If (Request.Cookies("IWGalleryUserID") <> "") Then rsProfile__iUser = Request.Cookies("IWGalleryUserID") End If %> <% Dim rsProfile__nUser rsProfile__nUser = "0" If (Request.Cookies("IWGalleryUserName") <> "") Then rsProfile__nUser = Request.Cookies("IWGalleryUserName") End If %> <% Dim rsProfile Dim rsProfile_numRows Set rsProfile = Server.CreateObject("ADODB.Recordset") rsProfile.ActiveConnection = MM_connIWGallery_STRING rsProfile.Source = "SELECT * FROM USERS WHERE USE_ID = " + Replace(rsProfile__iUser, "'", "''") + " AND USE_NAME = '" + Replace(rsProfile__nUser, "'", "''") + "' AND USE_APPROVED = 1 AND USE_ACTIVE = 1" rsProfile.CursorType = 0 rsProfile.CursorLocation = 2 rsProfile.LockType = 1 rsProfile.Open() rsProfile_numRows = 0 %>

Profilo › OK

Login: <%=(rsProfile.Fields.Item("USE_NAME").Value)%> Password: <%=String(Len(rsProfile.Fields.Item("USE_PASSWORD").Value),"*")%> E-mail: "><%=(rsProfile.Fields.Item("USE_EMAIL").Value)%> .gif"> E-mail visibile agli altri Utenti? Nome: <%=(rsProfile.Fields.Item("USE_FIRST").Value)%> Cognome: <%=(rsProfile.Fields.Item("USE_LAST").Value)%> Data di Iscrizione: <%= DoDateTime((rsProfile.Fields.Item("USE_DATED").Value), 2, 2057) %> Accessi: <%=(rsProfile.Fields.Item("USE_HITS").Value)%>

<% rsProfile.Close() Set rsProfile = Nothing %>