Persist.Upload Sorunu

On Error Resume Next

Bu kodun anlamı hata olduğunda durma devam et demek oluyor hataya düşssede kod devam ediyor ve senin istediğin şey gerçekleşmesede devam edebiliyor.

hocam peki bu şekildede yapmamızın bi zararı varmı, isterseniz size aşağıda upload kodlarına vereyim bakın, hata varsa bana yazın hatayı düzelteyim
Saygılar.


<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9"/>
<!-- #include file="../data.asp" -->
<%
On Error Resume Next
Set rs = server.CreateObject("ADODB.Recordset")
SQL = "Select * from ilan"
rs.Open SQL,Conn,1,3

'****** Burdan gerisi resimleri klasöre keler ve ilan eklerken hatalar varsa onaları söyler.
on error resume next
Set upload=Server.CreateObject("Persits.Upload" )
Upload.IgnoreNoPost = True
Upload.OverwriteFiles = False
upload.save
Dim isim
Randomize
isim = int (rnd*9999999999)+1

Set kategori_id = Upload.Files("kategori_id")
Set alt_kategori_id = Upload.Files("alt_kategori_id")
Set baslik = Upload.Files("baslik")
Set il_id = Upload.Files("il_id")
Set ilce_id = Upload.Files("ilce_id")
Set durumu = Upload.Files("durumu")
Set emlak_tipi = Upload.Files("emlak_tipi")
Set oda = Upload.Files("oda")
Set salon = Upload.Files("salon")
Set m2 = Upload.Files("m2")
Set arsam2 = Upload.Files("arsam2")
Set emlak_fiyat = Upload.Files("emlak_fiyat")
Set fiyat_tip = Upload.Files("fiyat_tip")

if (upload.form("kategori_id")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Kategori Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("alt_kategori_id")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Alt Kategori Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("baslik")="") then
Response.Write"<script language=""javascript"">alert('Lütfen ilan Başlığını Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("il_id")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Bulunduğu ili Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("ilce_id")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Bulunduğu ilçeyi Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("durumu")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlak Durumunu Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("emlak_tipi")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlak Tipini Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("oda")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Oda Sayısını Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("salon")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Salon Sayısını Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("m2")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlağın m2 sini Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("arsam2")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlağın Arsa m2 sini Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("emlak_fiyat")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlağın Fiyatını Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("fiyat_tip")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlağın Fiyatının para cinsini Belirtiniz...');history.back();</script>"
response.end
End if

Set file=upload.files("r1" )
Set file1=upload.files("r2" )
Set file2=upload.files("r3" )
Set file3=upload.files("r4" )
Set file4=upload.files("r5" )
Set file5=upload.files("r6" )
Set file6=upload.files("r7" )
Set file7=upload.files("r8" )
Set file8=upload.files("r9" )
Set file9=upload.files("r10" )

If file.ImageType = "JPG" or file.ImageType = "GIF" or file.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 1 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

If file1.ImageType = "JPG" or file1.ImageType = "GIF" or file1.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 2 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

If file2.ImageType = "JPG" or file2.ImageType = "GIF" or file2.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 3 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

If file3.ImageType = "JPG" or file3.ImageType = "GIF" or file3.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 4 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

If file4.ImageType = "JPG" or file4.ImageType = "GIF" or file4.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 5 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

If file5.ImageType = "JPG" or file5.ImageType = "GIF" or file5.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 6 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

If file6.ImageType = "JPG" or file6.ImageType = "GIF" or file6.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 7 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

If file7.ImageType = "JPG" or file7.ImageType = "GIF" or file7.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 8 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

If file8.ImageType = "JPG" or file8.ImageType = "GIF" or file8.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 9 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

If file9.ImageType = "JPG" or file9.ImageType = "GIF" or file9.ImageType = "PNG" then
else
response.write "<script language=""javascript"">alert('(((( Resim 10 )))) JPG, GIF, PNG Uzantılı Resim Ekleyebilirsiniz...');history.back();</script>"
response.end
end if

