<% dim db set db = server.createobject("ADODB.connection") 'db.open "Driver={MySQL}; Server=sql.megasqlservers.com; uid=dbm.cfaw.ca; pwd=wolverine; database=buyers_cfaw_ca; option=3" db.open "DSN=CFAW;uid=sa;pwd=tang0h" dim sql, rs sql = "SELECT * FROM users WHERE uname = '"&request("email")&"' AND pword = '"&request("password")&"'" set rs = server.createobject("ADODB.recordset") rs.open sql, db if rs.eof and rs.bof then response.redirect "index.asp?id1=4&value=1" else session("u") = rs("uname") session("p") = rs("pword") session("name") = rs("fname") & " " & rs("lname") response.redirect "index.asp?id1=5" end if rs.close set rs = nothing db.close set db = nothing %>