jlcannon
asked on
Error #3704: Operation is not allowed when the object is closed
I cannot figure out why I am getting that operation error. can someone please look at this and help me out?
Error #3704: Operation is not allowed when the object is closed
Error #3704: Operation is not allowed when the object is closed
<%@ Language=VBScript %>
<!--#include file="includes/adovbs.inc"-->
<!--#include file="includes/ServerFunction.inc"-->
<!--#include file="Tools/userinfo.inc"-->
<%
vMdbFile = Server.MapPath("\virtual\data\EnergySysTC\test.mdb")
vConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security info=False;Data Source=" & vMdbFile
'Open Database Connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open vConnStr
set OpRs = server.createobject("adodb.recordset")
%>
<head>
<meta name="HTML_Retention_Review_Frequency" content="">
<meta name="HTML_Last_Reviewed_Date" content="">
<meta name="HTML_Retention_Period_Start_Date" content="9/29/2008">
<meta name="HTML_Initial_Creation_Date" content="9/29/2008 10:43:54 PM">
<meta name="HTML_Record_Title_ID" content="72">
<meta name="HTML_Information_Classification" content="DOW RESTRICTED - For internal use only">
<meta name="HTML_Content_Steward" content="Cannon J u393451">
</head>
<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")="" Or Request("Description")="" Or _
Request("Price")="" Or Request("Phone")="" Or _
Request("Email")="" Or Request("State")="" Then
%>
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, OpRs, Place
On Error Resume Next
%>
<font size=5><b>CATEGORY: <%=Request("Category")%></b></font>
<%
ShowItem Request("Item"),Request("Description"),_
Request("Price"),Request("Phone"),Request("Email"),_
Request("State"),Date
OpRs.open sql,Conn,adopenkeyset,adlockoptimistic
sql = "Select * FROM tblData WHERE Category='" & _
Request("Category") & "'"
OpRs.AddNew
OpRs("Item") = Request("Item")
OpRs("Category") = Request("Category")
OpRs("Description") = Request("Description")
OpRs("Price") = Request("Price")
OpRs("Phone") = Request("Phone")
OpRs("Email") = Request("Email")
OpRs("State") = Request("State")
OpRs("Posted") = Date
OpRs("Password") = Request("Password")
OpRs.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>
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I moved both suggestions and still the same error.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER