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