<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>