Invalid class string

Jeg har fundet dette eksempelscript på upload af fil og data her på eksperten.
men jeg kan ikke få det til at virke, jeg får denne fejl:

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/jens/filmsite/admin/upload/upload1/Upload2.asp, line 13
------------------------------

min form:
----------
<HTML>
<BODY BGCOLOR=\"#FFFFFF\">
<FORM METHOD=\"POST\" ENCTYPE=\"multipart/form-data\" ACTION=\"Upload2.asp\">
    <INPUT TYPE=FILE SIZE=60 NAME=\"FILE1\">
    <BR>
    <input type=\"text\" name=\"Tekst\">
    Text<br>
    <input type=\"text\" name=\"Navn\">
    Navn<br>
    <input type=\"text\" name=\"Overskrift\">
    Overskrift<br>
    <input type=\"text\" name=\"Kategori\">
    Kategori <br>
    <input type=\"text\" name=\"Nr\">
    Nr<br>
    <INPUT TYPE=SUBMIT VALUE=\"Upload!\">
  </FORM>
</BODY>
</HTML>


Scriptet:
-----------
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%

set conn = Server.CreateObject(\"ADODB.Connection\")

   
    Set Upload = Server.CreateObject(\"Persits.Upload.1\")
    Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual (\"/images\")
      set persistfil_billede = upload.files(\"billede\")   

Tekst = upload.form(\"Tekst\")
Tekst = Replace(Tekst, \"\'\", \"\'\'\")

if persistfil_billede is nothing then

conn.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"varer.mdb\")

    conn.Execute(\"insert into billeder(navn, overskrift, kategori, nr, tekst) \" &_
      \"values(\'\" & upload.form(\"navn\") & \"\', \'\" & upload.form(\"overskrift\") & \"\', \'\" & upload.form(\"kategori\") & \"\', \'\" & upload.form(\"nr\") & \"\', \'\" & tekst & \"\')\")
    if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
    Else
          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
    End If
    conn.Close
    set conn = nothing
   
else

MyConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"varer.mdb\")   

    For Each File in Upload.Files
   
        File.ToDatabase MyConn, \"insert into billeder(billede, navn, overskrift, kategori, nr, tekst) \" &_
        \"values(\'\" & File.ExtractFileName & \"\', \'\" & upload.form(\"navn\") & \"\', \'\" & upload.form(\"overskrift\") & \"\', \'\" & upload.form(\"kategori\") & \"\', \'\" & upload.form(\"nr\") & \"\', \'\" & tekst & \"\')\"
        if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
    Else
          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
    End If
    Next
   
end if

%>
</body>
</html>


Hvad betyder denne fejl..??, og er der nogle som kan forslå noget reference (litteratur) til asp.
Jeg tænker på noget, hvor man evt. kunne slå fejl op, og få en lidt mere viden herved.

//Mekaniker