Merhabalar Arkadaşlar Admin Panelinde Yeni Açacağım Ürüne Resim Yüklerken Böyle Hata Alıyorum.
Persits.Upload.1 error '800a001a'
Access is denied.
/admin/resources/assets/product_gallery.asp, line 35
Product_gallery.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">
<!--#include file="db_assets.asp" -->
<!--#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ükleme</title>
<link href="../css/style.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="../scripts/jquery-1.3.2.min.js"></script>
<script type="text/javascript" src="../scripts/jquery.multiFile.js"></script>
</head>
<body>
<%
If getstr("act") = "upload" Then
set rs_query = server.CreateObject(O)
sql = "select urun_kresim, urun_bresim from sistem"
rs_query.open sql, baglanti, 1, 3
kboyut = rs_query("urun_kresim")
bboyut = rs_query("urun_bresim")
rs_query.close
set rs_query = nothing
Set UPLOAD = Server.CreateObject( "PERSITS.UPLOAD.1" )
UPLOAD.OVERWRITEFILES = TRUE
COUNT = UPLOAD.SAVETOMEMORY
my_gallery = ""
For Each FILE IN UPLOAD.FILES
DOSYUZANTI=FILE.EXT
DOSYAADI= sifreuret(20)
TUMDOSYA=DOSYAADI&DOSYUZANTI
PATH = Server.MapPath("../../../uploads/product_gallery/"&DOSYAADI&DOSYUZANTI)
FILE.SAVEAS PATH
' yeniden boyutlandırma
Set jbuyuk = Server.CreateObject("Persits.Jpeg")
Pathbuyuk = Server.MapPath("../../../uploads/product_gallery/"&DOSYAADI&DOSYUZANTI)
jbuyuk.Open Pathbuyuk
L = bboyut
jbuyuk.Width = L
jbuyuk.Height = jbuyuk.OriginalHeight * L / jbuyuk.OriginalWidth
jbuyuk.Save Server.MapPath("../../../uploads/product_gallery/"&DOSYAADI&DOSYUZANTI)
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("../../../uploads/product_gallery/"&DOSYAADI&DOSYUZANTI)
Jpeg.Open Path
L = kboyut
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
Jpeg.Save Server.MapPath("../../../uploads/product_gallery/s_"&DOSYAADI&DOSYUZANTI)
fname = DOSYAADI&DOSYUZANTI
%>
<script type="text/javascript">
if (top.document.getElementById('hidden_resim').value == '') {
top.document.getElementById('hidden_resim').value = '<%= TUMDOSYA %>';
}
else {
top.document.getElementById('hidden_resim').value = top.document.getElementById('hidden_resim').value + '/<%= TUMDOSYA %>';
};
top.document.getElementById('urun_fotograflar').innerHTML = top.document.getElementById('urun_fotograflar').innerHTML + "<div class='PhotoGalleryBox' id='<%= TUMDOSYA %>'><img src='../uploads/product_gallery/s_<%= TUMDOSYA %>' border='0' height='80'></div>";
</script>
<% next %>
<script type="text/javascript">
top.$.fn.fancybox.close()
</script>
<% Else %>
<table width="450" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" align="right"><h3>Ürün Fotoğrafları Ekleme</h3></td>
</tr>
<tr>
<td width="225"><div class="px10">Galeri fotoğrafları için bilgisayarınızdan yüklemek istediğiniz kadar fotoğraf seçiniz ve ardından Yükle butonuna basınız</div></td>
<td><form action="?act=upload" method="post" enctype="multipart/form-data" name="form1" id="form1">
<input name="file" class="multi" type="file" id="file" />
<input class="button" type="submit" value="Yükle" />
</form></td>
</tr>
</table>
<% End If %>
</body>
</html>