Persist upload ile Çoklu resim --yardım--

Merhaba Arkadaşlar
Persist upload ile Çoklu resim (10 resim) ve ilan bilgilerini veritabanına kaydetme gibi uygulama lazım bana bu konuda yardımcı olabilirmisiniz.
Saygılar.

aspindir.com 'da bir çok örneğini bulabilirsin aslında biraz araştırsan iyi olur...

Hocam verdiğiniz cevap için teşekkür ederim
araştırdımda pek bi şeyler bulamadım, elimde bir uygulama var onun bi türlü bilgileri ve resimleri veritabanına yazdıramadım uygulama aşağıdaki gibidir.
Saygılar.

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<!--#include file="../baglan.asp"-->
<%
Set smt= server. CreateObject("ADODB.Recordset")
SQL="select * FROM ilan order by id desc"
smt.Open SQL, conn, 1, 3

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 500000, True
Upload.Save



on error resume next
Set resim9 = Upload.Files("resim9")
Set resim8 = Upload.Files("resim8")
Set resim7 = Upload.Files("resim7")
Set resim6 = Upload.Files("resim6")
Set resim5 = Upload.Files("resim5")
Set resim4 = Upload.Files("resim4")
Set resim3 = Upload.Files("resim3")
Set resim2 = Upload.Files("resim2")
Set resim1 = Upload.Files("resim1")
Set resim = Upload.Files("resim")

If resim.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

If resim1.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

If resim2.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

If resim3.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

If resim4.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

If resim5.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

If resim6.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

If resim7.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

If resim8.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

If resim9.ImageType="JPG" then
else
response.Redirect("error.asp?error=000029")
response.end
end if

resim.SaveAs Server.MapPath("resimler") & "\" & resim.Filename
resim1.SaveAs Server.MapPath("resimler") & "\" & resim1.Filename
resim2.SaveAs Server.MapPath("resimler") & "\" & resim2.Filename
resim3.SaveAs Server.MapPath("resimler") & "\" & resim3.Filename
resim4.SaveAs Server.MapPath("resimler") & "\" & resim4.Filename
resim5.SaveAs Server.MapPath("resimler") & "\" & resim5.Filename
resim6.SaveAs Server.MapPath("resimler") & "\" & resim6.Filename
resim7.SaveAs Server.MapPath("resimler") & "\" & resim7.Filename
resim8.SaveAs Server.MapPath("resimler") & "\" & resim8.Filename
resim9.SaveAs Server.MapPath("resimler") & "\" & resim9.Filename


Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("veri/veri.mdb")
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "emlak", Connect,1, 3
rs.AddNew
rs("id") = Upload.Form("id")
rs("il") = Upload.Form("il")
rs("ilce") = Upload.Form("ilce")
rs("durumu") = Upload.Form("durumu")
rs("emlak_tipi") = Upload.Form("emlak_tipi")
rs("oda") = Upload.Form("oda")
rs("salon") = Upload.Form("salon")
rs("balkon") = Upload.Form("balkon")

rs("resim") =resim.filename
rs("resim1") =resim1.filename
rs("resim2") =resim2.filename
rs("resim3") =resim3.filename
rs("resim4") =resim4.filename
rs("resim5") =resim5.filename
rs("resim6") =resim6.filename
rs("resim7") =resim7.filename
rs("resim8") =resim8.filename
rs("resim9") =resim9.filename
rs("tarih") = date
rs("hit") =0
rs("goruntulenme") =0

RS.UPDATE

Response.Write"<font face=""Tahoma"" style=""font-size: 9pt; font-weight: 700"" color=""#FF0000"">ilanınız başarıyla eklendi!</font>"

rs.close
Set rs = Nothing
smt.close
Set smt = Nothing
conn.close
Set conn = Nothing
%>

Arkadaşlar ben sorunumu hallettim
Teşekürler

localde fazla resim yükleme yapabilirsin fakat sunucu üzerinde sanmıyorum sağlıklı çalışacağının

Teşekkürler Hocam
Ben Sorunumu Kendim Hallettim Konunun kapanması için yazmıştım ama Hocam Yinede Benim sorunum var, veritabanına ve klasöre resim eklerken ilanın başlığını resime yazdırmak istiyorum mesela ilanın başlığı+random kodu bunları hepsini yaptırıyorum, veritabanına eklediğim ilanın başlığını ve random kodunu yazdırıyorum, resim klasörünede aynı şekilde yazdırıyorum ama tuhafki ikinci bi ilanın eklediğim zaman ilk ilanın başlığını resim klasörüne attığı resimlere yazıyor, veritabanına ikinci ilanın başlığını yazıyor anlayamadığım konu veritabanına yazıyorda resim klasörüne atılan resimlere neden yazmıyor yinede aşağıda resim klasörüne resimleri atmak için kodu vereyim bide veritabanına eklediği kodu vereyim bu konuda yardımcı olabilirseniz sevinirim.
Saygılar.


Resim klasörüne Resimleri atmak için

file.saveas Server.MapPath("../image/"&cevir(ilan("baslik"))&"_"&isim& file.ext)




Veritabanına Resimleri Yazdırmak için

rs("resim1") = cevir(ilan("baslik"))&"_"&isim& file1.ext