[TCX][MyODBC]Ingen database valgt *ASP*

Error Type:
Persits.Upload.1 (0x800A001C)
[TCX][MyODBC]Ingen database valgt
/ofp_new/login/include/campupload.asp, line 68

Min kode:

<%
    Set Upload = Server.CreateObject("Persits.Upload")
    Server.Scripttimeout = 4000
    'On the server
    'Upload.SaveVirtual("/asp/zipfiler/campagner")
   
    'Dev server
    Upload.Save "D:\web\operation-flashpoint.dk\asp\zipfiles\Campagner"

   
    Set File = Upload.Files("THEFILE")
    Set File1 = Upload.Files("THEFILE1")
   
    If Not File Is Nothing Then
   
    Connect = "DRIVER={MySQL}; SERVER=localhost; UID=root; PWD=; DATABASE=ofp;"
       
       
        strmapname = upload.form("mapname")
        strkort = upload.form("kort")
        strplayers = upload.form("players")
        strdescription = upload.form("description")
        strversion = upload.form("version")
        strtype = upload.form("type")
        strauthor = upload.form("author")
        stremail = upload.form("email")
        strhomepage = upload.form("homepage")
        strstatus = upload.form("status")
        strstar = upload.form("star")
        strmemberid = upload.form("memberid")

        SQL = "insert into missions("
        SQL = SQL & "mapname, "
        SQL = SQL & "kort, "
        SQL = SQL & "players, "
        SQL = SQL & "image1, "
        SQL = SQL & "description, "
        SQL = SQL & "filesize, "
        SQL = SQL & "da, "
        SQL = SQL & "filurl, "
        SQL = SQL & "version, "
        SQL = SQL & "type, "
        SQL = SQL & "author, "
        SQL = SQL & "email, "
        SQL = SQL & "homepage, "
        SQL = SQL & "star, "
        SQL = SQL & "status, "
        SQL = SQL & "memberid) "
        SQL = SQL & "values("
        SQL = SQL & "'" & strmapname & "', "
        SQL = SQL & "'" & strkort & "', "
        SQL = SQL & "'" & strplayers & "', "
        SQL = SQL & "'" & File.Filename & "', "
        SQL = SQL & "'" & strBesked & "', "
        SQL = SQL & "'" & strdescription & "', "
        SQL = SQL & "'" & File.Size & "', "
        SQL = SQL & "'" & Now() & "', "
        SQL = SQL & "'" & File1.Filename & "', "
        SQL = SQL & "'" & strversion & "', "
        SQL = SQL & "'" & strtype & "', "
        SQL = SQL & "'" & strauthor & "', "
        SQL = SQL & "'" & stremail & "', "
        SQL = SQL & "'" & strhomepage & "', "
        SQL = SQL & "'" & strstatus & "', "
        SQL = SQL & "'" & strstar & "', "
        SQL = SQL & "'" & strmemberid & "')"
       
        File.ToDatabase Connect, SQL
       
        Response.redirect("done.asp")                                               
    Else
        Response.Write "Du glemte at finde en fil."       
    End If
%>

Håber at der er en der kan hjælpe mig :)