<!--#include file="ust.asp"-->
<%

Server.ScriptTimeout=2000
if admin("resim_galerisi") = 1 Then 
Else
Response.Redirect "izin_yok.asp"
End If
resim_menu = ("1")
%>


<table border="0" width="1024" cellspacing="0" cellpadding="0">
  <tr>
    <td width="300" valign="top" align="center" bgcolor="#E4F7FA"><!--#include file="menu.asp"--></td>
    <td width="3" valign="top" align="left" bgcolor="#5DC9E1"></td>
    <td width="721" valign="top" align="left">
<%'############## İÇERİK BASLANGICI ############################# %>
	<img src="images/spacer10.png" />


<table border="0" width="720" cellspacing="5" cellpadding="3">
  <tr>
    <td width="100%" bgcolor="#51A8FF" height="22"><font color="#FFFFFF"
    face="Arial" size="2">&nbsp;&nbsp;Yeni Resim Ekle</font></td>
  </tr>
  <tr>
    <td width="100%">



<form action="resim_ekle.asp?islem=ekle" method="post"  ENCTYPE="multipart/form-data">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="30%" height="38" align="right"><b>Resim Açıklaması :&nbsp;&nbsp;</b> </td>
	<td width="70%"><input type="text" name="aciklama" size="53"></td>
  </tr>
  <tr>
    <td width="30%" height="38" align="right"><b>Resim Kategorisi:&nbsp;&nbsp;</b> </td>
	 <td width="70%"><select name="kategori" size="1">
<%
Set kategori_sec = server.CreateObject("ADODB.Recordset")
SQL = "Select * From resim_kategori order by id desc;"
kategori_sec.Open SQL, bag,3,2
If not kategori_sec.eof then
while not kategori_sec.eof
%>
<option value="<%=kategori_sec("kategori_url")%>">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=kategori_sec("kat_adi")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
<%
kategori_sec.movenext
wend
Else
End If
kategori_sec.close
%> 
</select></td>
  </tr>
  <tr>
    <td width="30%" height="38" align="right"><b>Resim :&nbsp;&nbsp;</b> </td>
	 <td width="70%"><input type="file" name="resimadres" size="42"></td>
  </tr>
  <tr>
    <td height="60" colspan="2" align="right">
        <input type="submit" name="button" id="button" value=" Resmi Yükle " <% if admin("kullanici") = ("demo") Then 
Response.Write("disabled") 
Else
End If
%>>
      </td>
  </tr>
</table>
</form>



<%
if admin("kullanici") = ("demo") Then 
Else

Set verial = server.CreateObject("ADODB.Recordset")
dede = "Select * From yonetim where id "
verial.Open dede, bag,3,2
logo=verial("resim_logo")

if request.QueryString("islem")="ekle" then
Set Upload = Server.CreateObject("Persits.Upload")
Path = Server.MapPath("../upload/galeri/")
Count = Upload.Save(Path)
If Count = 0 Then
	Response.Write("Resim Seç")
Else
	Set File = Upload.Files(1)
	tip=File.ImageType


	If tip = "JPG" Or tip = "jpg" Or tip = "png" Or tip = "PNG" Or tip = "gif" Or tip = "GIF" Then
	Set Jpeg = Server.CreateObject("Persits.Jpeg")
	Jpeg.Open(File.Path)
	Jpeg.Width = 800
	Jpeg.Height = (Jpeg.OriginalHeight * Jpeg.Width) / Jpeg.OriginalWidth 
	Jpeg.Canvas.DrawPNG 10, 10, Server.MapPath("" & logo & "")
	Jpeg.Save File.Path
	Set Jpeg = Nothing
Set yukle = server.CreateObject("ADODB.Recordset")
sql = "Select * From resim_galeri"
yukle.Open sql, bag,3,2
yukle.addnew
	yukle("aciklama") = Upload.form("aciklama" )
	yukle("kategori") = Upload.form("kategori" )
	yukle("resimadres") = "upload/galeri/" & File.ExtractFileName
yukle.update
	Else
	
	file.delete
	response.write "Dosya yüklenemez. JPG, GIF, PNG harici dosya yüklemek yasaktır"

	End If
End If
End If
End if
%>

	

</td></tr></table>

	
<%'############## İÇERİK BASLANGICI ############################# %>
	
	</td>
  </tr>
</table>
<!--#include file="alt.asp"-->

Yukardaki gibi bir resim yükleme sayfam var ve buna ben "jQuery-File-Upload-jquery-ui" isimli scripti uyarlamak istiyorum bunu nasıl yaparım yardım edebilirmisiniz.?

scriptin download linki: https://github.com/blueimp/jQuery-Fi.../jquery-ui.zip