Microsoft VBScript runtime error '800a01a8' object

stevesole · June 4th, 2004, 10:31 AM

Hi i am trying to build an updatable profile area for members

but am getting

Microsoft VBScript runtime error '800a01a8'

Object required: '[string: "utown"]'

/myspace/edit_userloc.asp, line 31

when i run this bit of code :

username = Request.cookies("isLoggedInAs")("username")

   town = cstr(Request.form("utown"))
   postcode = cstr(Request.form("upostcode"))
   alerts = cstr(Request.form("alerts"))

   set racDB = Server.CreateObject("ADODB.Connection")
   racDB.Open "rac"

   set insertset = Server.CreateObject("ADODB.RecordSet")
   insertset.Open "memb_loc", racdb, _
   adOpenstatic, adCmdTable

   if p_existing = "" then
   insertset.AddNew
   else

   updateset.Find "username =" &p_existing

    end if

    set town = "utown"
    set postcode = upostcode
    set("alerts") = alerts

    updateset.Update
    updateset.Close
    set insertset = Nothing

    racDB.Close
    set racDB = Nothing

    Response.Clear

this is the form action i am using

<FORM ACTION="edit_userloc.asp" METHOD = "post">
<TABLE>
Town: <INPUT TYPE="text" NAME="utown" size = "30"
VALUE="<%=town%>"><BR>
Postcode: <INPUT TYPE="text" NAME="upostcode" size = "8"
VALUE="<%=postcode%>"><BR>

                                               <div align="left">Send me

                                               <select name="distance" size="1">
                                                    <option value="1">1</option>
                                                    <option value="2">2</option>
                                                    <option value="3">3</option>
                                                    <option value="4">4</option>
                                                    <option value="5">5</option>
                                                    <option value="6">6</option>
                                                    <option value="7" selected>7</option>
                                                    <option value="8">8</option>
                                                    <option value="9">9</option>
                                                    <option value="10">10</option>
                                                  </select>

                                                   text alerts per week</div>

</TABLE>
<Input TYPE="submit" value = "Update">
</FORM>

please help

om_prakash · June 5th, 2004, 02:00 AM

where does line 31 comes in the code?

Check the following code:
updateset.Find "username =" &p_existing

Om Prakash

happygv · June 5th, 2004, 05:30 AM

Hi Stevesole,

    set town = "utown"
    set postcode = upostcode
    set("alerts") = alerts

what are you trying to do in these three line?

Cheers!

_________________________
-Vijay G

Strive for Perfection

stevesole · June 5th, 2004, 07:53 AM

I am trying to view the previous entries for town postcode and alerts and allow for them to be updated on the database. Line 31 is set town = "utown".
i can send you the complete pages if you think you may want to help?
My email steve_steve476@yahoo.com

happygv · June 5th, 2004, 08:12 AM

Hi SteveSole,

I dont see you defining "updateset" anywhere in your code, like you have done for InsertSet

I think you are confusing with the code there.

In the code below I assume that the left part is a recordset object with COLUMN reference set town

and the right part is the value you have retrieved from the FORM "utown"

Code:

    set town = "utown"
    set postcode = upostcode
    set("alerts") = alerts

In the following code, I assume that you Add a new record if profile details does not pre-exist. If it pre-exists then you FIND the exisiting record for which you are using InsertSet and UpdateSet respectively. But you run the Update and Close methods using UPDATESET and setting NOTHING to INSERTSET. How will that work for you?

Code:

if p_existing = "" then
   insertset.AddNew
else
   updateset.Find "username =" &p_existing
end if
    set town = "utown"
    set postcode = upostcode
    set("alerts") = alerts

    updateset.Update
    updateset.Close
    set insertset = Nothing

I think you got to change the code this way.

Code:

if p_existing = "" then
   insertset.AddNew
else
   insertset.Find "username =" &p_existing
end if
    insertset("town") = town
    insertset("postcode") = postcode
    insertset("alerts") = alerts

    insertset.Update
    insertset.Close
    set insertset = Nothing

SET keyword should be used only when you initialize an OBJECT type variable,like this.
set insertset = Server.CreateObject("ADODB.RecordSet")
Cannot be used for assigning a string/int/anyother value to a variable.

Code:

    set town = "utown"
    set postcode = upostcode
    set("alerts") = alerts

This makes sense?
Hope that helps.
Cheers!

_________________________
-Vijay G

Strive for Perfection

stevesole · June 5th, 2004, 08:29 AM

Hi mate
Thanks ever so much for helping me!!
Now i have changed to your code i am getting:

Microsoft VBScript runtime error '800a01a8'

Object required: 'utown'

/myspace/edit_userloc.asp, line 31

