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

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