<%resim=Request.QueryString("resim") %>

			<script language="JavaScript">
function check_frm(){
	if (document.resim.cilem.value == ""){
		alert ("Lütfen Yüklemek İstediğiniz Resmi Seçiniz.");
		document.resim.cilem.focus();
		return false;  
	 }    
    }
  </script>


			<font color="#669900" face="Verdana" style="font-size: 8pt">Lütfen Yüklenecek Resmi Seçin</font><FORM ENCTYPE="multipart/form-data" ACTION="yonetimresimyukle.asp" METHOD="POST" onSubmit="return check_frm()" name="resim">
<input type="file" name="cilem" size="33" id="label" style="font-family: Tahoma; font-size: 8pt; border: 1px solid #CCCCCC">&nbsp;<input type=submit  value=Yükle name="submit" style="font-family: Tahoma; font-size: 10px; border-style: ridge; border-width: 1px"></form>  
</FORM></p>	<form method="POST" action="urunkayit.asp" name="kontrol">
<input type="hidden" name="resim" value="<%=resim%>"></form>

<% resim   = request("resim")%> 
<% 
dim upload 
dim count 
dim aciklama 
Set Upload = Server.CreateObject("Persits.Upload") 
Upload.OverwriteFiles = false ' bkz : Açiklama1
Upload.SetMaxSize 50000000, True 
Upload.Save 
on error resume next 
Count = Upload.SaveToMemory  
dim DUzn 'DosyaUzantisi 
dim SunucuYeri 
dim YuklenecekDosya 
dim File     
resim=upload.form("resim")
Set File = Upload.Files(1) 
  
      If File.ImageType = "UNKNOWN" Then  
          Response.Write "<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Sadece JPG, GIf ve PNG Formatlý Dosyalar Yükleyebilirsiniz !!!');</script>"   
          File.Delete  
          Response.End  

     ElseIf File.ImageWidth > 7500 Then  
          Response.Write "<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Resim Geniþliði Çok Fazla Lütfen Geniþliði En Fazla 300 Piksel Olacak þekilde Düzenleyin !!!');</script>"  
          File.Delete  
          Response.End  

     ElseIf File.ImageHeight > 7500 Then  
          Response.Write "<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Resim Yüksekliði Çok Fazla Lütfen Yüksekliði En Fazla 300 Piksel Olacak þekilde Düzenleyin !!!');</script>"
          File.Delete  
          Response.End  

     ElseIf File.Size > 250000000 Then  
          Response.Write "<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Resim Boyutu Çok Fazla Lütfen Boyutu En Fazla En Fazla 250 Kb Olacak þekilde Düzenleyin !!!');</script>"
          File.Delete  
          Response.End  

     Else 
     End if
SunucuYeri = Server.MapPath("../resim\")&"\"  
DUzn = UCase(Right(File.ExtractFileName, 4)) 

dim YuklenenDosyaninIsmi 
dim sql 
YuklenecekDosya = SunucuYeri & File.FileName  
File.SaveAs YuklenecekDosya 
YuklenenDosyaninIsmi = File.FileName 
response.write("<meta http-equiv='refresh' content='0;URL=urunekle.asp?resim=" & File.FileName & "'><script>alert('Resim Baþarýyla Yüklendi!!!');</script>")
'Açiklama 1: 
'yüklenecek dosya ile ayni isimde bir dosya varsa 
'false = üzerine yazilmaz dosyaismi(1) biçiminde yazar 
'true  = üzerine yazar 
%>