multipart/form-data problemer

Du kan gøre sådan hvis du bruger aspupload.

<%
  Set Upload = Server.CreateObject("Persits.Upload.1") 
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 300000, True
  Upload.SaveVirtual("billeder/")
 
For Each File in Upload.Files

  Dim FileName
  FileName = File.ExtractFileName

  if Err <> 0 Then
      Response.Write "Der er sket en fejl! : " & Err.Description
  Else

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

strSQL = "Update bruger set "
strSQL = strSQL & "images= '" & FileName & "'"
strSQL = strSQL & " Where id = 1"

Conn.Execute(strSQL)

Response.Write "Filen "&FileName&" er uploaded!<br>"
   
    End If
Next
%>

det ved jeg men så får jeg også hele stien med.
Det jeg gerne ville finde ud af var hvordan jeg både kan sætte billedet ind (jeg har lavet så den fjerner stien) men så også samtidig få teksten med fra mine input felter.

Nåh okay. Så kan du gøre sådan:

<%
  Set Upload = Server.CreateObject("Persits.Upload.1") 
  Upload.OverwriteFiles = True
  Upload.SetMaxSize 300000, True
  Upload.SaveVirtual("billeder")
 
'For Each item in Upload.Form 

set Str_Navn = Upload.Form("navn")
Set  Str_Stilling = Upload.form("stilling")
Set  Str_Telefon  = Upload.form("telefon")
Set Str_Mobil    = Upload.form("mobil")
Set  Str_Fax      = Upload.form("fax")
Set  Str_Email    = Upload.form("email")
Set  Str_Tekst      = Upload.form("tekst")


For Each File in Upload.Files

  Dim FileName
  FileName = File.ExtractFileName

  if Err <> 0 Then

      Response.Write "Der er sket en fejl! : " & Err.Description

  Else
 
    Response.Write "Filen "&FileName&" er uploaded!<br>"
     
 
    dbConnection = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") & ";UID=admin;PWD=;"

    strSQL = "SELECT * FROM profil"
    Set rs = Server.CreateObject("ADODB.RecordSet")
    rs.Open strSQL, dbConnection, 1, 3

      rs.AddNew
      rs("Navn")    = Str_navn
      rs("Stilling") = Str_stilling
      rs("Telefon")  = Str_telefon
        rs("Mobil")    = Str_mobil
      rs("Fax")      = Str_fax
      rs("Email")    = Str_email
      rs("Billed")  = FileName
      rs("Tekst")    = Str_Tekst
      rs.Update 
      rs.Close
    Set rs = Nothing

    Response.Redirect "accept.asp"
   
    End If
Next


%>

jeg skal lave en insert into til sidst kan jeg så gøre sådan:

SQL ="INSERT INTO tabel (login,navn,alder,)VALUES('" & Str_fax & "','" & Str_email & "' O.S.V

hmm hver gang jeg prøver får jeg fejlen
Persits.Upload.1 error '800a0001'

Unspecified error

/user/test/test-user.asp, line 541

linie 541 er
Upload.SaveVirtual "/Copyright"

jeg har prøvet
Upload.SaveVirtual ("/Copyright")

giver samme fejl og mappen er der

bobbedude>> det er fordi du ikke må sætte / foran dit mappenavn