[blue]
[green]' get [b]userid[/b] and [b]password[/b] thru form SUBMIT[/green]
userid = Request.Form("userid")
userpassword = Request.Form("userpassword")
currentdatetime = Now
Set oConn = Server.CreateObject("ADODB.connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" + _
"Data Source=C:\MyDir\MyDB.mdb;"
set RS = server.CREATEOBJECT("ADODB.Recordset")
Rs.cursortype = 1
Rs.cursorlocation = 2
Rs.locktype = 3
Rs.Open "select * from MyPasswordTable where UserID='" + _
userid + "'", oConn
if Rs.EOF then
response.write "Sorry, you're not a registered user."
else
if userpassword<>Rs("userpassword") then
response.write "Incorrect password!"
else
if currentdatetime > Rs("ExpDateTime") then
response.write "Hi, " + userid + "!<br>"
response.write "Your current password has expired.<br>"
response.write "You'll have to enter a new password."
else
response.write "Your current password is still valid."
end if
end if
end if
Rs.Close
oConn.Close
[/blue]