I talked to the ISP and they concluded that the code that creates the DB connection and recordsets have to be modified. I examined the code again and found a couple of files that I suspect may be the prb. The following is from an include file <adovbs.inc> that is included with each page:
' ADO constants include file for VBScript
'
'--------------------------------------------------------------------
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100
Const adMovePrevious = &H00000200
Const adAddNew = &H01000400
Const adDelete = &H01000800
Const adUpdate = &H01008000
Const adBookmark = &H00002000
Const adApproxPosition = &H00004000
Const adUpdateBatch = &H00010000
Const adResync = &H00020000
Const adNotify = &H00040000
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
.....
The following is from a file <UserSession.html> that is included on each page:
...
'CHECK TO SEE IF THE SESSIONID HAS BEEN SAVED TO 'CUSTOMERS DATABASE'
'IF NOT THEN ADD IT
'IF IT IS PRESENT THEN MOVE ON
sessRS.Open "Select * From usersession where sessionID = '"&thisnewsessionid&"'", sessConn, adOpenDynamic, adLockPessimistic, adCMDText
if sessrs.eof then
sessRS.AddNew
sessRS("sessionID")= myusersessionid
'sessRS("userdate")= date()
'sessRS("usertime")= time()
'sessRS("system")= thishost
sessRS.Update
sessRs.close
sessConn.close
set sessrs = nothing
set sessconn = nothing
end if
...
The prb i have with the above code is that if the session varibale exists the Conn does not close. Can this be a possible cause for the prb?