THIS IS NOT WORKING
Can you figure out why??
When a name in the database is not found, the page produces this error and it should not.
************************************
ERROR
Response object error 'ASP 0158 : 80004005'
Missing URL
/SITE/verify.asp, line 29
A URL is required.
************************************
<% @LANGUAGE = "VBScript" %>
<% Response.Buffer = True %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
sql="select * from logins"
Dim RSlogin
set RSlogin=server.createobject("adodb.recordset"

RSlogin.open sql, "dsn=mydb1"
if not RSlogin is nothing then
RSlogin.movefirst()
exitcondition = false
while not RSlogin.eof and not exitcondition
if RSlogin("UserName"

= Request.Form("username"

then
if RSlogin("PassWord"

= Request.Form("password"

then
defaultsite = RSlogin("DefaultSite"

Session("userid"

= RSlogin("ID"

exitcondition =true
end if
end if
RSlogin.MoveNext
wend
end if
if Session("userid"

<> "" and not IsEmpty(Session("userid"

) then
response.redirect defaultsite
else
Response.write "<b><font color=""red"">Inccorect Login Please try again</font></b>"
Response.flush
end if
%>
</BODY>
</HTML>
<% Response.End %>
Tony
