<%
if Trim(Request.Form("Submit"))<>"" then
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db1.mdb")
sql="select * from X where User = '"&Trim(Request.Form("textfield"))&"'"
set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.recordcount <> 0 then
session("UserID") =rs("ID")
ThisTime=rs("ThisTime")
rs("LastTime")=ThisTime
rs("ThisTime")=now()
rs.update
response.Redirect "page2.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>