Public Sub StartSession(IDSessione, Optional ByVal Site As String)
    'Dim objConnSS As New Connection
    Dim Cmd As New Command
    'objAdoTools.OpenConnection objConnSS, objAsp.Application("ConnectStr"), ""
    If IsMissing(Site) Then Site = "Base"
    If objAsp.Request.Cookies("WsListing")("ExcludePc") = "" Then
        Set Cmd.ActiveConnection = ObjConnection
            Cmd.CommandText = "start_SESSION"
            Cmd.CommandType = adCmdStoredProc
            Cmd.Parameters("@IDSessione_1") = CStr(IDSessione)
            Cmd.Parameters("@IPAddress_2") = objAsp.Request.ServerVariables("REMOTE_ADDR")
            Dim LanguageAcc As String
            LanguageAcc = objAsp.Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
            If LanguageAcc = "" Then LanguageAcc = "none"
            Cmd.Parameters("@LanguageTp_3") = LanguageAcc
            Dim Referrer As String
            Referrer = objAsp.Request.ServerVariables("HTTP_REFERER")
            If Referrer = "" Then Referrer = "direct"
            Cmd.Parameters("@Referrer_4") = Referrer
            Cmd.Parameters("@Site_5") = Site
            Cmd.Execute
        Set Cmd = Nothing
        Dim SQL_UP As String
        SQL_UP = "UPDATE USERS_COUNT SET COUNTUSER = COUNTUSER + 1,LastDate=GetDate() WHERE Site = '" & Site & "'"
        ObjConnection.Execute SQL_UP
    End If
    'objConnSS.Close
    'Set objConnSS = Nothing
End Sub