<% dim DRV, DBQ, CS, oC, oRS, oCM
DRV = "Driver={Microsoft Access Driver (*.mdb)}; "
DBQ = "DBQ= c:\courses\webprog\usersdb\Users.mdb;"
CS = DRV & DBQ
'on error resume next
'on error goto 0
'set oRS = server.createobject("ADODB.recordset")
'set oCM = server.createobject("ADODB.command")
%>
Welcome
<%
dim SQL
dim uname, pass, validated, username, password
validated = false
SQL = "Select * from users order by username"
on error resume next
'create the connection
set oC = server.createobject("ADODB.connection")
'open the database
oC.open CS
if err.number <> 0 then
response.write("error-")
response.write(err.number & "
")
response.write(err.description)
on error goto 0
%>
<%
else
set oRS = oC.execute(SQL)
uname = request.form("uname")
pass = request.form("pass")
do until oRS.eof
password=oRS("password")
username=oRS("username")
if (uname=username) and (pass=password) then
validated=true
exit do
end if
oRS.movenext
loop
if validated then %>
<% oRS.movefirst
do until oRS.eof %>
| <% = oRS("username") %> |
<% = oRS("email") %> |
<% = oRS("lastname") %> |
<% = oRS("firstname") %> |
<% oRS.movenext
loop %>
Welcome <% =uname %>
<% else %>
Login failed
<% end if %>
closing data base
<%
oRS.close
set oRS=nothing
oC.close
set oC=nothing
response.write("database closed")
end if
%>