Im new to all this as you can see.
I have managewd to get the database adding records but i want a profile page that can be updated and will send an automatic email or sms text message to the user to advise.
If you are interested in helping me more maybe i can offer some money?

are you in India (Bharat?)

i have a yahoo messenger id steve_steve476
if u wanna chat live

cheers

happygv · June 5th, 2004, 08:38 AM

Hi Stevesolo,

Can you please post the code around line 31? I am unable to locate which could be the line giving you that error.

Sorry, No money please. If you really wanna offer me money then send me -.1000$:D
Yes I am from India;)

Cheers!

_________________________
-Vijay G

Strive for Perfection

stevesole · June 5th, 2004, 08:44 AM

Its nice to meet you!!
the whole page code is:

edituser_loc.asp

<%@ LANGUAGE="VBSCRIPT" %>
<% Response.buffer = TRUE %>

<%
if isAdmin then

   username = Request.cookies("isLoggedInAs")("username")

   town = cstr(Request.form("utown"))
   postcode = cstr(Request.form("upostcode"))
   alerts = cstr(Request.form("alerts"))

   set racDB = Server.CreateObject("ADODB.Connection")
   racDB.Open "rac"

   set insertset = Server.CreateObject("ADODB.RecordSet")
   insertset.Open "memb_loc", racdb, _
   adOpenstatic, adCmdTable

   if p_existing = "" then
   insertset.AddNew
   else

   updateset.Find "username =" &p_existing

    end if

    set town = utown
    set postcode = upostcode
    set("alerts") = alerts

    updateset.Update
    updateset.Close
    set insertset = Nothing

    Response.Clear

    Response.Redirect "http://localhost/myspace/myspace.asp"
else

    Response.Write "You do not have access to this page."

end if
%>
</BODY>
</HTML>

The whole page code from the form that sends to this page is myspace.asp

<%@ LANGUAGE="VBSCRIPT" %>
<% pageTitle = "mySpace" %>

<h1 align="center">mySpace</h1>

<TABLE width=100%>
<TR><TD VALIGN="top">

<H2>myProfile</H2>
<% if Request.cookies("isLoggedInAs")("username") = "" then
   'user is not logged in, so they don't get to do anything %>

    This area is only for registered members of Rent a Crowd.
    Please <A HREF="login.asp">log in</A>. Thank you!

<% else

    'Get username for use later.
    p_username = Request.cookies("isLoggedInAs")("username")

    set racDB = Server.CreateObject("ADODB.Connection")
    racDB.open "rac"
    set memset = racDB.Execute("select * from members" & " where username = '"&p_username&"'")

    %>Username:<% Response.write memset("username")&"<BR>"
    %>First name:<% Response.write memset("first_name")&"<BR>"
    %>Surname:<% Response.write memset("last_name")&"<BR>"
    %>Email:<% Response.write memset("email")&"<BR>"
    %>Tel Number:<% Response.write memset("telnumber")&"<BR>"

    set memset = racDB.Execute("select * from memb_loc" & " where username = '"&p_username&"'")
    town = memset("town")
    postcode = memset("postcode")
    alerts = memset("alerts")
    p_existing = username

%>
<FORM ACTION="edit_userloc.asp" METHOD = "post">
<TABLE>
Town: <INPUT TYPE="text" NAME="utown" size = "30"
VALUE="<%=town%>"><BR>
Postcode: <INPUT TYPE="text" NAME="upostcode" size = "8"
VALUE="<%=postcode%>"><BR>

                                               <div align="left">Send me

                                               <select name="distance" size="1">
                                                    <option value="1">1</option>
                                                    <option value="2">2</option>
                                                    <option value="3">3</option>
                                                    <option value="4">4</option>
                                                    <option value="5">5</option>
                                                    <option value="6">6</option>
                                                    <option value="7" selected>7</option>
                                                    <option value="8">8</option>
                                                    <option value="9">9</option>
                                                    <option value="10">10</option>
                                                  </select>

                                                   text alerts per week</div>

</TABLE>
<Input TYPE="submit" value = "Update">
</FORM>
<%
    memset.Close

    set memset = nothing

    racDB.close
    set racDB = nothing
    end if %>

</BODY>
</HTML>
I spent 18 months in India travelled all over such a great country!!

Wanna chat via messenger?

Thanks
steve

om_prakash · June 6th, 2004, 04:36 AM

From where following recordset is coming?

updateset.Find "username =" &p_existing

I think 'updateset' is not declared above.

Om Prakash

happygv · June 7th, 2004, 08:13 PM

Just an update, this has been solved offline.

Cheers!

_________________________
-Vijay G

Strive for Perfection