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