file.saveas Server.MapPath("../image/" &isim& file.ext)
file1.saveas Server.MapPath("../image/" &isim+1& file1.ext)
file2.saveas Server.MapPath("../image/" &isim+2& file2.ext)
file3.saveas Server.MapPath("../image/" &isim+3& file3.ext)
file4.saveas Server.MapPath("../image/" &isim+4& file4.ext)
file5.saveas Server.MapPath("../image/" &isim+5& file5.ext)
file6.saveas Server.MapPath("../image/" &isim+6& file6.ext)
file7.saveas Server.MapPath("../image/" &isim+7& file7.ext)
file8.saveas Server.MapPath("../image/" &isim+8& file8.ext)
file9.saveas Server.MapPath("../image/" &isim+9& file9.ext)
'******************Burda Gerisi Veri tabanına Kayıt yapar

rs.AddNew
rs("kategori_id")= Upload.Form("kategori_id")
rs("alt_kategori_id")= Upload.Form("alt_kategori_id")
rs("baslik")= Upload.Form("baslik")
rs("il_id")= Upload.Form("il_id")
rs("ilce_id")= Upload.Form("ilce_id")
rs("durumu")= Upload.Form("durumu")
rs("emlak_tipi")= Upload.Form("emlak_tipi")
rs("oda")= Upload.Form("oda")
rs("salon")= Upload.Form("salon")
rs("m2")= Upload.Form("m2")
rs("arsam2")= Upload.Form("arsam2")
rs("emlak_fiyat")= Upload.Form("emlak_fiyat")
rs("fiyat_tip")= Upload.Form("fiyat_tip")
rs("kimin") = session("user")
rs("tarih") = date()
rs("aktif") = True
rs("resim1") = isim& file1.ext
rs("resim2") = isim+1& file1.ext
rs("resim3") = isim+2& file2.ext
rs("resim4") = isim+3& file3.ext
rs("resim5") = isim+4& file4.ext
rs("resim6") = isim+5& file5.ext
rs("resim7") = isim+6& file6.ext
rs("resim8") = isim+7& file7.ext
rs("resim9") = isim+8& file8.ext
rs("resim10") = isim+9& file9.ext

rs.Update
rs.Close
set rs = Nothing
Conn.Close
set Conn = Nothing
response.write "<script language=""javascript"">alert('İlanınız Başarıyla Eklendi');location.href=""index.asp"";</script>"
%>

<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
' we use memory uploads, so we must limit file size
Upload.SetMaxSize 100000, True

' Save to memory. Path parameter is omitted
Upload.Save

' Access subdirectory specified by user
subdir = Upload.Form("subdir")

' Build path string
Path = "c:\upload\" & subdir

' Create path, ignore "already exists" error
Upload.CreateDirectory Path, True

' Save files to it. Our form has only one file item
' but this code is generic.
For Each File in Upload.Files
   File.SaveAs Path & "\" & File.FileName
   Response.Write "File saved as " & File.Path & "<BR>"
Next
%>
</BODY>
</HTML>

For each döngüsü, senin form elemanından kaç tane file yüklendiyse hepsi için kayıt sonuna kadar döner ve durur.

Tekrar yaptığın yerlerde bu gösteridğim koddaki gibi bi örnek yapabilirsin.

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9"/>
<!-- #include file="../data.asp" -->
<%
On Error Resume Next	
Set rs = server.CreateObject("ADODB.Recordset")
SQL = "Select * from ilan"
rs.Open SQL,Conn,1,3

'****** Burdan gerisi resimleri klasöre keler ve ilan eklerken hatalar varsa onaları söyler.
on error resume next
Set upload=Server.CreateObject("Persits.Upload" )
Upload.IgnoreNoPost = True
Upload.OverwriteFiles = False
upload.save
Dim isim
Randomize
isim = int (rnd*9999999999)+1

