Returnering af objekt fra funktion

Det kan du godt.

Et eksempel kunne være en databaseforbindelse.



    Dim consub
    Set consub = Server.CreateObject("ADODB.Connection")
    consub.CommandTimeout = 30
    consub.ConnectionTimeout = 20
    consub.Open "DBQ=" & Server.Mappath("database") & ";Driver={Microsoft Access Driver (*.mdb)}"

Function GetRecordset(sRSSource)
    Dim objRSGetRecordset
   
    Set objRSGetRecordset = Server.CreateObject("ADODB.RecordSet")
    objRSGetRecordset.Open sRSSource, consub, 3, 1
   
    Set GetRecordset = objRSGetRecordset
   
    'objRSGetRecordset.Close
    Set objRSGetRecordset = Nothing
End Function