<%@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 XTselect XTselect = "1" If (Request("XTpassedusername") <> "") Then XTselect = Request("XTpassedusername") End If %> <% Dim XTusertoview Dim XTusertoview_cmd Dim XTusertoview_numRows Set XTusertoview_cmd = Server.CreateObject ("ADODB.Command") XTusertoview_cmd.ActiveConnection = MM_xtralitesecure_STRING XTusertoview_cmd.CommandText = "SELECT * FROM uid WHERE XTusername = " & XTselect XTusertoview_cmd.Prepared = true Set XTusertoview = XTusertoview_cmd.Execute XTusertoview_numRows = 0 %> <% Dim XTcurrentuser Dim XTcurrentuser_numRows Set XTcurrentuser = Server.CreateObject("ADODB.Recordset") XTcurrentuser.ActiveConnection = MM_xtralitesecure_STRING XTcurrentuser.Source = "SELECT XTusername, XTfirstname, XTlastname, XTcompany FROM uid WHERE XTusername = '"&Session("MM_UserName")&"'" XTcurrentuser.CursorType = 0 XTcurrentuser.CursorLocation = 2 XTcurrentuser.LockType = 1 XTcurrentuser.Open() XTcurrentuser_numRows = 0 %> <% Dim LogToView Dim LastLogDate ' Get the user name to identify the log entries LogToView = (XTusertoview.Fields.Item("XTusername").Value) ' Seed last date with dummy variable LastLogDate = "xxx" %> <% Dim AccessLog Dim AccessLog_cmd Dim AccessLog_numRows Set AccessLog_cmd = Server.CreateObject ("ADODB.Command") AccessLog_cmd.ActiveConnection = MM_xtralitesecure_STRING AccessLog_cmd.CommandText = "SELECT LogTime, LogItem, LogUser FROM AccessLogs WHERE LOGuser = '"&LogToView&"' ORDER BY LogTime" AccessLog_cmd.Prepared = true Set AccessLog = AccessLog_cmd.Execute AccessLog_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 AccessLog_numRows = AccessLog_numRows + Repeat1__numRows %> 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.

 

VIEW USER

<% if (XTusertoview.Fields.Item("XTdataprotect").Value) = "No" then %>

WARNING! This user has specifically asked NOT to be contacted by Xtralite. You will be in breach of data protection if you contact them based on the information shown on this page.

<% end if %>
First Name <%=((XTusertoview.Fields.Item("XTfirstname").Value))%> 
Surname <%=((XTusertoview.Fields.Item("XTlastname").Value))%> 
Job Title <%=((XTusertoview.Fields.Item("XTjobtitle").Value))%> 
Company <%=((XTusertoview.Fields.Item("XTcompany").Value))%> 
Address <%=(XTusertoview.Fields.Item("XTaddress1").Value)%> 
  <%=(XTusertoview.Fields.Item("XTaddress2").Value)%> 
  <%=(XTusertoview.Fields.Item("XTaddress3").Value)%> 
Town <%=(XTusertoview.Fields.Item("XTtown").Value)%> 
County/Region <%=(XTusertoview.Fields.Item("XTcounty").Value)%> 
Postal Code <%=(XTusertoview.Fields.Item("XTpostcode").Value)%> 
Country <%=(XTusertoview.Fields.Item("XTcountry").Value)%> 
Telephone <%=(XTusertoview.Fields.Item("XTtelephone").Value)%> 
Fax <%=(XTusertoview.Fields.Item("XTfax").Value)%> 
Email ?subject=Xtralite Rooflights"><%=(XTusertoview.Fields.Item("XTemail").Value)%> 
Nature of Business <%=(XTusertoview.Fields.Item("XTbusinessnature").Value)%> 
Username <%=(XTusertoview.Fields.Item("XTusername").Value)%> 
Data Protection <%If (CStr((XTusertoview.Fields.Item("XTdataprotect").Value)) = CStr("Yes")) Then %>It is OK for Xtralite to store this person's details on computer systems<%end if%> <%If (CStr((XTusertoview.Fields.Item("XTdataprotect").Value)) = CStr("No")) Then %>Permission NOT GIVEN for Xtralite to store this person's details on computer systems...DO NOT mail or telephone.<%end if%>  

Notes

 <%=(XTusertoview.Fields.Item("XTnotes").Value)%> 

Date registered

 <%=(XTusertoview.Fields.Item("XTregistereddate").Value)%> 

 

USAGE LOGS

<% If Not AccessLog.EOF Or Not AccessLog.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT AccessLog.EOF)) %> <% if LastLogDate <> left(AccessLog.Fields.Item("LogTime").Value,10) then %>

<% end if %> <% LastLogDate = left(AccessLog.Fields.Item("LogTime").Value,10) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 AccessLog.MoveNext() Wend %>

 <%=(AccessLog.Fields.Item("LogTime").Value)%>

 <%=(AccessLog.Fields.Item("LogItem").Value)%>
<% End If ' end Not AccessLog.EOF Or NOT AccessLog.BOF %> <% If AccessLog.EOF And AccessLog.BOF Then %>

This user has not logged in since access logging started on 2nd January 2009.

<% End If ' end AccessLog.EOF And AccessLog.BOF %>

 

 

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