Persits ASP Upload

I am testing this script to upload files from ASP. I get the following error

Persits.Upload.1 error '800a0018'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/odbc_upload.asp, line 37



<%
Dim Conn, strDataPath, strConnectString, strSQL
Set Upload = Server.CreateObject("Persits.Upload")
strDataPath = "c:\test\aspupload.mdb"
strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;"_
          + " Data Source= " & strDataPath & ";"_
          + " Mode=Share Deny None;User Id=admin;PASSWORD=;"
set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout = 15
Conn.CommandTimeout =  10
Conn.Mode = 3

if Conn.state = 0 then
     Conn.Open strConnectString
end if

      ' Capture files
      Upload.Save "c:\test\aspupload.mdb"

      ' Obtain file object
      Set File = Upload.Files("THEFILE")
 ' Build SQL INSERT statement
  SQL = "INSERT INTO MYIMAGES(image_blob, filename, description, filesize) VALUES(?, '"
  SQL = SQL & File.Filename & "', '"
  SQL = SQL & Replace(Upload.Form("DESCR"), "'", "''") & "', "
  SQL = SQL & File.Size & ")"

  ' Save to database
  File.ToDatabase strDataPath, strConnectString, SQL
   
            ' Save to database
            File.ToDatabase strDataPath, SQL
            Response.Write "File saved."
if IsObject("Conn") then
     if not Conn is Nothing Then
          if Conn <> 0 then
               Conn.close
          end if
          set Conn = Nothing
     end if
end if
%>