Salve a tutti ho un piccolo probemino.

Ho una funzione getDataOra() che a seconda dell'ora e della lingua saluta il visitatore:


codice:
    Public Sub getDataOra()

        If (CInt(Date.Now.Hour) > 6) And (CInt(Date.Now.Hour) < 12) Then

            If Culture = "it-IT" Then
                Response.Write("Buongiorno visitatore ")
            Else
                Response.Write("Goodmorning visitor ")
            End If

            Response.Write(Date.Now)
        ElseIf (CInt(Date.Now.Hour) > 12) And (CInt(Date.Now.Hour) < 18) Then

            If Culture = "Italiano (Italia)" Then
                Response.Write("Buon pomeriggio visitatore ")
            Else
                Response.Write("Good afternoon visitor ")
            End If

            Response.Write(Date.Now)
        ElseIf (CInt(Date.Now.Hour) > 18) And (CInt(Date.Now.Hour) < 23) Then

            If Culture = "Italiano (Italia)" Then
                Response.Write("Buonasera visitatore ")
            Else
                Response.Write("Good evening visitor ")
            End If

            Response.Write(Date.Now)
        Else

            If Culture = "Italiano (Italia)" Then
                Response.Write("Salve visitatore ")
            Else
                Response.Write("Hi visitor ")
            End If

            Response.Write(Date.Now)
        End If

    End Sub
In locale funziona alla grande, ma in remoto sull'host la frasetta è sempre e comunque in lingua inglese anche cambiando lingua dagli appositi tasti.

Se invece di If Culture = "Italiano (Italia)" inserisco "it-IT" non va....altre soluzioni?