<% dim DRV, DBQ, CS, oC, oRS
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")
%>
Welcome
<%
dim SQL
dim uname, pass, validated, username, password, email, lvDate
dim fName, lName
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
on error goto 0
set oRS = oC.execute(SQL)
uname = request.form("uname")
pass = Request.Form("pass")
do until oRS.eof
username=oRS("username")
if (uname=username)then
validated=true
exit do
end if
oRS.movenext
loop
if validated then %>
<% =uname %> is already a registered user.
<% else %>
<% SQL = "insert into users values('" & uname & "','" & pass & "',NULL,NULL,NULL,NULL)" %>
<% =SQL %>
<% oRS.close
set oRS=nothing %>
<% oC.Execute(SQL) %>
<% end if %>
closing data base
<%
oC.close
set oC=nothing
response.write("database closed")
end if
%>