Tekil Mesaj gösterimi - Resim Yükleme Hatası

Konu Resim Yükleme Hatası

12-09-2012, 18:30:40

Merhabalar Arkadaşlar
Resim Yükleyecek An Şöyle Hata Alıyorum

Persits.Upload.1 hata '800a003f'

AspUpload has expired. Please visit www.aspupload.com to purchase a registration key.

/admin/resources/assets/page_upload.asp, satır 28

page_upload.asp Kodları

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<% 
set baglanti=server.CreateObject("adodb.connection" )
	baglanti.open"provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("../../../../db/sistem.mdb" ) 
 %>
<!--#include file="../includes/functions.asp" -->
<!--#include file="../includes/login_check.asp" -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<title>Fotoğraf Y&uuml;kleme</title>
<link href="../css/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<% If getstr("act") = "upload" Then

	set rs_query = server.CreateObject(O)
		sql = "select * from sistem"
		rs_query.open sql, baglanti, 1, 3
		kboyut = rs_query("sayfa_kresim")
		bboyut = rs_query("sayfa_bresim")
		rs_query.close
	set rs_query = nothing
	
	Set UPLOAD = Server.CreateObject( "PERSITS.UPLOAD.1" )  
	UPLOAD.OVERWRITEFILES = TRUE
	COUNT = UPLOAD.SAVETOMEMORY  

	For Each FILE IN UPLOAD.FILES
			Session("UPLOAD_ID") = sifreuret(20)
			DOSYUZANTI=FILE.EXT
			DOSYAADI=Session("UPLOAD_ID")
			LOGOM=DOSYAADI&DOSYUZANTI
			PATH = Server.MapPath("../../../uploads/pages/"&DOSYAADI&DOSYUZANTI) 
			FILE.SAVEAS PATH

' yeniden boyutlandırma
			
			Set jbuyuk = Server.CreateObject("Persits.Jpeg")
			Pathbuyuk = Server.MapPath("../../../uploads/pages/"&DOSYAADI&DOSYUZANTI)
			jbuyuk.Open Pathbuyuk
			L = bboyut
			jbuyuk.Width = L
			jbuyuk.Height = jbuyuk.OriginalHeight * L / jbuyuk.OriginalWidth
			jbuyuk.Save Server.MapPath("../../../uploads/pages/"&DOSYAADI&DOSYUZANTI)
			
			Set Jpeg = Server.CreateObject("Persits.Jpeg")
			Path = Server.MapPath("../../../uploads/pages/"&DOSYAADI&DOSYUZANTI)
			Jpeg.Open Path
			L = kboyut
			Jpeg.Width = L
			Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
			Jpeg.Save Server.MapPath("../../../uploads/pages/small/"&DOSYAADI&DOSYUZANTI)
			Next
			Session("UPLOAD_ID")=""
%>
<script type="text/javascript">
	top.document.getElementById('str_resim').value = '<%= DOSYAADI %><%= DOSYUZANTI %>';
	top.document.getElementById('news_img').src = '../uploads/pages/small/<%= DOSYAADI %><%= DOSYUZANTI %>';
	top.$.fn.fancybox.close()
</script>
<% Else %>
<table width="450" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2" align="right"><h3>Sayfa Fotoğrafı Y&uuml;kleme</h3></td>
  </tr>
  <tr>
    <td width="225"><div class="px10">Dosya y&uuml;kleme işlemini başlatmak i&ccedil;in bilgisayarınızdan y&uuml;klenecek dosyayı se&ccedil;ip ardından y&uuml;kle butonuna basınız</div></td>
    <td><form action="page_upload.asp?act=upload" method="post" enctype="multipart/form-data" name="form1" id="form1">
        <label>
          <input name="file" type="file" id="file" />
        </label>
        <input class="button" type="submit" value="Yükle" />
      </form></td>
  </tr>
</table>
<% End If %>
</body>
</html>

Çok Teşekkür Ederim Yardımlarınız İçin Şimdiden