<%

Sub OpenDB()

'SQL Server DB adoCon:
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open  "PROVIDER=SQLOLEDB;DATA SOURCE=SERVER_NAME;UID=admin;PWD=12345;DATABASE=DATABASE_NAME"

'Access DB adoCon:
'adoCon.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\hosting\DATABASE_LOCAL_PATH\db1.mdb;Jet OLEDB:Database Password=12345;"

End Sub




Sub CloseDB()

'reset object in the end:
Set adoCon = Nothing

End Sub

%>