<% response.CacheControl="Private" server.scripttimeout=100000 if Request.ServerVariables("REMOTE_ADDR")="217.33.194.194" then response.redirect("http://www.yahoo.com") end if response.write "" response.write "" %><% set mydb=server.createobject("ADODB.CONNECTION") ' mydb.open "DSN=UKCONE" 'response.write mydb.connectionstring cst="PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=213.171.193.129;UID=paulc;PWD=snozzy1;DATABASE=UKCONE" mydb.ConnectionTimeout = 60 mydb.CommandTimeout = 60 mydb.open cst if request("logout")<>"" then response.Cookies("myukc").expires=date-100 session.abandon session("user")="" bRefresh=true end if ' this is the main login script that verifies the user is valid if request("emailaddress") <>"" or request("Password")<>"" and request("loginform")="YES" then session("user")="" set conntemp=nothing set conntemp=server.createobject("adodb.connection") dsntemp="DSN=UKCONE" conntemp.Open cst bflag=false set rsTemp=conntemp.execute("SELECT id,companyname,emailaddress,password,userstatus FROM myukc where emailaddress='" & request("emailaddress") & "' AND password='" & request("password") & "'") bShowControlPanel=false if rsTemp.eof then session("user")="" bFlag=true else bShowControlPanel=true session("user")=rsTemp("id") session("companyname")=rsTemp("companyname") & "" session("MyUKCCompany")=rsTemp("companyname") & "" session("userstatus")="11111" bRefresh=true end if end if if request("testmode")<>"" then session("testmode")="YES" end if server.scripttimeout=200000 %> <% if session("loggedout")="yes" then session("user")="" session("MyUKCCompany")="" session("id")="" response.Cookies("myukc").expires=date-100 session("autologin")="" session("loggedout")="" end if if request("r")<>"" Then response.redirect(request("r")) end if if request("user")<>"" then ' transferred from myukc session("user")=request("user") ' look up the company name set conntemp=nothing set conntemp=server.createobject("adodb.connection") DSNTemp="DRIVER={Microsoft Access Driver (*.mdb)}; " dsntemp="DSN=UKCONE" conntemp.Open DSNTemp set rsTemp=conntemp.execute("SELECT * FROM myukc where id=" & session("user")) if not rsTemp.eof then session("MyUKCCompany")=rsTemp("CompanyName") & "" end if set rstemp=nothing response.redirect("default.asp") end if if session("autologin")="yes" then response.Cookies("myukc")="Welcome" response.Cookies("myukc")("user")=session("email") response.Cookies("myukc")("pass")=session("password") response.Cookies("myukc").expires=date+365 session("autologin")="" end if %> <% STATS %> <% response.write("Welcome to UK Construction.com the UK Construction Industry Website. Jobs, Software and Much More") if request("m")="" then sTitle=request("t") sKeywords=request("k") if sTitle="" then sTitle="UK Construction Industry Website - www.ukconstruction.com - Construction Insurance, Jobs and much more" if sKeywords="" then sKeywords="uk construction industry, construction in the United Kingdom, surrey construction, builders, plumbers, building and construciton, zurich trade, zurich insurance, employers and public liability" response.write("") response.write("") end if %> <% if request("f")<>"fset" then %> <% if request("f")="" then %> <% else %> <% end if %> <% else ' Frameset response.write("") response.write("") response.write("") response.write("") end if sFunction=request("F") select case sFunction case "newsfeed" %> <% case "newnumber" %> <% case "freeadvice" %> <% case "surv" %> <% case "postnew" %> <% case "srch" %> <% case "searchsite" %> <% case "wp2" %> <% case "joinlist" %> <% case "board.asp" %> <% case "webdir" %> <% case "reg" %> <% case "l" ' Load a page %> <% case "fset" case "jobview" %> <% case "softwareview" %> <% case else %> <% end select if request("f")<>"srch" then if request("f")<>"fset" then %> <% titletable("
Copyright 1998-" & year(date) & " UK Construction.com Ltd All Rights Reserved : Email sales@ukconstruction.com
") end if set rsTemp=nothing set rst=nothing end if if session("message")<>"" then %> <% end if session("message")="" %>