|
<%
dim pass2,strPath
dim uname1
dim obj
dim conn
dim sql
uname1=Request.Form("uname")
pass2=Request.Form("password")
%>
<%
set conn= server.CreateObject("ADODB.Connection")
set obj =server.CreateObject("ADODB.recordset")
strPath = server.MapPath ("../proj.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strPath
sql="select * from oicc1 where password='" & pass2 & "' and uname='" & uname1 & "'"
set obj=conn.Execute(sql)
if obj.EOF then
Response.Write"The password or urser name is incrorect"
else%>
<%Response.Write(" ")
end if
%>
|
|
