kan jeg hente alle..

.. items fra Upload.Form og tilføj den til db også?

jeg henter x antal filer sammen med en beskrivelse (descr) men jeg har ikke kunnet få den til at tilføje beskrivelse sammen med dens respektive fil

indtil videre har jeg bare sat den til at indsætte Upload.Form("descr1") ved dem alle.

Hvordan får jeg tilføjet items (beskrivelser)i denne Insert?


<%

Set Upload = Server.CreateObject("Persits.Upload")

' Limit file size to 50000 bytes, throw an exception if file is larger
Upload.SetMaxSize 50000, True

' Intercept all exceptions to display user-friendly error
On Error Resume Next

    ' Capture files
    Upload.Save


subdir = Upload.Form("ID")
filepath = "E:\Inetpub\wwwroot\Upload_test\hd\" & subdir


Upload.CreateDirectory filepath, False


For Each File in Upload.Files
    ' Obtain file object

  If File.ImageType = "UNKNOWN" Then
      Response.Write "This is not an image."
      Upload.RemoveDirectory filepath
      Response.End
  End If

    File.SaveAs filepath & "\" & File.FileName

    descr = Replace(Upload.Form("descr1"), "'", "''")

    If Not File Is Nothing Then

        ' Build ODBC connection string
        Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("upload.mdb")

            uploaddate = FormatDateTime(Now, 2)
            uploadtid = FormatDateTime(Now, 3)

                ' Build SQL INSERT statement
                SQL = "INSERT INTO billeder(filename, filepath, filesize, width, height, descr, filetype, uploaddate, uploadtid) VALUES("
                SQL = SQL & "'" & File.Filename & "', "
                SQL = SQL & "'" & File.Path & "', "
                SQL = SQL & "'" & File.Size & "', "
                SQL = SQL & "'" & File.ImageWidth & "', "
                SQL = SQL & "'" & File.ImageHeight & "', "
                SQL = SQL & "'" & descr & "', "
                SQL = SQL & "'" & File.ImageType & "', "
                SQL = SQL & "#" & uploaddate & "#, "
                SQL = SQL & "#" & uploadtid & "#"
                SQL = SQL & ");"

            ' Save to database
            File.ToDatabase Connect, SQL

            Response.Write "File(s) saved."

    Else

            ' 8 is the number of "File too large" exception
            If Err.Number = 8 Then
                  Response.Write "Your file is too large. Please try again."
            Else
                  If Err <> 0 Then
                      Response.Write "An error occurred: " & Err.Description
                  Else
                      Response.Write "Success!"
                  End If
            End If

    End If

Next

%>

-- xs