Required File-Fields i ASP-upload - haster!

Hvad er persist?

Persits!

Persits er dem der har lavet ASPupload - et serverkomponent!

Må jeg se noget kode?

Er lige meget - er ved at løse det på anden måde!

Skriver løsningen når det virker helt!

OK.

Jeg bruger SAFileUp, det virker fint, også med flere filer.

Har forsøgt med SAFileUp, men hvis du har mulighed for upload af flere filer, ex. 3, og kun vælger 2 så får jeg fejl, på den sidste og det jo ikke meningen.

Har løst problemet på anden vis....har selv lavet noget kode der virker, men mangler lige at få informationerne lagt i databasen.

Dette spørgsmål er derfor ikke længere aktuelt og jeg trækker pointene ud igen!

Her er min løsning:

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
    option explicit
    Response.Buffer = true
   
\'DB   
    dim sql, rs, conn
    set conn = server.CreateObject(\"ADODB.connection\")
    conn.open \"bagkat_musik\"
   
\'Upload
    dim tmp_mappe
    tmp_mappe = server.MapPath(\"Lydklip\")   
   
    dim upload       
    Set Upload = Server.CreateObject(\"Persits.Upload.1\") 
    Upload.Save tmp_mappe
   
\'Tjecker om Bestnr eksisterer i forvejen
    sql = \"SELECT count(bestnr) as antal FROM Filer WHERE bestnr = \'\" & upload.Form(\"bestnr\") & \"\'\"
    dim rs_tjeck
    set rs_tjeck = conn.Execute(sql)
    if rs_tjeck(\"antal\") < 1 then
   
\'Opretter mapper (id, lydfiler)
        Dim createdir, newdir, lyddir
       
        Set createdir = Server.CreateObject(\"Scripting.FileSystemObject\")
        newdir = Server.MapPath(\"Billeder\")&\"\\\"
        newdir = newdir + upload.Form(\"bestnr\")
   
        If Not createdir.FolderExists(newdir) Then
            createdir.CreateFolder(newdir)
        End if
           
        lyddir = newdir + \"\\lyd\"
       
        If Not createdir.FolderExists(lyddir) Then
            createdir.CreateFolder(lyddir)
        End if
           
        Set createdir = Nothing   
   
\'Flytter cover   
        dim til, fra
        fra = tmp_mappe & \"\\\" & upload.Files(\"Coverbillede\").ExtractFileName
        til = newdir & \"\\\" & upload.Files(\"Coverbillede\").ExtractFileName
        upload.MoveFile fra, til
       
\'Indsætter i Filer - DB & flytter lyd-filer
        if upload.Form(\"Lydklip1\") = \"true\" then
            fra = tmp_mappe & \"\\\" & upload.Files(\"Lydklip1\").ExtractFileName
            til = lyddir & \"\\\" & upload.Files(\"Lydklip1\").ExtractFileName
            upload.MoveFile fra, til
            sql = \"INSERT INTO Filer (Bestnr, Lydklip1, Tekst1, Forfatter1) VALUES(\'\" & upload.Form(\"bestnr\") & \"\', \'\" & upload.Files(\"Lydklip1\").ExtractFileName & \"\', \'\" & replace(replace(upload.Form(\"Tekst1\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\', \'\" & replace(replace(upload.Form(\"Forfatter1\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\')\"
            conn.Execute(sql)
        end if
       
        if upload.Form(\"Lydklip2\") = \"true\" then
            fra = tmp_mappe & \"\\\" & upload.Files(\"Lydklip2\").ExtractFileName
            til = lyddir & \"\\\" & upload.Files(\"Lydklip2\").ExtractFileName
            upload.MoveFile fra, til
            sql = \"INSERT INTO Filer (Bestnr, Lydklip2, Tekst2, Forfatter2) VALUES(\'\" & upload.Form(\"bestnr\") & \"\', \'\" & upload.Files(\"Lydklip2\").ExtractFileName & \"\', \'\" & replace(replace(upload.Form(\"Tekst2\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\', \'\" & replace(replace(upload.Form(\"Forfatter2\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\')\"
            conn.Execute(sql)
        end if
       
        if upload.Form(\"Lydklip3\") = \"true\" then
            fra = tmp_mappe & \"\\\" & upload.Files(\"Lydklip3\").ExtractFileName
            til = lyddir & \"\\\" & upload.Files(\"Lydklip3\").ExtractFileName
            upload.MoveFile fra, til
            sql = \"INSERT INTO Filer (Bestnr, Lydklip3, Tekst3, Forfatter3) VALUES(\'\" & upload.Form(\"bestnr\") & \"\', \'\" & upload.Files(\"Lydklip3\").ExtractFileName & \"\', \'\" & replace(replace(upload.Form(\"Tekst3\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\', \'\" & replace(replace(upload.Form(\"Forfatter3\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\')\"
            conn.Execute(sql)
        end if
       
        if upload.Form(\"Lydklip4\") = \"true\" then
            fra = tmp_mappe & \"\\\" & upload.Files(\"Lydklip4\").ExtractFileName
            til = lyddir & \"\\\" & upload.Files(\"Lydklip4\").ExtractFileName
            upload.MoveFile fra, til
            sql = \"INSERT INTO Filer (Bestnr, Lydklip4, Tekst4, Forfatter4) VALUES(\'\" & upload.Form(\"bestnr\") & \"\', \'\" & upload.Files(\"Lydklip4\").ExtractFileName & \"\', \'\" & replace(replace(upload.Form(\"Tekst4\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\', \'\" & replace(replace(upload.Form(\"Forfatter4\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\')\"
            conn.Execute(sql)
        end if
       
        if upload.Form(\"Lydklip5\") = \"true\" then
            fra = tmp_mappe & \"\\\" & upload.Files(\"Lydklip5\").ExtractFileName
            til = lyddir & \"\\\" & upload.Files(\"Lydklip5\").ExtractFileName
            upload.MoveFile fra, til
            sql = \"INSERT INTO Filer (Bestnr, Lydklip5, Tekst5, Forfatter5) VALUES(\'\" & upload.Form(\"bestnr\") & \"\', \'\" & upload.Files(\"Lydklip5\").ExtractFileName & \"\', \'\" & replace(replace(upload.Form(\"Tekst5\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\', \'\" & replace(replace(upload.Form(\"Forfatter5\"), \"\'\", \"¤#¤\"), \"\"\"\", \"¤##¤\") & \"\')\"
            conn.Execute(sql)
        end if
       
        Response.Redirect(\"default.asp\")
       
    else
       
\'Sletter filer fra tmp_mappe
        dim myfileobject, myfolder, item
        set myfileobject = server.CreateObject(\"Scripting.FileSystemObject\")
        set myfolder = myfileobject.GetFolder(tmp_mappe)
       
        for each item in myfolder.files
            myfileobject.deletefile item
        next
       
        Response.Redirect(\"default.asp\")
    end if
%>