<SCRIPT LANGUAGE=VBScript RUNAT=Server>


Sub Application_OnStart

'

End Sub



Sub Application_OnEnd

'

End Sub



Sub Session_OnStart

Session("DSN") = "DSN=Partner;UID=Microsoft;PWD=msoftda98"

Set Session("DbConnection") = Server.CreateObject("ADODB.Connection")

Session("DbConnection").Open Session("DSN")

End Sub



Sub Session_OnEnd

Session("DbConnection").Close

Set Session("DbConnection") = Nothing

End Sub



</SCRIPT>