Merhaba,

Sunucumda persits olmadığı için aşağıdaki kodlamayı fsoya çevirmem gerekiyor. Yardım edebilecek arkadaşlara ihtiyacım var. Saygılarımla.

<%

link= Request.ServerVariables("HTTP_REFERER")
Set Upload = Server.CreateObject("Persits.Upload" ) 


Yol = Server.MapPath("..\urunler\" ) & "\" 
Upload.IgnoreNoPost = True 
Upload.OverwriteFiles = False  
Upload.Save(yol) 

k = 1 

kid=upload.Form("kid")
res=upload.Form("res")

set resno =baglanti.execute("select * from urun_galeri where urun_id="& kid &" order by id desc")

if resno.eof then

resim_no="0"

else

resim_no=resno("no")

end if



resim_no=resim_no + 1

'baglanti.execute("update urunler set resim_no="& resim_no &" where id="& kid &"") 




For Each File in Upload.Files 


  If File.ImageType = "UNKNOWN"   Then 
          Response.Write "Sadece JPG, GIf ve PNG Formatli Dosyalar Yükleyebilirsiniz !!!" 
          File.Delete 
          Response.End 

     ElseIf File.ImageWidth > 102400 Then 
          Response.Write "Resmin Eni Çok Büyük Lütfen Resmin Enini En Fazla 1024 Piksel Olacak Sekilde Düzenleyin !!!" 
          File.Delete 
          Response.End 

     ElseIf File.ImageHeight > 76800 Then 
          Response.Write "Resmin Boyu Çok Büyük Lütfen Resmin Boyunu En Fazla 768 Piksel Olacak Sekilde Düzenleyin !!!" 
          File.Delete 
          Response.End 

     ElseIf File.Size > 10240000 Then 
          Response.Write "Resmin Boyutu Çok Büyük Lütfen Boyutu En Fazla 500 Kb Olacak Sekilde Düzenleyin !!!" 
          File.Delete 
          Response.End  
     End If 
YeniDosya = tarihver
File.Move Yol &"urun_"&resim_no&"_"&kid & File.Ext  


'Set Jpeg = Server.CreateObject("Persits.Jpeg" )   
'yol = Server.MapPath("../urunler/urun_"& resim_no &"_"&  kid & File.Ext)   
'Jpeg.Open yol   
'Jpeg.Width = 793  ' Resim Boyutunu Buraya yaziyoruz     



'if res="1" then

'jpeg.Height = 1000

'else

'jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth 

'end if









'Jpeg.Canvas.Brush.Solid = False


'Jpeg.Canvas.Font.Color = &"FFFFFF" 
'Jpeg.Canvas.Font.Family = "ARIAL" 
'Jpeg.Canvas.Font.Bold = FALSE
'jpeg.Canvas.Font.Size = 25
'Jpeg.Canvas.Print 20, 315, "www.remax-prime.com" 
'Jpeg.Canvas.Pen.Color = &000000
'Jpeg.Canvas.Pen.Width = 3 
'Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height 
'Jpeg.SendBinary 


'Jpeg.Canvas.DrawPNG X, Y, Server.MapPath("logo.png")









'Jpeg.Save Server.MapPath("../urunler/urun_"& resim_no &"_" &   kid & File.Ext) 


dosya = "urun_"& resim_no &"_"& kid &""
resim = dosya & File.Ext




next







%>






<style type="text/css">
<!--
.baslik {FONT-WEIGHT: bold; FONT-SIZE: 16pt; COLOR: #000000; FONT-FAMILY: Arial, sans-serif; TEXT-DECORATION: none}
.yazi {color : #011837; 
font-family : Arial, sans-serif; 
font-size : 13px; 
}
body {
	background-color: #f8f8f8;
}
-->
</style>

<% if resim="" then %>

<table width="450" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666">
  <tr>
    <td height="250"><div align="center">
      <p><img src="images/asagi.jpg" width="20" height="20" /></p>
      <p class="yazi"><strong>Resim y&uuml;kleyemediniz ! </strong></p>
    </div></td>
  </tr>
</table>
<meta http-equiv="refresh" content="3;URL=<%=link %>">

<% else

'baglanti.execute("UPDATE hayvan_galeri set resim='"& resim &"' where id='"& kid &"'")

  baglanti.execute("INSERT INTO urun_galeri (resim, onay, urun_id, no) VALUES ('"& resim &"','1','"& kid &"','"& resim_no &"' )")
	


response.Redirect ""&link&""

end if %>