Underlig fejlmelding!

Hejsa!

Jeg har en side der ligger på http://www.smile-on.dk/mhc/finn - her virker alle områder fint - også chatten - men når jeg kører på min lokale maskine, som jeg udvikler den på, får jeg følgende fejl, når jeg går ind og vil teste på min chat:

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01ad\'

ActiveX-komponenten kan ikke oprette objektet: \'CreateObject\'

/webpub/Finn/Chat/chat_header.asp, linje 22

Er der nogen der ved hvad der kan være galt?

Her er koden til chat_header.asp:

<%
Option Explicit
%>
<%
Dim Heading
Heading=\"<FONT SIZE=\'4\'>FERRARI FINN Fanclub Denmark chatten!</FONT>\"

\' Dim af fil-st&oslash;rrelse ved antallet af linier
    Const maxLinier=36, minLinier=30
    Dim aktLinier

\' L&aelig;sning af data fra fil
    Const ForReading = 1    \', ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    dim strPathInfo, strPhysicalPath
    strPathInfo = \"chat.txt\"
    strPhysicalPath = Server.MapPath(strPathInfo)
   
    Dim objFSO, objFile
    Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
    set objFile = objFSO.GetFile(strPhysicalPath)
    Dim objFileTextStream
    set objFileTextStream = objFile.OpenAsTextStream(ForReading, TristateUseDefault)
    Dim strLine, Count
    Count=-1
    Dim txtStream()
    Do While objFileTextStream.AtEndOfStream <> True
        Count=Count+1
        Redim Preserve txtStream(Count)
        strLine = objFileTextStream.ReadLine
        txtStream(Count) = strLine
\'        response.write \"<FONT FACE=\'Arial, Helvetica\' SIZE=\'-1\'>\" & txtStream(Count) &\"</FONT><BR>\"
    Loop
    objFileTextStream.Close
   
\' Tilskrivning af data til fil
    Const ForAppending = 8, ForWriting = 2

    dim strChatFileName
    strChatFileName = strPhysicalPath

    dim objChatFileFSO
    set objChatFileFSO = CreateObject(\"Scripting.FileSystemObject\")

    dim objChatFileTS
    if objChatFileFSO.FileExists(strChatFileName) then
\'        Response.write strChatFileName
    else
        set objChatFileTS = objChatFileFSO.CreateTextFile(strChatFileName)
    end if
   
    aktLinier = Count

    if Count > maxLinier then
        Count=aktLinier-minLinier
        set objChatFileTS = objChatFileFSO.OpenTextFile(strChatFileName, ForWriting)
        objChatFileTS.WriteLine txtStream(Count)
        objChatFileTS.Close
        Count=Count+1
        set objChatFileTS = objChatFileFSO.OpenTextFile(strChatFileName, ForAppending)
        do while Count <= aktLinier
            objChatFileTS.WriteLine txtStream(Count)
            Count=Count+1
        loop
        objChatFileTS.Close
    end if
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">
<HTML>
<HEAD>
    <TITLE>FINN Chatten chat_header</TITLE>
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" VLINK=\"#660066\" ALINK=\"#FF0000\">
<TABLE WIDTH=\"100%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">
<TR>
    <TD><%=Heading%></TD>
    <TD ALIGN=\"RIGHT\"></TD>
</TR>
</TABLE>
<BR>
<HR>
<HR>
</BODY>
</HTML>