ASP 0115 error

budmor · Jan 9, 2001

Hi,

I'm getting the error below intermittently. The trouble is this script works fine for a period of time but then crashes out. I'm using my W2K Professional as the IIS 5.0 server. If I reboot it will work again for a while. I have a number of other Form/Response scripts that yield the same error when the are run subsequently. I checked TechNet which recommended adding an On Error Resume Next to the 500-100.asp but this didn't do anything. There are a number of articles on the ASP 0115 error but none seem to be relevant.

I'm new to ASP so any help would be greatly appreciated.

My code appears below - line 18 is :

Set oRSp=server.createobject("ADODB.recordset&quot

Regards,

Budmor

Error:

Active Server Pages error 'ASP 0115'

Unexpected error

/iisHelp/common/500-100.asp

A trappable error (C0000005) occurred in an external object. The script cannot continue running.

Microsoft VBScript runtime error '800a01fb'

An exception occurred: 'createobject'

/web/OpenPO_NumbersResponse.asp, line 18

Code:<html>

<head>
<title>Here are the results of your query</title>

<meta name="Microsoft Theme" content="tilt 011, default">
</head>

<body background="../_themes/tilt/tlbkgnd.jpg" bgcolor="#FFFFFF" text="#330099" link="#CC00CC" vlink="#000066" alink="#666699"><font face="Verdana, Arial, Helvetica">

<p><font size="3" color="green">Closed PO Numbers by Line Number</font></p>

<%
varPONUMBER = request.form("PONUMBER&quot

dim oRSp
Set oRSp=server.createobject("ADODB.recordset&quot

txtSQL = "SELECT PODB.PO_LINE.PART_NUMBER ,"
txtSQL = txtSQL & " PODB.PO_LINE.STATUS_HPPO,"
txtSQL = txtSQL & " PODB.PO_LINE.QTY_ORD_PO,"
txtSQL = txtSQL & " PODB.PO_LINE.PO_LINE_NO"
txtSQL = txtSQL & " FROM PODB.PO_LINE"
txtSQL = txtSQL & " WHERE ( PODB.PO_LINE.PO_NUMBER = '" & varPONUMBER & "' ) AND "
txtSQL = txtSQL & " ( PODB.PO_LINE.QTY_REC = 0 )"

oRSp.open txtSQL, "dsn=MMDB",1

oRSp.moveFirst

Response.Write "<TABLE BORDER=1><TR>"

Response.Write "<th>Part Number</th>"
Response.Write "<th>Status</th>"
Response.Write "<th>Quantity Ordered</th>"
Response.Write "<th>Line No.</th>"

Response.Write "</TR><TR><TD>"
Response.Write oRSp.GetString(,,"</TD><TD ALIGN=CENTER>","</TD></TR><TR><TD ALIGN=CENTER>","-unknown-&quot

Response.Write "</TD></TR></TABLE>"

oRSp.Close
Set oRSp=nothing

%>
</font></body>
</html>

silvers5 · Jan 10, 2001

try to fetch the recordset this way:

Set conn = Server.createObject("Adodb.connection&quot

conn.open "DSN=MMDB"
Set oRSp=conn.execute (txtSQL)
... Silvers5
As seen on EE

budmor · Jan 10, 2001

Thanks Silvers5,

I have adjusted the code as recommended and it works fine this way too. I have not experienced a crash since I posted the error, however I will keep an eye on things! On further reflection I was just wondering if this error could have anything to do with the provider - I use ODBCLink/SE ODBC driver from M.B. Foster to connect to an IMAGE/SQL database on an HP3000? Could it be a limitation of the connection properties which are dependent on the database, driver or provider?

Regards,

Budmor.

silvers5 · Jan 10, 2001

no it's just that you didn't define and open a connection for the recordset! you should do it before openening a recordset, you only supplied the connection string..

rgrds

don't forget to close and clean at the end

rs.close:set rs=nothing
cn.close: set cn=nothing

where cn is the connection and rs the recordset Silvers5
As seen on EE

RobV · Mar 14, 2001

Also check that you have the latest version of the scripting engine! Vbscript.dll 5.0 may be the cause. We're having the same errors with 5.0 but not on a systems where vbscript 5.1 was installed. See msdn.microsoft.com/scripting

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!

ASP 0115 error

budmor

MIS

silvers5

Programmer

budmor

MIS

silvers5

Programmer

RobV

Programmer

Similar threads

Part and Inventory Search

Sponsor