Set kategori_id		= Upload.Files("kategori_id")
Set alt_kategori_id = Upload.Files("alt_kategori_id")
Set baslik			= Upload.Files("baslik")
Set il_id			= Upload.Files("il_id")
Set ilce_id			= Upload.Files("ilce_id")
Set durumu			= Upload.Files("durumu")
Set emlak_tipi		= Upload.Files("emlak_tipi")
Set oda				= Upload.Files("oda")
Set salon			= Upload.Files("salon")
Set m2				= Upload.Files("m2")
Set arsam2			= Upload.Files("arsam2")
Set emlak_fiyat		= Upload.Files("emlak_fiyat")
Set fiyat_tip		= Upload.Files("fiyat_tip")

if (kategori_id="") Or  Len(kategori_id) < 1 Then ' bu şekilde daha güvenli.
	Response.Write"<script language=""javascript"">alert('Lütfen Kategori Belirtiniz...');history.back();</script>"
	response.end
End if

if (upload.form("alt_kategori_id")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Alt Kategori Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("baslik")="") then
Response.Write"<script language=""javascript"">alert('Lütfen ilan Başlığını Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("il_id")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Bulunduğu ili Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("ilce_id")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Bulunduğu ilçeyi Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("durumu")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlak Durumunu Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("emlak_tipi")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlak Tipini Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("oda")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Oda Sayısını Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("salon")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Salon Sayısını Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("m2")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlağın m2 sini Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("arsam2")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlağın Arsa m2 sini Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("emlak_fiyat")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlağın Fiyatını Belirtiniz...');history.back();</script>"
response.end
End if

if (upload.form("fiyat_tip")="") then
Response.Write"<script language=""javascript"">alert('Lütfen Emlağın Fiyatının para cinsini Belirtiniz...');history.back();</script>"
response.end
End if



'Resimler upload edilip, gerekli tablolara kayıtlar işlenmeye başlıyor.
For Each File in Upload.Files

	resadi = ""
	'resim formatındaysa işlem yapar.yoksa kaydetmez..

	If File.ImageType = "UNKNOWN" Then 'Resim değilse
		RESPONSE.Write "Sadece Jpeg, Gif, Bmp, Png formatlarında resim gönderebilirsiniz."
		Response.End
	Else
		Upload.SaveAs Path & "\" & File.FileName

	End If 

Next 


rs.AddNew
	rs("kategori_id")= Upload.Form("kategori_id")
	rs("alt_kategori_id")= Upload.Form("alt_kategori_id")
	rs("baslik")= Upload.Form("baslik")
	rs("il_id")= Upload.Form("il_id")
	rs("ilce_id")= Upload.Form("ilce_id")
	rs("durumu")= Upload.Form("durumu")
	rs("emlak_tipi")= Upload.Form("emlak_tipi")
	rs("oda")= Upload.Form("oda")
	rs("salon")= Upload.Form("salon")
	rs("m2")= Upload.Form("m2")
	rs("arsam2")= Upload.Form("arsam2")
	rs("emlak_fiyat")= Upload.Form("emlak_fiyat")
	rs("fiyat_tip")= Upload.Form("fiyat_tip")
	rs("kimin") = session("user")
	rs("tarih") = date()
	rs("aktif") = True
	rs("resim1") = isim& file1.ext
	rs("resim2") = isim+1& file1.ext
	rs("resim3") = isim+2& file2.ext
	rs("resim4") = isim+3& file3.ext
	rs("resim5") = isim+4& file4.ext
	rs("resim6") = isim+5& file5.ext
	rs("resim7") = isim+6& file6.ext
	rs("resim8") = isim+7& file7.ext
	rs("resim9") = isim+8& file8.ext
	rs("resim10") = isim+9& file9.ext

rs.Update
rs.Close
set rs = Nothing
Conn.Close
set Conn = Nothing


response.write "<script language=""javascript"">alert('İlanınız Başarıyla Eklendi');location.href=""index.asp"";</script>"
%>

Bu kod sadece for each in nasıl çalıştığını anlatmak için yoksa diğer yaptığın kodlarıda düzenlemek gerekir.

Merhaba Hocam
randomize kodunu resime nasıl yazdıracağız ve resimi atacığımız klasörü nereye yazacağız, birde diğer kodlarda ne gibi değişiklikler yapmak gerekiyor.
saygılar.