<!--#include file="../_ayar.asp"-->
<%
response.charset="utf-8"
server.scripttimeout = 1200
id = request.querystring("id")
resim = request.querystring("resim")
islem = request.querystring("islem")
manset = request.querystring("manset")
if manset = "" then manset = 0
resimyolu = "D:\vhosts\medyarazzi.com\subdomains\images\httpdocs\haber\"
resimadi = resim & ".jpg"
sil = request.querystring("sil")
set fso = Server.CreateObject("Scripting.FileSystemObject")
if sil <> "" then
sildosya  = resimyolu & sil & "\" & resimadi
If fso.FileExists(sildosya) = True Then fso.DeleteFile sildosya
end if

if islem = "yukle" then
Set upload = Server.CreateObject("Persits.Upload")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.regkey = "99631-41489-48306"
upload.regkey = "26912-93016-37021"
'response.write upload.form("yazi")
response.write upload.form("yazi")
upload.save
response.write upload.form("yazi")
Set haberresim = upload.Files("haberresim")
Set dikresim = upload.Files("dikresim")
Set mansetresim = upload.Files("mansetresim")
Set ozelmansetresim = upload.Files("ozelmansetresim")
Set ustmansetresim = upload.Files("ustmansetresim")
Set altmansetresim = upload.Files("altmansetresim")
If Not haberresim Is Nothing Then
jpeg.openbinary haberresim.binary
jpeg.width = 250
jpeg.height = 173
jpeg.save resimyolu & "resim\" & resimadi
jpeg.width = 150
jpeg.height = 100
jpeg.save resimyolu & "kucukresim\" & resimadi
haberresimyazi = "-Yüklendi "
end if
If Not dikresim Is Nothing Then
jpeg.openbinary dikresim.binary
jpeg.width = 145
jpeg.height = 292
jpeg.save resimyolu & "dikresim\" & resimadi
dikresimyazi = "-Yüklendi "
end if
If Not altmansetresim Is Nothing Then
jpeg.openbinary altmansetresim.binary
'genislik = 233
'jpeg.width = genislik
'jpeg.height = Jpeg.Originalheight * genislik / Jpeg.Originalwidth
altmansetresim.saveas resimyolu & "altmanset\" & resimadi
altmansetresimyazi = "-Yüklendi "
end if
If Not mansetresim Is Nothing Then
jpeg.openbinary mansetresim.binary
jpeg.width = 528
jpeg.height = 284
jpeg.save resimyolu & "manset\" & resimadi
'mansetresim.saveas resimyolu & "manset\" & resimadi
'jpeg.openbinary mansetresim.binary
'jpeg.width = 133
'jpeg.height = 93
'jpeg.save resimyolu & "mansetkucuk\" & resimadi

mansetresimyazi = "-Yüklendi "
end if
If Not ustmansetresim Is Nothing Then
jpeg.openbinary ustmansetresim.binary
jpeg.width = 226
jpeg.height = 100
jpeg.save resimyolu & "ustmanset\" & resimadi
ustmansetresim.saveas resimyolu & "ustmanset\" & resimadi
ustmansetresimyazi = "-Yüklendi "
end if
If Not ozelmansetresim Is Nothing Then
'jpeg.openbinary ozelmansetresim.binary
'jpeg.width = 229
'Jpeg.height = 250
ozelmansetresim.saveas resimyolu & "ozelmanset\" & resimadi
ozelmansetresimyazi = "-Yüklendi "
end if
end if

%>
<table cellpadding="0" cellspacing="0" width="100%" id="AutoNumber1">
  <tr>
    <td width="500" valign="top">
    <form method="post" enctype="multipart/form-data" action="?id=<%=id%>&resim=<%=resim%>&manset=<%=manset%>&islem=yukle">
  <input type="file" name="haberresim" size="20"> Haber Resmi (250x173) <%=haberresimyazi%><%
 if fso.FileExists(resimyolu & "resim\" & resimadi) = true then
 response.write "(Resim Var - <a onclick=""if(confirm('Resim Silinecektir. Silmek istediğinize eminmisiniz?')){}else{return false}"" href=""?id=" & id & "&resim=" & resim & "&manset=" & manset & "&sil=resim"">Sil</a>)"
 resimvar = "evet"
 end if
  %>
  <%
  if manset = 2 or manset = 5 then
  %>
  <br>
  <input type="file" name="mansetresim" size="20"> Manşet Resim (528x284) <%=mansetresimyazi%><%
 if fso.FileExists(resimyolu & "manset\" & resimadi) = true then
 response.write "(Resim Var - <a onclick=""if(confirm('Resim Silinecektir. Silmek istediğinize eminmisiniz?')){}else{return false}"" href=""?id=" & id & "&resim=" & resim & "&manset=" & manset & "&sil=manset"">Sil</a>)"
 mansetvar = "evet"
 end if
 end if
if manset = 3 then
  %><br>
  <input type="file" name="ozelmansetresim" size="20"> Özel Manşet (229x250) <%=ozelmansetresimyazi%><%
 if fso.FileExists(resimyolu & "ozelmanset\" & resimadi) = true then
 response.write "(Resim Var - <a onclick=""if(confirm('Resim Silinecektir. Silmek istediğinize eminmisiniz?')){}else{return false}"" href=""?id=" & id & "&resim=" & resim & "&manset=" & manset & "&sil=ozelmanset"">Sil</a>)"
 ozelmansetvar = "evet"
 end if
end if

 if manset = 4 then
  %><br>
  <input type="file" name="altmansetresim" size="20"> Alt Manşet (223x...) <%=altmansetresimyazi%><%
 if fso.FileExists(resimyolu & "altmanset\" & resimadi) = true then
 response.write "(Resim Var - <a onclick=""if(confirm('Resim Silinecektir. Silmek istediğinize eminmisiniz?')){}else{return false}"" href=""?id=" & id & "&resim=" & resim & "&manset=" & manset & "&sil=altmanset"">Sil</a>)"
 altmansetvar = "evet"
 end if
 end if
  %><br>
<input type="submit" value="Yükle" name="B1">
</form></td>
    <td width="500">
    <%
    if resimvar = "evet" then
    %>
    <img src="/haber/resim/<%=resimadi%>">
    <%
    end if
    if dikresimvar = "evet" then
    %>
    <img src="/haber/dikresim/<%=resimadi%>">
    <%end if
    if mansetvar = "evet" then
    %>
    <img src="/haber/manset/<%=resimadi%>">
    <%end if
    if ozelmansetvar = "evet" then
    %>
    <img src="/haber/ozelmanset/<%=resimadi%>">
    <%end if
    if ustmansetvar = "evet" then
    %>
    <img src="/haber/ustmanset/<%=resimadi%>">
    <%end if
    if altmansetvar = "evet" then
    %>
    <img src="/haber/altmanset/<%=resimadi%>">
    <%end if
    %>
    </td>
  </tr>
</table>