<OBJECT RUNAT=Server SCOPE=Session ID=objDBCon PROGID="ADODB.Connection">
</OBJECT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
objDBCon.ConnectionString = Application("ConStr")
objDBCon.ConnectionTimeout = Application("ConTimeout")
objDBCon.CommandTimeout = Application("ConCommandTimeout")
objDBCon.CursorLocation = Application("ConCursorLocation")
objDBCon.Open
End sub

Sub Session_OnEnd
objDBCon.Close
set objDBCon = Nothing
End Sub

Sub Application_OnStart
Application("ConStr") = _
        "Provider=SQLOLEDB;" & _
    "User ID=sa;Initial Catalog=board;Server=dell-sql7"
    Application("ConTimeout") = 15
    Application("ConCommandTimeout") = 30
    Application("ConCursorLocation") = 3
End Sub
</SCRIPT>