asp resim sorunu

teşekkürler bende dünden beri uraşıyodum neden resim yuklenmıyor diye mail boyle idare ederiz

resim caresi yokmu diyosun bileşenleri yuklemekten başka

Kullanmadım ama asp upload için smart upload bileşeni ücretsiz, google'dan arayıp kaynaklara ulaşabilirsiniz.

Kolay gelsin, iyi çalışmalar.

bişey buldum tüm sorumun cevabı

http://emreemlak.info/ddd.asp

bileşen tamam ama yınede hata veriyor sayfa gountulenemıyo
<%
'On Error Resume Next
Server.ScriptTimeout = 240

Set Upload = Server.CreateObject("Persits.Upload")
Set Jpeg = Server.CreateObject("Persits.Jpeg")

Upload.CodePage = 1254
Upload.SetMaxSize 1024000, True
Upload.OverWriteFiles = False
Upload.Save Server.MapPath("images")

hata = 0

For Each File in Upload.Files
If File.ImageType <> "JPG" or File.Size > 256000 Then
File.Delete
hata = hata + 1
Else
Jpeg.Open File.Path
Jpeg.Width = 300
Jpeg.Height = 300
Jpeg.Save Server.MapPath("images") & "\onizleme_" & File.FileName
End if
Next

if Err.Number = 8 Then
hata = hata + 1
End if

hata = Cstr(hata)

cb_oncelikli_listeleme = Session("oncelikli")
cb_vitrin = Session("vitrin")
cb_flash_ilanlar = Session("flash")


if cb_oncelikli_listeleme = "True" or cb_vitrin = "True" or cb_flash_ilanlar = "True" Then
adres = "default.asp?icerik=16&cbol="&cb_oncelikli_listele me&"&cbv="&cb_vitrin&"&cbfi="&cb_flash_ilanlar&"&h ata="& hata
Else
adres = "default.asp?icerik=2&hata="& hata
End if

strSQL = "SELECT * FROM ilanlar WHERE ekleyen ="& Session("OnlineUyeId") &" ORDER BY id DESC"
Set ks1 = baglanti.Execute(strSQL)

For Each File in Upload.Files
if File.ImageType = "JPG" And File.Size <= 256000 Then
strSQL = "INSERT INTO ilan_resimleri (ilan_id, resim) VALUES ('"&CSTR(ks1("id"))&"', '"&File.FileName&"')"
baglanti.Execute(strSQL)
End if
Next

ks1.Close
Set ks1 = Nothing
Set Upload = Nothing
Set Jpeg = Nothing
%>




re_ilan_kaydet.asp


<form action="re_ilan_kaydet.asp" method="post" enctype="multipart/form-data">
<tr><td>
<table width="370" align="center" cellpadding="0" cellspacing="0" class="tborder">
<tr>
<td><table width="370" cellspacing="3">
<tr>
<td height="18" colspan="3" align="center" bgcolor="#D5D5FF"><strong class="baslik">Resim Ekle</strong> </td>
</tr>
<tr>
<td width="54">Resim1</td>
<td width="1">:</td>
<td width="295"><input name="resim1" type="file" id="resim1" class="input"></td>
</tr>
<tr>
<td>Resim2</td>
<td>:</td>
<td><input name="resim2" type="file" id="resim2" class="input"></td>
</tr>
<tr>
<td>Resim3</td>
<td>:</td>
<td><input name="resim3" type="file" id="resim3" class="input"></td>
</tr>
<tr>
<td>Resim4</td>
<td>:</td>
<td><input name="resim4" type="file" id="resim4" class="input"></td>
</tr>
</table>

Hatanın nerede olduğunu bilmeden hatayı bulmak zor olur, önce özel hataların açılıp hataya bakılması gerekir.

ok beklıyeceğiz o zaman hareket arkadaşa post attım

resim yukleme sorununu hallettim şimdide ön izlemede cımıyor nasıl düzelticem

TİRE EMLAK EMREEMLAK Gayrimenkul İlan Emlak Satış Sitesi daire arsa detaylar

edit onuda hallettik şimdi ilk ilan eklerken resim yuklenmıyor ilanı ekledikten sonra resim yukleyebiliyorum

bu kodda bi hatamı var yada benım yanlış yaptığım bişeymi var

<%
 'On Error Resume Next
 Server.ScriptTimeout = 240
 
 Set Upload = Server.CreateObject("Persits.Upload")
 Set Jpeg = Server.CreateObject("Persits.Jpeg")
 
 Upload.CodePage = 1254
 Upload.SetMaxSize 1024000, True
 Upload.OverWriteFiles = False
 Upload.Save Server.MapPath("images")
 
 hata = 0
 
 For Each File in Upload.Files
     If File.ImageType <> "JPG" or File.Size > 256000 Then
      File.Delete
   hata = hata + 1
  Else
   Jpeg.Open File.Path
   Jpeg.Width = 100
   Jpeg.Height = 100
   Jpeg.Save Server.MapPath("images") & "\" & File.FileName
  End if
 Next
 
 if Err.Number = 8 Then
 hata = hata + 1
 End if
 
 hata = Cstr(hata)
 
 cb_oncelikli_listeleme = Session("oncelikli")
 cb_vitrin = Session("vitrin")
 cb_flash_ilanlar = Session("flash")
 
 
 if cb_oncelikli_listeleme = "True" or cb_vitrin = "True" or cb_flash_ilanlar = "True" Then
  adres = "default.asp?icerik=16&cbol="&cb_oncelikli_listeleme&"&cbv="&cb_vitrin&"&cbfi="&cb_flash_ilanlar&"&hata="& hata
 Else
  adres = "default.asp?icerik=2&hata="& hata
 End if
 
 strSQL = "SELECT * FROM ilanlar WHERE ekleyen ="& Session("OnlineUyeId") &" ORDER BY id DESC"
 Set ks1 = baglanti.Execute(strSQL)
 
 For Each File in Upload.Files
  if File.ImageType = "JPG" And File.Size <= 256000 Then
   strSQL = "INSERT INTO ilan_resimleri (ilan_id, resim) VALUES ('"&CSTR(ks1("id"))&"', '"&File.FileName&"')"
   baglanti.Execute(strSQL)
  End if
 Next
 
 ks1.Close
 Set ks1 = Nothing
 Set Upload = Nothing
 Set Jpeg = Nothing
%>

sunucunda persits asp.jpeg bileşeni yüklü olması lazım..

On Error Resume Next'i açıyorsanız herhangi bir hata önizlemesi olmaz, çünkü hata olması durumunda o kodla işlemi devam etmek üzere kodlamış olursunuz. Fotoğraf yükleme aşamasında eğer dosya karşı tarafa gidiyorsa sorun başka bir yerde demektir. İlk mesajımdan itibaren hata kodlarının yazılması gerektiğini söylüyorum. Siz hala kodlarda hata arıyorsunuz.