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
%>