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