Re: ASP Server Create Object

Patrick Patterson ( pj@ctt-inc.com )
Wed, 03 Jun 1998 09:14:14 -0500

If you get an answer to this, please copy me.

I had a similar error this morning. A server.createobject call to a dll
that has been in use for months just started. When I rebooted, I lost all
connections, even though the ports to IIS would respond.

Never got an event message or any errors. After the 4th reboot, all seemed
well and good. I tried a few things, but nothing I can determine as
significant.

At 12:12 AM 6/3/98 -0500, you wrote:
>> >Does anyone know what cuases this error in ASP?
>> >
>> >Here is the complete error:
>> >
>> >Server object error 'ASP 0177:800401f3'
>> >Server.CreateObject Failed
>> >/asset/loginnow.asp, line 9
>> >The call to Server.CreateObject failed. The requested object instance
>> >cannot
>> >be created.
>>
>>
>> Just seeing the error without seeing the code that's failing doesn't give
>> one much to go on. Where's the code?
>
>The reason I didnt include it is because this is the seond time it comes
>up. Here is the code:
>
><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
>
><HTML>
><HEAD>
> <TITLE>Untitled</TITLE>
></HEAD>
>
><BODY>
><center>
><table border="0" cellpadding="0" cellspacing="0">
><tr>
>
>
><%
> recid = Request.QueryString("id")
> set conntemp=server.createobject("adodb.connection")
> conntemp.Open "interchange"
>
> SQLstmt = "SELECT * FROM tblAssetFields WHERE Id=" & recid
>
> Set RS = conntemp.Execute(SQLstmt)
>%>
><% if recid<>0 then %>
><font size=2>
><td><table width = 100 cellpadding="0" cellspacing="0"><tr><td>
><IMG SRC="images/<%=RS("Photo")%>" height=110>
></td></tr></table></td>
>
><td><table width = 8 cellpadding="0" cellspacing="0"><tr><td>
>&nbsp
></td></tr></table></td>
>
>
><td><table width = 220 cellpadding="0" cellspacing="0"><tr><td>
><font size=4><%=RS("AssetDescription")%>
> </td></tr><tr><td> Quantity:<%=RS("Quantity")%>
> </td></tr><tr><td>Manufacturer:<%=RS("Manufacturer")%>
>
></td></tr><tr><td>
> <%
> if RS("Hold") = 0 then
> response.write("This item is available")
> else
> response.write("This item is on HOLD")
> end if
> %>
></td></tr><tr><td>
> <%
> if RS("Liquidate") = 0 then
> response.write("&nbsp")
> else
> response.write("Marked for liquidation")
> end if
> %>
>
> </tr></table></td>
>
><td><table width = 170 cellpadding="0" cellspacing="0"><tr><td>
> <%
>
> if RS("Condition") = "5=Excellent/New" then
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> end if
> if RS("Condition") = "4=Good, Light touch-up or cleaning needed" then
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> end if
> if RS("Condition") = "3=Requires some touch-up/reupholstery" then
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> end if
> if RS("Condition") = "2=Requires substantial touch-up/reupholstery"
>then
> response.write ("<IMG SRC=images\star.gif width=17>")
> response.write ("<IMG SRC=images\star.gif width=17>")
> end if
> if RS("Condition") = "1=Damaged beyond repair" then
> response.write ("<IMG SRC=images\star.gif width=17>")
> end if
> %>
> </td></tr><tr><td> Model #:<%=RS("ModelNumber")%>
> </td></tr><tr><td> Serial #:<%=RS("SerialNumber")%>
> </td></tr><tr><td> Misc. #:<%=RS("MiscNumber")%>
> </td></tr><tr><td> Room/Area:<%=RS("Room/Area")%>
> </td></tr></table></td>
>
>
><td><table width = 200 cellpadding="0" cellspacing="0"><tr><td>
> &nbsp
> </td></tr><tr><td> Date Aquired:<%=RS("DateAcquired")%>
> </td></tr><tr><td> Disposal Date:<%=RS("DateDisposed")%>
> </td></tr><tr><td> Date Input:<%=RS("DateInput")%>
> </td></tr><tr><td> Last Changed:<%=RS("DateLastChange")%>
> </tr></table></td>
>
>
>
></tr></table>
>
>
><p>
> Company ID:<%=RS("CompanyID")%>
> &nbsp&nbsp Assett Category:<%=RS("AssetCategory")%>
> &nbsp&nbsp Hold:<%=RS("Hold")%>
> &nbsp&nbsp Liquidate:<%=RS("Liquidate")%>
>
>
>
>
>
>
></font>
><%Else
> response.Write("Empty")
>End if%>
></center>
></BODY>
></HTML>
>
>
>