<%@ Language=VBScript %> <%Response.Buffer=True%> <% Response.Redirect("supply_list.asp") error="" If Request.QueryString("CNC")<>"" then error="In order to log in to the Wades Bindery On-Line ordering area, your browser must have 'Cookies' enabled.
" error=error & "This Site uses 'Cookies' to prevent unauthorized use of your account.
" error=error & "Enabling 'Cookies' will not allow access to your hard-drive and this site can only access 'Cookies' that it creates.

" error=error & "For more information, please refer to the 'Help' information provided by your browser.

" End If If Request.Form("hidLog")="true" then If Trim(Request.Form("txtUsername"))<>"" And Trim(Request.Form("txtPassword"))<>"" then OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") lsql="SELECT CustomerID,txtUserName,txtPassword,nCountry FROM Customers WHERE txtUserName='" & Trim(Request.Form("txtUsername")) & "'" rs.Open lsql,DB,1,3 If rs.EOF then rs.Close error="Sorry, the username " & Request.Form("txtUsername") & " does not exist.
Please try again or email our System Administrator if the problem continues." Else If rs("txtPassword")<>Trim(Request.Form("txtPassword")) then rs.Close error="Sorry, the password as entered is incorrect.
Please try again or click here to have it emailed to you." Else CID=rs("CustomerID") If rs("nCountry")=1 then curopt=1 Else curopt=2 End If rs.Close Response.Cookies("wades")("logged")="TRUE" Response.Cookies("wades")("cid")= CID Response.Cookies("wades")("curopt")= curopt Response.Cookies("wades").Expires = Now() + 365 Response.Redirect("cookiecheck.asp?CID=" & CID) End If End If Else error="A Username and a Password are required to login.
Don't have an account? Click here" End If End If %>

<%If error<>"" then%> <%End If%>

Order your supplies on-line!! If you already have a customer account, just login below. Need an account? Click here. Just browsing? You can view our selection here.

<%=error%>

Username: Password: Psssssst...forget your password? Click here