<%@LANGUAGE="VBSCRIPT"%> <%session.lcid=2057%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true 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 %> <% XTpassedsub = Replace (request.QueryString("XTsubtitle"), "--", "—") ' XTpassedsub = "Manually set" XTfilter = request.QueryString("CADcategory") %> <% Dim XTcurrentuser Dim XTcurrentuser_numRows Dim User__MMColParam User__MMColParam = "1" if (Session("MM_UserName") <> "") then User__MMColParam = Session("MM_UserName") 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 %> <% Dim CADfiles Dim CADfiles_numRows Set CADfiles = Server.CreateObject("ADODB.Recordset") CADfiles.ActiveConnection = MM_xtralitesecure_STRING CADfiles.Source = "SELECT * FROM cad WHERE InStr(CADcategory,'"&XTfilter&"')>0 ORDER BY CADtitle ASC" CADfiles.CursorType = 0 CADfiles.CursorLocation = 2 CADfiles.LockType = 1 CADfiles.Open() CADfiles_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 CADfiles_numRows = CADfiles_numRows + Repeat1__numRows %> <% ' Write a log entry sub WriteLog Dim XTuser Dim XTitem Dim XT_editCmd XTuser = Session("MM_Username") XTitem = "Index of " & XTpassedsub Set XT_editCmd = Server.CreateObject ("ADODB.Command") XT_editCmd.ActiveConnection = MM_xtralitesecure_STRING XT_editCmd.CommandText = "INSERT INTO AccessLogs (LogUser, LogItem) VALUES ('"&XTuser&"', '"&XTitem&"')" XT_editCmd.Prepared = true XT_editCmd.Execute XT_editCmd.ActiveConnection.Close end sub %> Rooflight CAD downloads from Xtralite Rooflights

Downloads

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 then please logout immediately.<%if (XTcurrentuser.Fields.Item("XTadmin").Value)="True" then Response.Write(" You are an administrator of this site and can make database amends now.")%>

CAD DIAGRAMS: <%= XTpassedsub %>

<% If Not CADfiles.EOF Or Not CADfiles.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT CADfiles.EOF)) %>

<% XTimage="cad/"&(CADfiles.Fields.Item("CADthumbnail").Value) XTcad="cad/"&(CADfiles.Fields.Item("CADfilename").Value) XTpdf="cad/"&(CADfiles.Fields.Item("PDFfilename").Value) %> class="img_cad_thumb">	<%=(CADfiles.Fields.Item("CADtitle").Value)%>			<% if XTcad<>"cad/NONE" then Response.Write("") end if %>
	<%=(CADfiles.Fields.Item("CADdescription").Value)%>
	Part code: <%=(CADfiles.Fields.Item("CADreference").Value)%>	Revision: <%=(CADfiles.Fields.Item("CADversionnumber").Value)%>	Issued: <%=(CADfiles.Fields.Item("CADissuedate").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 CADfiles.MoveNext() Wend %>

<< Return to category list

<% End If ' end Not CADfiles.EOF Or NOT CADfiles.BOF %>

<% If CADfiles.EOF And CADfiles.BOF Then %>

Currently there are no CAD diagrams for this category. Go back to select another category.

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

<% WriteLog %>

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