Error #3704: Operation is not allowed when the object is closed

campbemr · Aug 16, 2001

I got this application from a book and when I try and run it I get an error. Below is the source for the placead.asp. This is the one I get the error on. The link for the website is:

http://www24.brinkster.com/campbemr/placead.asp

<% Option Explicit %>

<html>
<body bgcolor="#FFFFFF" vlink=red>

<p>

<%
' The first time this page is retrieved and any time it is
' submitted without being completely filled out, the form
' is displayed. If it is submitted and completely filled out
' the form is processed in the Else clause.
If Request("Item&quot

="" Or Request("Description&quot

="" Or _
Request("Price&quot

="" Or Request("Phone&quot

="" Or _
Request("Email&quot

="" Or Request("State&quot

="" Then
%>
<% ShowHeader "Place A New Ad" %>
Please fill in all of these fields below. Be sure to choose
an appropriate Category for your item.<p>
Be careful when entering a Password and be sure to remember what
you type. You will be required to enter the password later to
identify you if you need to edit or delete this ad.<p>
When you are finished, click the Place Ad button.<p>

<form method="POST" action="placead.asp">
<table>
<tr><td>Item:</td>
<td><input type="text" size="50" name="Item"></td></tr>
<td valign=top>Description:</td>
<td><textarea name="Description" rows="6" cols="50"></textarea></td></tr>
<tr><td>Category:</td>
<td> <select name="Category" size="1">
<option selected value="VEHICLES">Vehicles</option>
<option value="COMPUTERS">Computers/Software</option>
<option value="REALESTATE">Real Estate</option>
<option value="COLLECTIBLES">Collectibles</option>
<option value="GENERAL">General Merchandise</option>
</select></td></tr>
<tr><td>Price:</td>
<td><input type="text" size="10" name="Price">
</td>
</tr>
<tr><td>Phone</td>
<td><input type="text" size="15" name="Phone">
</td>
</tr>
<tr><td>Email:</td>
<td><input type="text" size="50" name="Email">
</td>
</tr>
<tr><td>State:</td>
<td><input type="text" size="2" name="State">
</td>
</tr>
<tr><td>Password:</td>
<td><input type="password" size="50" name="Password">
</td>
</tr>
<tr><td><input type="submit" value="Place Ad"></td></tr>
</table>
</form>

<% Else %>
<%
Dim Query, Connect, Classifieds, Place

ShowHeader "Place A New Ad"

On Error Resume Next
%>
<font size=5><b>CATEGORY: <%=Request("Category&quot

%></b></font>
<%
ShowItem Request("Item&quot

,Request("Description&quot

,_
Request("Price&quot

,Request("Phone&quot

,Request("Email&quot

,_
Request("State&quot

,Date

Set connect = Server.CreateObject("ADODB.Connection&quot

'DSN-less connection
'Database must be named classified.mdb
dsnname = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
dsnname = dsnname & Server.MapPath("db/classified.mdb&quot

connect.Open dsnname

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

Classifieds.Open _
"SELECT * FROM Items WHERE Category='" & _
Request("Category&quot

& "'",_
Connect,adOpenDynamic,adLockOptimistic
Classifieds.AddNew
Classifieds("Item&quot

= Request("Item&quot

Classifieds("Category&quot

= Request("Category&quot

Classifieds("Description&quot

= Request("Description&quot

Classifieds("Price&quot

= Request("Price&quot

Classifieds("Phone&quot

= Request("Phone&quot

Classifieds("Email&quot

= Request("Email&quot

Classifieds("State&quot

= Request("State&quot

Classifieds("Posted&quot

= Date
Classifieds("Password&quot

= Request("Password&quot

Classifieds.Update
If Err.Number = 0 Then %>
<font size=5><i>Your classified ad has been placed.</i></font><p>
<a href="default.asp">Home</a><p>
<% Else %>
There was an error placing your ad.<p>
Error #<%=Err.Number%>: <%=Err.Description%><p>
<% End If %>
<% End If %>

</body>
</html>

bassguy · Aug 16, 2001

Hi, I think the error is in the "connect.Open dsnname" statement. You have not got a SQL statement querying your database so the file does not open hence your error. I think you may have missed a few lines transcribing the code because I see you have a dim statement a few lines earlier "Dim Query, Connect, Classifieds, Place" the variable Query looks like it should be the SQL statement you are passing to the database.....but there is not any other reference to that variable in any of your code...

it should look something like :

query="select * from tablename"
connect.open query,dsnname

there appears to be another problem in that I cannot figure out what the whole section after the "Dim Query, Connect, Classifieds, Place" until "connect.open dsnname" is for anyway...you are making a connection but not displaying any data from the database..did you maybe insert the middle of a different page into this page....anyway...the thing is a bit of a mess...
Maybe ifg you check it and clarify what it is and it is supposed to do.....

bassguy

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!

Error #3704: Operation is not allowed when the object is closed

campbemr

Technical User

bassguy

Programmer

Similar threads

Part and Inventory Search

Sponsor