connect til databasen

1. I global.asa filen definere jeg en connectstreng til at connecte til mssql database.

Sub Application_OnStart
Application("test") = "connectstreng"
End Sub

2. så vil jeg gerne hente connectstrengen fra application variablen og benytte de asp filer hvor der skal connectes til database:

sql = " SQL SÆTNING "
set Database= Server.CreateObject("ADODB.Connection")
Database.Open " Application("test") "
set rs=Database.Execute(sql)

3. Jeg har en fil test.inc som indeholder en funktion. Her vil jeg også gerne benytte Application variablen
<%
Function func_db(recordset, sql)
    set Database= Server.CreateObject("ADODB.Connection")
    Database.Open Application("test")

    set recordset=Database.Execute(sql)
   
End Function
%>

I punkt 2 og 3 fejler det. Jeg kan ikke connect til databasen via Application variablen. Men hvis jeg skriver
Database.Open "connectstrng til db" så virker det.