function MakeConn()
	dim OC
	MakeConn=false
	On Error Resume Next
	set OC=Server.CreateObject("ADODB.Connection") 
	OC.Provider = "SQLOLEDB.1"
	OC.Properties("Data Source") = Application("SQL_SERV_NAME")
	OC.Properties("Initial Catalog") = Application("DSN")
	OC.Properties("User ID") = Session("UserName")
	OC.Properties("Password") = Session("Password")
	OC.CursorLocation = adUseClient
	OC.Open
Response.Write OC.Errors( 0 ).Description
	if OC.Errors.Count> 0  then
		msg=OC.Errors( 0 ).NativeError
		MsgFull=OC.Errors( 0 ).Description
	else
		msg= 0 
		MsgFull=""
	end if
	MakeConn = (OC.State= 1 )
	On Error goto  0 
	if OC.State= 1  then
		set Session("dbConn")=OC
		dim logSQL 
		logSQL = " EXEC dbo.sp_log_User_Entrance '"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("HTTP_USER_AGENT")&"','"&Ucase(Replace(Request.ServerVariables("CERT_SERIALNUMBER"),"-",""))&"','"&Request.ServerVariables("CERT_SUBJECT")&"'"	
		Session("dbConn").Execute(logSQL)	
	end if
end function

	OC.Properties("Data Source") = Application("SQL_SERV_NAME")
	OC.Properties("Initial Catalog") = Application("DSN")