Hi there
this is the code which i'm doing
<%@ LANGUAGE= "VBSCRIPT"%>
<%
OPTION EXPLICIT
Dim cnnLOGIN
Dim rstLOGIN
dim strUsername, strPassword
dim strSQL
%>
<html background ="gray">
<head>
<title>Login Page</title>
</head>
<%
if request.form("action"
<> "validate_login" then
%>
<form name="LoginForm" action="logincheck.asp" method="post">
<input type="hidden" name="action" value="validate_login">
<table border="0">
<tr>
<td align="right">Login : </td>
<td><input type="text" name="login" size="20"/>
</td>
</tr>
<tr>
<td align="right">Password : </td>
<td><input type="passowrd" name="password" size="20"/>
</td>
</tr>
</table>
</form>
<%
else
strsql="select * from login_ksl WHERE login='" & Request.Form("login"
& "' AND passwd='" & Request.Form("password"
& "';"
set cnnlogin=server.createobject("ADODB.Connection"
cnnlogin.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("login.mdb"
)
set rstlogin=Server.CreateObject("ADODB.recordset"
set rstlogin=cnnlogin.execute(strsql)
if not rstlogin.eof then
%>
<p>
<font color="blue"><strong>Connection is working properly</strong></font>
</p>
<%
else
%>
<p>
<font size="4" face="arial,helvetica" color="Red"><strong>Login Failed - Please verify username and password.</strong></font>
</p>
<p>
<a href="logincheck.asp">Try Again</a>
</p>
<%
end if
rstlogin.close
set rstlogin=nothing
cnnlogin.close
set cnnlogin=nothing
end if
end if
%>
</body>
</html>
