<%@LANGUAGE="VBSCRIPT"%> <%session.lcid=2057%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="True" MM_authFailedURL="adminfail.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim XTcurrentuser Dim XTcurrentuser_numRows Set XTcurrentuser = Server.CreateObject("ADODB.Recordset") XTcurrentuser.ActiveConnection = MM_xtralitesecure_STRING XTcurrentuser.Source = "SELECT XTusername, XTfirstname, XTlastname, XTcompany, XTadmin FROM uid WHERE XTusername = '"&Session("MM_UserName")&"'" XTcurrentuser.CursorType = 0 XTcurrentuser.CursorLocation = 2 XTcurrentuser.LockType = 1 XTcurrentuser.Open() XTcurrentuser_numRows = 0 %> Xtralite Rooflights -- Daylight by Design

Downloads secure area: Administration

You are currently logged in as <%=(XTcurrentuser.Fields.Item("XTfirstname").Value)%> <%=(XTcurrentuser.Fields.Item("XTlastname").Value)%> from <%=(XTcurrentuser.Fields.Item("XTcompany").Value)%>, if this is not you, or you should not have administration rights to this server then you must logout immediately.

These administration tools allow you to control the registered users of the Xtralite website secure area. What would you like to do?

Add a new user
View/amend/delete an existing user
Add new CAD component
Amend/delete existing CAD component
Upload CAD/PDF and/or thumbnail image

Access Logs

View all access since logs started (2nd January 2009)
View access logs for last 30 days
View access logs for last 7 days

Note that the all access logs report may take a long time to load as there could be a lot of data in the logs.

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