Request Object Error 'ASP 0102:80004005' 1

ppedersen1 · Dec 1, 2002

Hello,
I am getting an error which doesn't make sense to me. Firstly, I am trying to get input data and submit it to an Access Database. It works fine until I include a column using a checkbox then it acts weird. The error code I get is:

Request object error 'ASP 0102: 80004005'
Expecting string input
<doc path>, line 22
The function expects a string as input.

I am using the input type="checkbox" name"Update". Then when it goes to the Request.Form portion it doesn't like it. However, it worked with the input type="text items. Any clues? It has got to be something simply. However, I haven't been able to locate it.
Thanks.

Targol · Dec 2, 2002

You should have a function somewhere waiting a string as parameter.
Before, you "fed" it with a textbox.value which returns a string -> All is ok
Since change, you "fed" it with a checkBox.value which is boolean.
May be your error comes from here. Water is not bad as long as it stays out human body ;-)

ppedersen1 · Dec 2, 2002

There are two files which I am using. I have included them here. I changed my columns to relate to cars.

This one is called carsform.asp

<html>
<head>
<title>Cars Database Update Form</title>
</head>
<body>

<form name="form" method="post" action="addcars.asp">
CarType: <input type="text" name="CarType"><br>
Color: <input type="text" name="Color" maxlength="255"><br>
Convertible: <input type="checkbox" name="Convertible" value=""><br>
<input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>

Here is the other file, addtocars.asp

<%
Dim adoCon
Dim rsAddCARS
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection&quot

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("cars.mdb&quot

Set rsAddCARS = Server.CreateObject("ADODB.Recordset&quot

strSQL = "SELECT cars.* FROM cars;"
rsAddCARS.CursorType = 2
rsAddCARS.LockType = 3
rsAddCARS.Open strSQL, adoCon
rsAddCARS.AddNew
rsAddCARS.Fields("CarType&quot

= Request.Form("CarType&quot

rsAddCARS.Fields("Color&quot

= Request.Form("Color&quot

rsAddCARS.Fields("Convertible&quot

= Request.Form("Convertible&quot

rsAddCARS.Update
rsAddCARS.Close
Set rsAddCARS = Nothing
Set adoCon = Nothing
Response.Redirect "cars.asp"
%>

These ASP pages work until it gets to the checkbox item and then it doesn't like it. Do you see anything wrong? Do you have another way it will work. I tried to keep my pages simple. Thanks. I would really like to get this to work. I got some cool pages which display the data but I really need to make it updateable, then I will do the deleteable and editable features. Thanks.

Targol · Dec 2, 2002

What is the data type of the "Convertible" column in "cars" table in your database ? Water is not bad as long as it stays out human body ;-)

ppedersen1 · Dec 3, 2002

It is a checkbox. When you go to design in Access it is a "Yes/No" field.

Falcon99 · Dec 3, 2002

Hi,

Checkboxes behave differently than text boxes. If not checked, nothing comes back. You have to check for both conditions.

What I use is this:

If Request.Form("DTH&quot

= "CHK" Then strDTH = "DTH"
If Len(Request.Form("DTH&quot

) = 0 Then strDTH = ""

Where DTH is the control name and "CHK" is the value.
There may be other ways to handle it but this seems to work for me.
If your data field is a boolean checkbox, values should be set for -1 or 0.

Hope this helps.

ppedersen1 · Dec 3, 2002

Thanks. I believe I get what you are saying...but I'm still a little fuzzy. From the coding that I included above, where should I put the code you propose?

Targol · Dec 3, 2002

Try the following :

Code:

<%
Dim adoCon
Dim rsAddCARS
Dim strSQL
Set adoCon = Server.CreateObject(&quot;ADODB.Connection&quot;)
adoCon.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot;& Server.MapPath(&quot;cars.mdb&quot;)
Set rsAddCARS = Server.CreateObject(&quot;ADODB.Recordset&quot;)
strSQL = &quot;SELECT cars.* FROM cars;&quot;
rsAddCARS.CursorType = 2
rsAddCARS.LockType = 3
rsAddCARS.Open strSQL, adoCon
rsAddCARS.AddNew
rsAddCARS.Fields(&quot;CarType&quot;) = Request.Form(&quot;CarType&quot;)
rsAddCARS.Fields(&quot;Color&quot;) = Request.Form(&quot;Color&quot;)
chkValue = Request.Form(&quot;Convertible&quot;)
if (chkValue=true or chkValue=&quot;true&quot;) Then
  rsAddCARS.Fields(&quot;Convertible&quot;) = &quot;Yes&quot; 
else
  rsAddCARS.Fields(&quot;Convertible&quot;) = &quot;No&quot;
End if 
rsAddCARS.Update
rsAddCARS.Close
Set rsAddCARS = Nothing
Set adoCon = Nothing
Response.Redirect &quot;cars.asp&quot;
%>
[code]
If that doesn't work, try different values for the test and the field. Water is not bad as long as it stays out human body ;-)

ppedersen1 · Dec 4, 2002

Holy Jesus! I spent quite a bit of time on this one. Targol thanks for the code. The values however didn't work. I spent a while trying quite a few "reasonably accurate" values until finally the following worked:

chkValue = Request.Form("Convertible&quot

If chkValue = "0" Then
rsAddCARS.Fields("Convertible&quot

= "true"
else
rsAddCARS.Fields("Convertible&quot

= "false"
Enf If

I also put "Dim chkValue" at the top.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Request Object Error 'ASP 0102:80004005' 1

ppedersen1

Technical User

Targol

Technical User

ppedersen1

Technical User

Targol

Technical User

ppedersen1

Technical User

Falcon99

Programmer

ppedersen1

Technical User

Targol

Technical User

ppedersen1

Technical User

Similar threads

Part and Inventory Search

Sponsor