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