<%@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 XToldsubhead DIM XTsubheadprint XToldsubhead="XXX" %> <% 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 AllCAD Dim AllCAD_numRows Set AllCAD = Server.CreateObject("ADODB.Recordset") AllCAD.ActiveConnection = MM_xtralitesecure_STRING AllCAD.Source = "SELECT * FROM cad ORDER BY CADcategory, CADreference" AllCAD.CursorType = 0 AllCAD.CursorLocation = 2 AllCAD.LockType = 1 AllCAD.Open() AllCAD_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 AllCAD_numRows = AllCAD_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 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.

 

AMEND/DELETE CAD COMPONENT

 

Please select the component to amend or delete (use Ctrl+F to find a component):

 

<% While ((Repeat1__numRows <> 0) AND (NOT AllCAD.EOF)) %>

<% if XToldsubhead<>AllCAD.Fields.Item("CADcategory").Value then if AllCAD.Fields.Item("CADcategory").Value="METKERB" then XTsubheadprint="Standard Metal Kerbs" end if if AllCAD.Fields.Item("CADcategory").Value="ADAPKERB" then XTsubheadprint="Standard Adaptor Kerbs" end if if AllCAD.Fields.Item("CADcategory").Value="PVCKERB" then XTsubheadprint="Standard PVCU Kerbs" end if if AllCAD.Fields.Item("CADcategory").Value="XL3000STD" then XTsubheadprint="XL3000 PVC Kerbs" end if if AllCAD.Fields.Item("CADcategory").Value="XL3000PLUS" then XTsubheadprint="XL3000+ PVC Kerbs" end if if AllCAD.Fields.Item("CADcategory").Value="PROTMETAL" then XTsubheadprint="Protectolite: Metal Kerb" end if if AllCAD.Fields.Item("CADcategory").Value="PROTADAP" then XTsubheadprint="Protectolite: Adaptor Kerb" end if if AllCAD.Fields.Item("CADcategory").Value="PROTPVC" then XTsubheadprint="Protectolite: PVCU Kerb" end if if AllCAD.Fields.Item("CADcategory").Value="PROTLITE" then XTsubheadprint="Protectolite: Adoptorlite Kerb" end if if AllCAD.Fields.Item("CADcategory").Value="CONTMETAL" then XTsubheadprint="Continuous Metal Kerbs" end if if AllCAD.Fields.Item("CADcategory").Value="GLASSFIBRE" then XTsubheadprint="Standard Glass Fibre Kerbs" end if if AllCAD.Fields.Item("CADcategory").Value="PROTGLASS" then XTsubheadprint="Protectolite: Glass Fibre Kerbs" end if if AllCAD.Fields.Item("CADcategory").Value="CIRCULAR" then XTsubheadprint="Circular: Glass Fibre Kerbs" end if if AllCAD.Fields.Item("CADcategory").Value="APPSINGLE" then XTsubheadprint="Rooflight Applications: Single Skin" end if if AllCAD.Fields.Item("CADcategory").Value="APPDOUBLE" then XTsubheadprint="Rooflight Applications: Double Skin" end if if AllCAD.Fields.Item("CADcategory").Value="APPTRIPLE" then XTsubheadprint="Rooflight Applications: Triple Skin" end if if AllCAD.Fields.Item("CADcategory").Value="STRUCTURAL" then XTsubheadprint="Structural Rooflight" end if response.write ("

") end if XToldsubhead=AllCAD.Fields.Item("CADcategory").Value %>
"&XTsubheadprint&"

<%=(AllCAD.Fields.Item("CADreference").Value)%>

<%=(AllCAD.Fields.Item("CADtitle").Value)%>
<%=(AllCAD.Fields.Item("CADdescription").Value)%>

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

 

 

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