|
|
|
<% 'Response.Write Request.Form("cmdLogin")
if Request.Form("cmdLogin")="Login" then
if Request.Form("txtUsername")="" then
Response.Write "Please enter User Name"
elseif Request.Form("txtPassword")="" then
Response.Write "Please enter Password"
else
dim Con,Rs
set Con=Server.CreateObject("ADODB.Connection")
Con.CursorLocation = 3
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\rajaneesh\website\bion\BION.MDB;Persist Security Info=False"
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open "Select Username,Password from Users1 where Username='" & Request("txtUsername") & "' and Password='" & Request("txtPassword") & "'",Con
if Rs.RecordCount >0 then
Response.Redirect("loggedin.htm")
'Response.Write "Success"
else
Response.Write "Invalid User Name/Password"
end if
end if
end if
%>
|
|
|