Citation :
'------------------------------------------------
' Ouvrir un record set Function GetRecordset(sRSSource,OpenS,LockRO)
Dim objRSGetRecordset
Set objRSGetRecordset = Server.CreateObject("ADODB.RecordSet" ) <----- cette ligne
objRSGetRecordset.Open sRSSource, objDataConn, OpenS, LockRO
Set GetRecordset = objRSGetRecordset
'objRSGetRecordset.Close
Set objRSGetRecordset = Nothing
End Function
'------------------------------------------------
|