Closing an ASP connection

Question

I have used DW to generate the ASP code as I do not know much
about it other than the code that I have seen DW generate. My
hosting server intermittently gives me a "Out of resources" error
every once in a while and they have assured me that it is because
of a coding issue that I am not closing my connections to the
server.
So I have looked in the code and am not able to find one. The
problem is, I am not sure where to put it either. Could someone
help me out on this one please?
Thanks
Houston
here is the code:
quote:
<%
Dim rsComingTotal
Dim rsComingTotal_numRows
Set rsComingTotal = Server.CreateObject("ADODB.Recordset")
rsComingTotal.ActiveConnection = MM_conWhosComing_STRING
rsComingTotal.Source = "SELECT * FROM tblWhoLake"
rsComingTotal.CursorType = 0
rsComingTotal.CursorLocation = 2
rsComingTotal.LockType = 1
rsComingTotal.Open()
rsComingTotal_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record:
declare stats variables
Dim rsComingTotal_total
Dim rsComingTotal_first
Dim rsComingTotal_last
' set the record count
rsComingTotal_total = rsComingTotal.RecordCount
' set the number of rows displayed on this page
If (rsComingTotal_numRows < 0) Then
rsComingTotal_numRows = rsComingTotal_total
Elseif (rsComingTotal_numRows = 0) Then
rsComingTotal_numRows = 1
End If
' set the first and last displayed record
rsComingTotal_first = 1
rsComingTotal_last = rsComingTotal_first +
rsComingTotal_numRows - 1
' if we have the correct record count, check the other stats
If (rsComingTotal_total <> -1) Then
If (rsComingTotal_first > rsComingTotal_total) Then
rsComingTotal_first = rsComingTotal_total
End If
If (rsComingTotal_last > rsComingTotal_total) Then
rsComingTotal_last = rsComingTotal_total
End If
If (rsComingTotal_numRows > rsComingTotal_total) Then
rsComingTotal_numRows = rsComingTotal_total
End If
End If
%>

Answer 1

Every time you open a recordset, you must close it. DW does
this on its
own.
It does hold the connection open until the page is completely
rendered.
Perhaps there are too many users at one time, or too many
recordsets on a
single page (each will have its own connection).
Also, if you use any redirects, but don't close your
recordsets before the
redirect, those connections are left open.
"htown" <[email protected]> wrote in message
news:[email protected]...
>I have used DW to generate the ASP code as I do not know
much about it
>other
> than the code that I have seen DW generate. My hosting
server
> intermittently
> gives me a "Out of resources" error every once in a
while and they have
> assured
> me that it is because of a coding issue that I am not
closing my
> connections to
> the server.
>
> So I have looked in the code and am not able to find
one. The problem is,
> I am
> not sure where to put it either. Could someone help me
out on this one
> please?
>
> Thanks
> Houston
>
>
> here is the code:
> <blockquote>quote:<br><hr><%
> Dim rsComingTotal
> Dim rsComingTotal_numRows
>
> Set rsComingTotal =
Server.CreateObject("ADODB.Recordset")
> rsComingTotal.ActiveConnection = MM_conWhosComing_STRING
> rsComingTotal.Source = "SELECT * FROM tblWhoLake"
> rsComingTotal.CursorType = 0
> rsComingTotal.CursorLocation = 2
> rsComingTotal.LockType = 1
> rsComingTotal.Open()
>
> rsComingTotal_numRows = 0
> %>
> <%
> ' *** Recordset Stats, Move To Record, and Go To Record:
declare stats
> variables
>
> Dim rsComingTotal_total
> Dim rsComingTotal_first
> Dim rsComingTotal_last
>
> ' set the record count
> rsComingTotal_total = rsComingTotal.RecordCount
>
> ' set the number of rows displayed on this page
> If (rsComingTotal_numRows < 0) Then
> rsComingTotal_numRows = rsComingTotal_total
> Elseif (rsComingTotal_numRows = 0) Then
> rsComingTotal_numRows = 1
> End If
>
> ' set the first and last displayed record
> rsComingTotal_first = 1
> rsComingTotal_last = rsComingTotal_first +
rsComingTotal_numRows - 1
>
> ' if we have the correct record count, check the other
stats
> If (rsComingTotal_total <> -1) Then
> If (rsComingTotal_first > rsComingTotal_total) Then
> rsComingTotal_first = rsComingTotal_total
> End If
> If (rsComingTotal_last > rsComingTotal_total) Then
> rsComingTotal_last = rsComingTotal_total
> End If
> If (rsComingTotal_numRows > rsComingTotal_total) Then
> rsComingTotal_numRows = rsComingTotal_total
> End If
> End If
> %><hr></blockquote>
>