Kan man kalde en DB i en Sub?

Jeg vil gerne bruge en Include fil til mine ASP sider.
Til at kalde alle Headers, og andre stykker kode der kommer igen og igen.
Men jeg undrer, om jeg laver en sådan her sektion i min include fil;

<%
Sub SetupDBCon
Dim cn
Dim cnstr

set cn=Server.CreateObject("ADODB.Connection")
cnstr="DRIVER={SQL Server};SERVER=bla;UID=blu;PWD=blæ;DATABASE=data"
cn.Open cnstr

End sub

Sub CloseDBCon

cn.close
set cn = Nothing
set cnstr = Nothing

End Sub
%>

Og så includer den på alle mine asp sider, og de sider hvor jeg skal bruge Datbasen, ja der kalder jeg bare den sub der åbner i begynnelsen og den der lukker til sidst, er det muligt?
Eller hvordan kan man gøre det?
Jeg gætter på at mine Dim forsvinder når Sub'n er klar, så jeg regner med at man muligtvis kan bruge en Global Variable istedet?

mvh.
Brian