<%if request("submit") = "Log In" then set rs = server.CreateObject("ADODB.RECORDSET") rs.open "SELECT DealerID,DealerPercentOff,DealerPWord,DealerPO from tblDealers where (DealerUname ='" & replace(request("DealerUName"),"'","''") & "')", conn if not rs.bof then if request("DealerPWOrd") = rs("DealerPWord") then session.Timeout = 120 session("DealerID") = rs("DealerID") session("DealerPO") = rs("DealerPO") session("DealerPercentOff") = round(cdbl(rs("DealerPercentOff"))/100,3) rs.close set rs=nothing response.redirect("/cart/vents_cart_a.asp") else errFlag = "True" end if else errFlag = "True" end if rs.close set rs=nothing end if%> Ridgefield Industries - Your Online Wood Flooring Source

 

Please enter your user name and password to login to receive your discount.

<%if errFlag = "True" then%>

You have entered an invalid user name/password.

<%end if%>
User Name:
Password:
 


 
If you do not yet have a dealer account and would like to establish one,
submit this brief form and we will be in touch with you shortly.
Name:
  
Company:
  
Phone:
  
E-Mail:
  
Comments:
  
   
     
 
             
 
<%conn.close set conn=nothing%>