<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% session("beampass") = request.Form("beampass") if len(session("beampass")) < 6 then session("beampass") ="££" end if %> <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("accesskey.txt"), 1) session("accesskey")=(f.ReadAll) f.Close Set f=Nothing Set fs=Nothing %> Securatek Solutions Ltd : Secure Download Area

Members & Downloads

In this section we have software/ updates and user manuals these are available to our customers and staff so you’ll need to enter a password to access them. Contact a member of the team if you don’t have these details.

<% if request.Form("beampass") <> "" then%> <% If InStr(1, session("accesskey"), session("beampass")) < 1 then %> <% if session("beampass") <> "" then If InStr(1, session("accesskey"), session("beampass")) < 1 then 'if session("accesskey")<>session("beampass") then response.write "Your password does not appear to be valid, please try again.
If you continue to experience this problem, please contact Securatek Solutions Ltd.
" end if end if %> <% end if %><% end if %>

<% If InStr(1, session("accesskey"), session("beampass")) > 1 then %>
Please click on a Folder listed below
 
<% Whichfolder=server.mappath("\members") &"/" Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Whichfolder) Set fc = f.subfolders For Each f1 in fc Response.write "") Next %>
 
<% end if %>
focused on Customer Satisfaction

 

 

 

 

 

 

 

 

 

home | about us | products & services | finance & leasing | book a survey | case study | members & downloads | contact us

site designed by momentum