[asp] connecties sluiten

[Rene C. Smit]

Hallo iedereen

Mijn pagina hangt, dus aan elke pagina heb ik (via een include) de
volgende code toegevoegd:

If IsObject(conn) then
conn.close
Set conn = nothing
End if

Nu geeft 'ie de volgende foutmelding:


Microsoft VBScript runtime error '800a01a8'

Object required

/eindcode.asp, line 20

Het stomme is dat ik de conn.close en set conn=nothing al heb
uitgevoerd. Maar dan zou IsObject(conn) toch "false" moeten zijn en
worden de twee regels toch overgeslagen? En als ik die twee regeltjes
niet zou hebben gedaan, dat isobject(conn) true is en ze alsnog worden
uitgevoerd?

Of mis ik nu iets?


Alvast bedankt voor het antwoord




Met vriendelijke groeten,
Rene C. Smit
Arnhem, The Netherlands

MAANDJE KOFFIE ! Gezocht woonruimte te Arnhem: http://www.yepcheck.com/mkoffie.asp

http://fotolog.yepcheck.com - http://www.yepcheck.com
Nieuw: zet een gitaartab om in een pianotab met noten op http://www.yepcheck.com/pianotab

[Bart Vanwijnsberghe]

"Rene C. Smit"...
> Mijn pagina hangt, dus aan elke pagina heb ik (via een include) de
> volgende code toegevoegd:
>
> If IsObject(conn) then
> conn.close
> Set conn = nothing
> End if
>
> Nu geeft 'ie de volgende foutmelding:
>
> Microsoft VBScript runtime error '800a01a8'
>
> Object required
>
> /eindcode.asp, line 20
>
> Het stomme is dat ik de conn.close en set conn=nothing al heb
> uitgevoerd. Maar dan zou IsObject(conn) toch "false" moeten zijn en
> worden de twee regels toch overgeslagen? En als ik die twee regeltjes
> niet zou hebben gedaan, dat isobject(conn) true is en ze alsnog worden
> uitgevoerd?
>
> Of mis ik nu iets?


Probeer dit eens:

'If it's a recordset and open, close it
If Not objRS Is Nothing Then
If objRS.state And adStateOpen = adStateOpen Then
objRS.close
End If
Set objRS = Nothing
End If

'If it's a connection and open, close it
if TypeName(objConn) = "Connection" then
If Not objConn Is Nothing Then
If objConn.state And adStateOpen = adStateOpen Then
objConn.Close
End If
Set objConn = Nothing
End If

mvg
Bart