<SCRIPT LANGUAGE='VBScript' RUNAT='Server'>

Sub Session_OnStart
	Application("intAantalBezoekers") = Application("intAantalBezoekers") + 1
	Session("language") = "NLD"
	Application("blnSendErrorMail") = false
End Sub

Sub Session_OnEnd
	Application("intAantalBezoekers") = Application("intAantalBezoekers") - 1
End Sub

Sub Application_OnStart
	
	'--Project Data Connection
		'Application("stoeligans_ConnectionString") = "Provider=SQLOLEDB.1;Persist Security Info=True;Trusted_Connection=yes;Initial Catalog=stoeligans;Data Source=SRVW3K-SQL01;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False;"
		'Application("stoeligans_ConnectionString") = "Provider=Microsoft.ACE.OLEDB.12.0; ;Persist Security Info=False; Data Source=" & Server.MapPath("../data/duitsedog.accdb")
		Application("stoeligans_ConnectionString") = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\HostingSpaces\RImmers\duitsedog.tk\data\duitsedog.mdb"
		Application("stoeligans_ConnectionTimeout") = 15
		Application("stoeligans_CommandTimeout") = 30
		Application("stoeligans_CursorLocation") = 3
		Application("stoeligans_RuntimeUserName") = "sa"
		Application("stoeligans_RuntimePassword") = "123pol"
				
	'-- Project Data Environment
		'Set DE = Server.CreateObject("DERuntime.DERuntime")
		'Application("DE") = DE.Load(Server.MapPath("Global.ASA"), "_private/DataEnvironment/DataEnvironment.asa")
	Application("intAantalBezoekers") = 0	
End Sub
</SCRIPT>