<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart

Session.timeout = 300 

Session( "SuneTeam_ConnectionString" ) = "DSN=SuneTeam;"
Session( "SuneTeam_ConnectionTimeout" ) = 15
Session( "SuneTeam_CommandTimeout" ) = 30
Session( "SuneTeam_RuntimeUserName" ) = "sa"
Session( "SuneTeam_RuntimePassword" ) = ""


'**************
Session ("lang") = "fr"
'Session("lang") = "en"
'**************
Session ("date_visu") = "" & Date()
'Response.Write (Session ("date_visu"))
'**************
Session ("projets") = "non"
'**************
'Session ("client") = "user"
'Session ("client") = "audit"
Session ("client") = "admin"
'Session ("client") = "debug"
'**************
Session ("dept_code") = "SOC"
Session ("dept_libelle") = "Société"
Session ("type_doc") = ""
Session ("type_libelle") = ""
Session ("dico") = ""
Session ("ref_doc") = ""
Session ("ref_ann") = ""

End Sub

</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart

		Application ("sous_pharmaco") = false
		Application ("dir_out") = "D:\Inetpub\wwwroot\SuneTeam\Documents\"
		Application ("nom_macro") = "Normal.TraiteSOP.TraiteSOP"
		
		Application("conSuneTeam_ConnectionString") = "DSN=SuneTeam;"
		Application("conSuneTeam_ConnectionTimeout") = 15
		Application("conSuneTeam_CommandTimeout") = 30
		Application("conSuneTeam_CursorLocation") = 3
		Application("conSuneTeam_RuntimeUserName") = "sa"
		Application("conSuneTeam_RuntimePassword") = ""
End Sub
</SCRIPT>
