stevanicus
12-16-2007, 12:00 PM
heya,
could anyone tell me whats wrong with this code.
thanks
<%
Set my_conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
my_conn.Open "DSN=mysql_dsn"
DIM mySQL, user, pass, submit, delete
user = request.form("username")
pass = request.form("userpass")
submit = request.form("submit")
delete = request.form("delete")
if user<>"" and pass<>"" then
call checkUser()
end if
sub checkUser()
mySQL = "SELECT userName From customers WHERE userName='"&user"';"
Set rs = my_conn.Execute(SQL)
if rs("userName")=user then
Reponse.Write("Found User "&user)
end if
end sub
Set rs = Nothing
Set my_conn = Nothing
%>
could anyone tell me whats wrong with this code.
thanks
<%
Set my_conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
my_conn.Open "DSN=mysql_dsn"
DIM mySQL, user, pass, submit, delete
user = request.form("username")
pass = request.form("userpass")
submit = request.form("submit")
delete = request.form("delete")
if user<>"" and pass<>"" then
call checkUser()
end if
sub checkUser()
mySQL = "SELECT userName From customers WHERE userName='"&user"';"
Set rs = my_conn.Execute(SQL)
if rs("userName")=user then
Reponse.Write("Found User "&user)
end if
end sub
Set rs = Nothing
Set my_conn = Nothing
%>