<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
	'==Visual InterDev Generated - startspan==
	' --Project Data Connection
 
		Application( "Bank_ConnectionString" ) =  "DRIVER=SQL Server; SERVER=sql;UID=webuser;WSID=GEOSOFT;DATABASE=bank;User Id=webuser;User Id=webuser;PASSWORD=pass;" 
		Application( "Bank_ConnectionTimeout" ) =  15 
		Application( "Bank_CommandTimeout" ) =  30 
		Application( "Bank_CursorLocation" ) =  3 
		Application( "Bank_RuntimeUserName" ) =  "webuser" 
		Application( "Bank_RuntimePassword" ) =  "pass" 
	'%af_src_commbr_1
		'Set DE = Server.CreateObject( "DERuntime.DERuntime" )
		'Application("DE") = DE.Load(Server.MapPath("Global.ASA"), "_private/DataEnvironment/DataEnvironment.asa")
	'==Visual InterDev Generated - endspan==
End Sub
'*********************************************************************		
'*********************************************************************		
Sub  Session_OnStart  
'on error resume next

	Set Bank_Conn = Server.CreateObject("ADODB.Connection") 
	Bank_Conn.Open Application("Bank_ConnectionString"),Application("Bank_RuntimeUserName"),Application("Bank_RuntimePassword")

	If Request.ServerVariables("AUTH_USER")<>"" Then 
		Dim dom, user, auth
		auth =  Request.ServerVariables("AUTH_USER")
		If isEmpty(auth) or auth="" Then
			auth = Request.ServerVariables("AUTH_USER")
		End If
		
		If not isEmpty(auth) Then
			dom = left(auth,InStr(auth,"\")-1)
			
			user = Request("user")
			If isEmpty(user) Then
				user = mid(auth,InStr(auth,"\")+1)
			End If
			Session("User_Domain")	= Request.ServerVariables("AUTH_USER")
			Session("User_ip")		= Request.ServerVariables("REMOTE_HOST")
			Session("SessionStart")	= Mid(Date(),7,4)&"."&Mid(Date(),4,2)&"."&Left(Date(),2)&" "&time() 
			
'********************************************
'********************************************
			Dim NTuser
			set NTuser=GetObject("WinNT://" & dom & "/" & user & ",User")
				Session("User_FIO")	=NTuser.FullName
				Session("User_IO")	=Mid(NTuser.FullName,InStr(NTuser.FullName," ")+1)
			Set NTuser = Nothing


		End If

'**************************************************************		
		SQLQvery =  "Select domain From BSS.BSS_Web_Users Where domain = ('"&Request.ServerVariables("AUTH_USER")&"')" 
		Set rsWeb = Bank_Conn.Execute(SQLQvery)
		'********************************************
		If		rsWeb.Eof Then SQLQvery = "Insert into BSS.BSS_Web_Users (domain,name) values (' "& Request.ServerVariables(" AUTH_USER ")&" ',' "&Session(" User_FIO ")&" ')"
		If not	rsWeb.Eof Then SQLQvery = "Update BSS.BSS_Web_Users SET name = ' "&Session(" User_FIO ")&" ' Where domain in (' "&Request.ServerVariables(" AUTH_USER ")&" ')"
		Set rsUser = Bank_Conn.Execute(SQLQvery)
		'********************************************
		SQLQvery =  "Select id From BSS.BSS_Web_Users Where domain = ('"&Request.ServerVariables("AUTH_USER")&"')" 
		Set rsUserId = Bank_Conn.Execute(SQLQvery)
		Session( "User_id" ) = rsUserId.Fields( "id" ).value
	Else
		Session( "User_Domain" )	=  "KF-SBS\WebUser" 
		Session( "User_ip" )		= Request.ServerVariables( "REMOTE_HOST" )
		Session( "SessionStart" )	= Mid(Date(), 7 , 4 )& "." &Mid(Date(), 4 , 2 )& "." &Left(Date(), 2 )& " " &time() 
		Session( "User_FIO" )		= Session( "User_ip" )
		Session( "User_IO" )		= Session( "User_ip" )
	
		SQLQvery =  "Select domain From BSS.BSS_Web_Users Where domain = 'KF-SBS\WebUser'" 
		Set rsWeb = Bank_Conn.Execute(SQLQvery)
		'********************************************
		If		rsWeb.Eof Then SQLQvery = "Insert into BSS.BSS_Web_Users (domain,name) values ('KF-SBS\WebUser',' " & Session(" User_ip ") & " ')"
		If not	rsWeb.Eof Then SQLQvery = "Update BSS.BSS_Web_Users SET name = ' " & Session(" User_ip ") & " ' Where domain = 'KF-SBS\WebUser'"
		Set rsUser = Bank_Conn.Execute(SQLQvery)
		'********************************************
		SQLQvery =  "Select id From BSS.BSS_Web_Users Where domain = ('KF-SBS\WebUser')" 
		Set rsUserId = Bank_Conn.Execute(SQLQvery)
		Session( "User_id" ) = rsUserId.Fields( "id" ).value
	End If    
	Set rsWeb			= Nothing
	Set rsUser			= Nothing
	Set rsUserId		= Nothing
	Set Bank_Conn	= Nothing
End Sub
'***********************************************************
'***********************************************************
'***********************************************************
Sub Session_OnEnd  
	If Session("User_id")<>"" Then
		Set Bank_Conn = Server.CreateObject("ADODB.Connection") 
		Bank_Conn.Open Application("Bank_ConnectionString"),Application("Bank_RuntimeUserName"),Application("Bank_RuntimePassword")

		SQLQvery = "insert into BSS.BSS_Web_Events (id,ip,datestart,datefinal,app) values ("&Session("User_id")&",' "&Session(" User_ip ")&" ', convert(datetime,' "&Session(" SessionStart ")&" ',120), getdate(),'WebResource')"
		Set Rs_WebS = Bank_Conn.Execute(SQLQvery)

		Set RS_WebS   = Nothing
		Set Bank_Conn = Nothing
	End If
End Sub
</SCRIPT>