asp resim sorunu

bu kodda hata varmı

<link href="stil.css" rel="stylesheet" type="text/css" />

<!--#include file = "kontrol.asp"-->
 

<!--#include file = "baglanti.asp"-->
 
 
 

<%
 '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") & "\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_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
%>
 
 
 
 
<script type="text/javascript">
 <!--
 function exec_refresh()
 {
  window.status = "Yönlendiriliyor..." + myvar;
  myvar = myvar + " .";
  var timerID = setTimeout("exec_refresh();", 200);
  if (timeout > 0)
  {
   timeout -= 1;
  }
  else
  {
   clearTimeout(timerID);
   window.status = "";
   window.location = "<%=adres%>";
  }
 }
 
 var myvar = "";
 var timeout = 20;
 exec_refresh();
 //-->
 </script>
<table width="370" align="center" cellpadding="0" cellspacing="0" class="tborder">
 <tr>
 <td><table width="370" cellspacing="3">
      <tr>
        <td height="18" align="center" bgcolor="#D5D5FF"><strong class="baslik">UYARI</strong></td>
      </tr>
      <tr>
        <td class="uyari">Kayıt yapılıyor l&uuml;tfen bekleyin...<br />
          <a href="<%=adres%>" class="uyari"><strong>Otomatik olarak y&ouml;nlendirilmezse l&uuml;tfen tıklayın... </strong></a></td>
      </tr>
    </table></td>
 </tr>
 </table>

bunu sidimmi sayfa hata vermiyo

<%
 '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") & "\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_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
%>

Her şeyden önce bu işlemi gerçekleştirmek ASP Upload bileşeninin sunucuda kurulu olması gerekir, eğer ki kuruluysa ne hata verdiğini yazarsan daha kolay sonuca ulaşırsın.

asp uplaud bileşeni olup olmadını nasıl anlarız


verdiği hata bu

Internal Server Error

emreemlak.info/re_ilan_kaydet.asp

O asp hatası değil, özel hata sayfalarının genel hata kodu. Özel hata sayfalarını pleskten kapatırsan gerçek hatanın ne olduğu belli olur. Plesk panelinde alanadı kurulumunda (setup) sayfanın altında vardır özel hata sayfaları, İngilizceyse "Custom Error Pages" yazar. Önce o hatanın ne olduğuna bakmak lazım, fakat muhtemelen bileşen makinede yüklü değil. ASP Upload ücretli bir bileşendir. Varsayılan kurulumlarda yer almaz.

bunlar var
sevisler

Microsoft ASP desteğiEvet

Microsoft ASP.NET desteğiHayır

SSI desteğiHayır PHP desteğiEvet

CGI desteğiEvet Perl desteğiEvet

Python desteğiHayır (Modül kurulu değil)

ColdFusion desteğiHayır (Modül kurulu değil)

Web istatistikleriYokÖzel hata sayfaları evet < --bunu kapatamıyorum

sanırım kısıtlı dedin şey olsaydı burda görünürmüydü

iletiim kutusunuda calıştıramadığım için ben oraya php yerleştirdim resim içinde bu söz konusu olabilirmi

TİRE EMRE EMLAK EMREEMLAK Gayrimenkul İlan Emlak, Satış Sitesi

bunlar kullanabileceğin servisler, bir de bunların alt bileşenleri var. yani özel uygulamaları çalıştırabileceğin eklentiler. Özel olarak sunucuya yüklenmesi gereken bileşenler.

Diğer sorunuzun cevabı:
Çok ilgisiz şeyler, çalışmamasının sebebi php yüklemeniz değil, asp kodlarında hata olması (tekrar muhtemelen de bileşen) Fakat bileşen olsa dahi gördüğüm kadarıyla bilgin de yetersiz, bilen birinden yardım alman gerekir. Hevesini kırmak istemem ama o işlemler tek başına yapabileceğin işlemler değil, kodlama ve bilgide bayağı yol katedip yapabileceğin şeyler. Yine de çalış, araştır, arama motorları ve forumlar en büyük kaynak.

mail gonderememe sebebide bu bileşenlermi resim sebeb o mail neden gitmiyor denedim tüm csriptlerde resim ve mailde sorun cıktı en son care bu

Mail gönderememe sıkıntısı mail sunucunuzda olan problemle ilgili, bahsettiğim sorun sunucuya dosya yükletmekle ilgili olan sorundur. Birbirlerinden bağımsız konular. Mail sunucusu için de bulundurma servisi aldığınız şirketle görüşün, çaresine baksınlar.