Public Sub StartSession(ByRef IDSessione As Object, Optional ByVal Site As String = "")
             Dim Cmd As New ADODB.Command
             Dim LanguageAcc As String
             Dim Referrer As String
             Dim SQL_UP As String
     
            Cmd.ActiveConnection = ObjConnection
            Cmd.CommandText = "start_SESSION"
            Cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
            Cmd.Parameters("@IDSessione_1").Value = CStr(IDSessione)
            Cmd.Parameters("@IPAddress_2").Value = objAsp.Request.ServerVariables("REMOTE_ADDR")
            LanguageAcc = objAsp.Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
            If LanguageAcc = "" Then LanguageAcc = "none"
            Cmd.Parameters("@LanguageTp_3").Value = LanguageAcc
            Referrer = objAsp.Request.ServerVariables("HTTP_REFERER")
            If Referrer = "" Then Referrer = "direct"
            Cmd.Parameters("@Referrer_4").Value = Referrer
            Cmd.Parameters("@Site_5").Value = Site
            Cmd.Execute()
            Cmd = Nothing
            SQL_UP = "UPDATE USERS_COUNT SET COUNTUSER = COUNTUSER + 1,LastDate=GetDate() WHERE Site = '" & Site & "'"
            ObjConnection.Execute(SQL_UP)
    End Sub