<%@LANGUAGE="VBSCRIPT"%>
<%
function datetoString()
dim theDate, strDate
strDate = ""
thedate = CStr(CDbl(Now))
for n = 1 to len(theDate)
strDate = strDate & CStr(Asc(Mid(theDate,n,1)))
next
datetoString = strDate
end function
%>
<%
Session("srsession") = datetoString()
%>
<%
if CStr(Session("srsession")) ="" then
Response.Redirect("cookiesenable.htm")
end if
'%>
<%
if CStr(Request.Form("password")) <> "" then
Session("email") = Request.Form("email")
Session("password") = Request.Form("password")
end if
%>
<%
if (Request.Form("email") <> "") then %>
<%
Dim rsUser__strEmail
rsUser__strEmail = "z"
if (Request.Form("email") <> "") then rsUser__strEmail = Request.Form("email")
%>
<%
Dim rsUser__strPassword
rsUser__strPassword = "z"
if (Request.Form("password") <> "") then rsUser__strPassword = Request.Form("password")
%>
<%
set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.ActiveConnection = MM_stairrods_STRING
rsUser.Source = "SELECT * FROM TRADER WHERE email = '" + Replace(rsUser__strEmail, "'", "''") + "' AND password = '" + Replace(rsUser__strPassword, "'", "''") + "'"
rsUser.CursorType = 0
rsUser.CursorLocation = 2
rsUser.LockType = 3
rsUser.Open()
rsUser_numRows = 0
%>
<%
If Not rsUser.EOF Or Not rsUser.BOF Then
Session("login")=true
Response.Redirect("checklogin.asp")
else
Response.Redirect("sorry.htm")
end if
%>
<%end if%>
Stairrods UK - Dealer Login
<%if (Request.Form("email") <> "") then %>
<%
rsUser.Close()
%>
<% end if %>