<% If LCase(Request.Cookies("IWGalleryAccess")) <> "amministratore" Then Response.Redirect("logout.asp?reason=Accesso negato") %> <% Dim rsLogged__MMColParam rsLogged__MMColParam = "0" If (Request.Cookies("IWGalleryUserName") <> "") Then rsLogged__MMColParam = Request.Cookies("IWGalleryUserName") End If %> <% Set rsLogged = Server.CreateObject("ADODB.Recordset") rsLogged.ActiveConnection = MM_connIWGallery_STRING rsLogged.Source = "SELECT * FROM USERS WHERE USE_NAME = '" + Replace(rsLogged__MMColParam, "'", "''") + "'" rsLogged.CursorType = 0 rsLogged.CursorLocation = 2 rsLogged.LockType = 1 rsLogged.Open() %>

Benvenuto, <%=(rsLogged.Fields.Item("USE_FIRST").Value)%> | Profilo | Logout

<%= Server.HTMLEncode(DoDateTime( Date() , 1, -1)) %>

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