Hjælp til fejl ved kald af klasse ?

Hejsa, når jeg køre koden nedenfor får jeg følgende fejl, men hvad skal det sige ?

Fejl :
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'NewsletterLanguage'

I denne linie :
Set clsNewsletterLanguage = NewsletterLanguage

<script language="vbscript" runat="server">
Class NewsletterLanguage
  Public Function LangNewsletter(SessionLanguage)
    Select Case SessionLanguage
      Case "da"
        Lang = ""
        Lang = Lang & "Nyhedsbrev;"
        Lang = Lang & "Tilmeld;"
        Lang = Lang & "Afmeld"
      Case "en"
        Lang = ""
        Lang = Lang & "Newsletter;"
        Lang = Lang & "Add;"
        Lang = Lang & "Remove"
    End Select
  LangNewsletter = Lang
  End Function
End Class
</script>
<%
'--- Kalder klassen NewsletterLanguage.
Dim clsNewsletterLanguage
Set clsNewsletterLanguage = NewsletterLanguage
%>

Jeg har lavet disse typer klasser før og ikke haft problemer med det hvad sker der ?

/Websam