Har föröka att leta här efter hur man gör, men får inte till det
jag har lyckats att ladda upp fler bilder, men filnamn skrivs inte till db´n och filerna förminskas inte


så här ser koden ut nu, finns säkert en del fel
men det fungerar för en bild

[code]Set Upload = Server.CreateObject("Persits.Upload")
On Error Resume Next
Upload.OverwriteFiles = False
Upload.Save("c:\blablablabla")
Set File = Upload.Files("THEFILE")

If Err.Number = 8 Then
File.Delete
Response.redirect "ad_error_size.asp"
End If

If Not File Is Nothing Then
If File.ImageType <> "JPG" Then
File.Delete
Response.Redirect "ad_error.asp"
Response.End
End If

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(Server.MapPath("upload/" & File.Filename ))
Image.FileName = (Server.MapPath("upload/" & File.Filename ))
maxbredd = 440
maxhojd = 440
bredd = Image.MaxX
hojd = Image.MaxY

If hojd> bredd AND hojd> maxhojd then
Image.ImageFormat = 1
Image.JPEGQuality = 90
divX = Image.MaxX / 440
divY = Image.MaxY / 440
intXsize = Image.MaxX / divy
intYSize = Image.MaxY / divy
Image.ResizeR intXSize,intYSize
Image.SaveImage
Set Image = Nothing

Else
If bredd> hojd AND bredd> maxbredd then
Image.ImageFormat = 1
Image.JPEGQuality = 90
divX = Image.MaxX / 440
divY = Image.MaxY / 440
intXsize = Image.MaxX / divx
intYSize = Image.MaxY / divx
Image.ResizeR intXSize,intYSize
Image.SaveImage
Set Image = Nothing

Else
Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.SaveImage
Set Image = Nothing

End If
End If

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(Server.MapPath("upload/" & File.Filename ))
Image.FileName = (Server.MapPath("upload/thumbs/" & File.Filename ))
bredd = Image.MaxX
hojd = Image.MaxY

If hojd> bredd then
Image.ImageFormat = 1
Image.JPEGQuality = 90
divX = Image.MaxX / 100
divY = Image.MaxY / 100
intXsize = Image.MaxX / divy
intYSize = Image.MaxY / divy
Image.ResizeR intXSize,intYSize
Image.CropImage 2,2,75,75
Image.SaveImage
Set Image = Nothing

Else
If bredd> hojd then
Image.ImageFormat = 1
Image.JPEGQuality = 90
divX = Image.MaxX / 100
divY = Image.MaxY / 100
intXsize = Image.MaxX / divx
intYSize = Image.MaxY / divx
Image.ResizeR intXSize,intYSize
Image.CropImage 2,2,75,75
Image.SaveImage
Set Image = Nothing
End If
End If

connect = "DRIVER={MySQL ODBC 3.51 Driver}...........................
SQL = "INSERT INTO ads (image_blob, filename, subject, price, type1, name1, phone, lan, city, body, password, email, cat, link, filesize, datum, click, activated, payad, bud) VALUES(?, '"& File.Filename & "', '"& Replace(Upload.form("SUBJECT"), "'", "''") &"', '"& Upload.Form("PRICE") & "', '"& Upload.Form("TYPE1") & "', '"& Upload.Form("NAME1") & "', '"& Upload.Form("PHONE") & "', '"& Upload.Form("LAN") & "', '"& Upload.Form("CITY") & "', '"& Replace(Upload.form("BODY"), "'", "''") & "', '"& Upload.Form("PASSWORD") & "', '"& Upload.Form("EMAIL") & "', '"& Upload.Form("CAT") & "', '"& Upload.Form("LINK") & "', '"& File.Size & "', '"&Now()&"', '"& Upload.Form("CLICK") & "', '"& Upload.Form("ACTIVATED") & "', '"& Upload.Form("PAYAD") & "', '"& Upload.Form("BUD") & "')"'
File.ToDatabase Connect, SQL [/code]

hur vet koden att det är flera filer?
Jag ser då inget som kollar detta.

Du får göra någon loop - FOR EACH BLOB IN ...

Inte vet jag, men något sånt...

Du måste använda dig av .files-samlingen för att loopa genom alla filerna som skickats upp.

.files-samlingen innehåller dock ingenting förrän du har utfört .Save-metoden, så kom ihåg det när du ändrar din kod.