I am sending my answer to this to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
since that group has all ASP programmers. Look for the answer there.
On 9/14/05, mark chestnut <[EMAIL PROTECTED]> wrote:
>
> Ok,
>
> I get this error (db is Access):
>
> error '80020009'
>
> /wholesale/o12register.asp, line 22
>
> *************************************
> <%
> If request("Page") = "2" Then
>
> SQL = "SELECT * FROM Users WHERE Username='" &
> request("Username") & "'"
> Set RS = Server.CreateObject("ADODB.Recordset")
> RS.Open SQL, Conn, 1, 3
>
> If NOT (RS.BOF AND RS.EOF) Then
> Response.redirect "o12register.asp?Username=" &
> request("Username") & "&Name=" & request("Name") &
> "&Email=" & request("Email") &
> "&Error=Username&AreaID=" & request("AreaID")
> End If
>
> RS.Close
> Set RS = Nothing
>
>
> SQL = "SELECT * FROM Areas WHERE AreaID=" &
> request("AreaID")
> Set RS = Server.CreateObject("ADODB.Recordset")
> RS.Open SQL, Conn, 1, 3
>
> 22. If NOT RS("AllowRegister") Then
> Response.redirect "o12register.asp?Username=" &
> request("Username") & "&Name=" & request("Name") &
> "&Email=" & request("Email") &
> "&Error=AllowRegister&AreaID=" & request("AreaID")
> End If
>
> ApprovalRequired = RS("ApprovalRequired")
> LoginUrl = RS("LoginUrl")
>
> If RS("NotifyWhenRegister") Then
> varTo = RSBODY("FromEmail")
> varFrom = RSBODY("FromEmail")
> varEmailComp = RSBODY("EmailComp")
> varSMTPServer = RSBODY("SMTPServer")
> varPasswordEmailSubject = "A new user has
> registered."
> varBody = "A new user has registered for access to
> your protected area."
> Call sendMail(varTo, varFrom, varEmailComp,
> varSMTPServer, varBody, varPasswordEmailSubject)
> End If
>
> RS.Close
> Set RS = Nothing
>
>
> Set RS = Server.CreateObject("ADODB.Recordset")
> RS.Open "Users", Conn, 2, 2
> RS.addnew
> RS("Name") = request("Name")
> RS("Username") = request("Username")
> RS("Password") = request("Password")
> RS("Email") = request("Email")
> RS("ExpDate") = "999999999"
>
> If ApprovalRequired Then
> RS("Status") = "Pending"
> Else
> RS("Status") = "Active"
> End If
>
> RS.update
> RS.close
>
> SQL = "SELECT UserID FROM Users ORDER BY UserID DESC"
> RS.Open SQL, Conn, 1, 3
> UserID = RS("UserID")
> RS.Close
>
> RS.Open "UserArea", Conn, 2, 2
> RS.addnew
> RS("UserID") = UserID
> RS("AreaID") = request("AreaID")
> RS.update
> RS.close
>
> Set RS = Nothing
>
> Response.redirect "o12register.asp?Page=3&LoginUrl="
> & LoginURL
> End If
> %>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
>
> SPONSORED LINKS
> Basic programming
> language<http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Basic+programming+language&w2=Computer+programming+languages&w3=Programming+languages&w4=Java+programming+language&w5=The+history+of+computer+programming+language&c=5&s=176&.sig=clJRDppRYABhs6xUhzokKw>
> Computer
> programming
> languages<http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=Basic+programming+language&w2=Computer+programming+languages&w3=Programming+languages&w4=Java+programming+language&w5=The+history+of+computer+programming+language&c=5&s=176&.sig=RiWZhYTiihJ1rWfeFgB2sg>
> Programming
> languages<http://groups.yahoo.com/gads?t=ms&k=Programming+languages&w1=Basic+programming+language&w2=Computer+programming+languages&w3=Programming+languages&w4=Java+programming+language&w5=The+history+of+computer+programming+language&c=5&s=176&.sig=2BgLsjKfGvxPndstKBMU9g>
> Java
> programming
> language<http://groups.yahoo.com/gads?t=ms&k=Java+programming+language&w1=Basic+programming+language&w2=Computer+programming+languages&w3=Programming+languages&w4=Java+programming+language&w5=The+history+of+computer+programming+language&c=5&s=176&.sig=4wWSX5WKx7BCK9SrMVdrxQ>
> The
> history of computer programming
> language<http://groups.yahoo.com/gads?t=ms&k=The+history+of+computer+programming+language&w1=Basic+programming+language&w2=Computer+programming+languages&w3=Programming+languages&w4=Java+programming+language&w5=The+history+of+computer+programming+language&c=5&s=176&.sig=iNvYp6cfd9HwtDhK1iV-rg>
>
> ------------------------------
> YAHOO! GROUPS LINKS
>
>
> - Visit your group
> "AspNetAnyQuestionIsOk<http://groups.yahoo.com/group/AspNetAnyQuestionIsOk>"
> on the web.
> - To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]<[EMAIL PROTECTED]>
> - Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------
>
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income households are not online. Help bridge the digital divide today!
http://us.click.yahoo.com/cd_AJB/QnQLAA/TtwFAA/saFolB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspNetAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
