Als er van dit script geen records terug komen dan doet ik een exit sub, maar word de cleanup code dan wel gedraaid?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| ' Get all network messages
Set objCmd = CreateObject("ADODB.Command")
objCmd.ActiveConnection = objConn
objCmd.CommandType = adCmdStoredProc
objCmd.CommandText = "spGetNetworkMessages"
Set objRec = objCmd.Execute
Set objCmd = Nothing
' Get all data and put it in a array.
If Not objRec.EOF Then
arrNetworkMessages = objRec.GetRows()
intNumNetworkMessages = UBound(arrNetworkMessages, 2)
Else
' Help something wend wrong.
Response.Write "ERROR!<br>while getting network messages."
Exit Sub
End If
' Clean up.
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn = Nothing |
weinig tot niks..