Function GetConn(sConnString)
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open sConnString
'## -- return an open connection --
[b]Set[/b] GetConn = objConn
End Function
en enkel funktion som returnerar ett connection object