Persits.Upload.1 error '800a001a' ASP HATASI YARDIM !!!

Resim Yüklemeye Çalıştığımda bu sorunu veriyor..

Persits.Upload.1 error '800a001a'

The system cannot find the path specified.

/resimekle.asp, line 148


kodlar :

<%'If Session("Admin") <> TRUE Then Response.Redirect("default.asp")%>
<%
Response.ContentType = "text/html"
Response.Charset = "UTF-8"
%>
<%
Function ChangeTR(ByVal Pic)
Pic = Replace(Pic,"","s")
Pic = Replace(Pic,"","g")
Pic = Replace(Pic,"","i")
Pic = Replace(Pic,"","u")
Pic = Replace(Pic,"","o")
Pic = Replace(Pic,"","c")
Pic = Replace(Pic,"'","")
Pic = Replace(Pic,"&","")
Pic = Replace(Pic,"","G")
Pic = Replace(Pic,"","U")
Pic = Replace(Pic,"","O")
Pic = Replace(Pic,"","C")
Pic = Replace(Pic,"","S")
Pic = Replace(Pic,"","I")
Pic = Replace(Pic," ","")
ChangeTR = Pic
End Function
'******** RasgeleNumara **********
Function CRefNum()
strValue = Empty
strValue = strValue & Year(Date)
If Len(Month(Date)) = 1 Then
strValue = strValue & "0" & Month(Date)
Else
strValue = strValue & Month(Date)
End If
If Len(Day(Date)) = 1 Then
strValue = strValue & "0" & Day(Date)
Else
strValue = strValue & Day(Date)
End If

If Len(Hour(Time)) = 1 Then
strValue = strValue & "_0" & Hour(Time)
Else
strValue = strValue & "_" & Hour(Time)
End If

If Len(Minute(Time)) = 1 Then
strValue = strValue & "0" & Minute(Time)
Else
strValue = strValue & Minute(Time)
End If

If Len(Second(Time)) = 1 Then
strValue = strValue & "0" & Second(Time)
Else
strValue = strValue & Second(Time)
End If

CRefNum = strValue

End Function
'******** RasgeleNumara **********

Tur = Request.QueryString("Tur")
text = Request.QueryString("text")
PathDir = "c:\inetpub\wwwroot\Resimler\"

Tip = Left(text,2)

Select Case Tip

Case "HB"
ResYol = PathDir & "Haber\"
Case "HK"
ResYol = PathDir & "Haber\"
Case "HH"
ResYol = PathDir & "Hakkimizda\"
Case "PR"
ResYol = PathDir & "Projeler\"
Case "GL"
ResYol = PathDir & "Projeler\FotoGaleri\"
Case "TH"
ResYol = PathDir & "Projeler\TheProject\"
Case "FP"
ResYol = PathDir & "Projeler\FloorPlans\"

Case "KR"
ResYol = PathDir & "Projeler\Kroki\"

End Select
%>


<%
Set UPLOAD = Server.CreateObject("PERSITS.UPLOAD" )
UPLOAD.OVERWRITEFILES = FALSE
COUNT = UPLOAD.SAVETOMEMORY
For Each FILE IN UPLOAD.FILES
' Kontroller sadace resim trevi dosya formatlar iin eer .zip' e izin vermek istiyorsanz : If FILE.EXT<>".zip" End If bu kudu bu alan yazarsanz .zip harici dosyalar aadaki konttoller tabi olucak FILE.IMAGEtype="UNKNOWN" ile asp ve benzeri kt niyetli dosyalarn yklenmesine ayrca izin verilmez..
'-----------------------------------------
If FILE.IMAGEtype="UNKNOWN" Then
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"window.alert (""resim format haricinde dosya ykleyemezsiniz. JPG,GIf veya PNG olmaldr."");"
.Write"window.location = ""javascript:history.go(-1)"""
.Write"}"
.Write"</SCRIPT>"
End with
FILE.DELETE
RESPONSE.End
' resim trevi dosya kontrolleri bitti, eer yukardaki gibi .zip iin verdiimiz rnei yapld ise buraya End If koyunuz.
ElseIf FILE.SIZE > 2100000 Then
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"window.alert (""dosyann boyutu ok byk ltfen optimize ediniz."");"
.Write"window.location = ""javascript:history.go(-1)"""
.Write"}"
.Write"</SCRIPT>"
End with
FILE.DELETE
Response.End
End If

' Dosya ad uzantlar
'-----------------------------------------
DOSYUZANTI=FILE.EXT ' dosyann uzantsna bakyoruz. (.jpg .gIf .asp .zip rnei gibi balarnda nokta bulunur. )
DOSYAADI="" ' Denemek iin Deneme olarak belirttik.. isterseniz form dan gelen bir isim veya id de olabilir : DOSYAADI=Trim(UPLOAD.FORM("ID" ))

If DOSYAADI="" Then ' Eer dosya ad bosa orjinal dosya adn alcak.
DOSYAADI = left(FILE.Filename,(Len(FILE.Filename)-4))
End If

' Ykleme yeri
'-------------------------------------
' Fiziksel yol ile
' DOSYAPATH="c:\dosyalar\xxxxx\" ' sona \ yazmay unutmayn yoksa hata veriri dosyan system32 dizini iine gidebilir.
' PATH = ( DOSYAPATH &DOSYAADI &DOSYUZANTI) ' orjinal dosya ad iin FILE.NAME &FILE.EXT denebilir.
' FILE.SAVEAS PATH
'-------------------------------------
' Dorudan bulunduu dizine
DosyaAd = ChangeTR(DOSYAADI)
DosyaAdi = DosyaAd & "_" & CRefNum() & DOSYUZANTI

PATH = ResYol & DosyaAdi ' hata verirse yklemez ise Server.MapPath( "\" &DOSYAADI &DOSYUZANTI)
'Response.Write PATH
'response.End
FILE.SAVEAS PATH
' ayrca araya dizin ekleyebilirsiniz. PATH = Server.MapPath( "images\" DOSYAADI &DOSYUZANTI)
'-------------------------------------
Next

DosyaAdi_K = DosyaAd & "_" & CRefNum() & "_k" & DOSYUZANTI
text_k = text & "_K"

Select Case Tur
Case "bir"
Call OPTIMIZE
Case "PFotoG"
Call OPTIMIZE2
Case "galeri"
Call OPTIMIZE2
Case "Floor"
Call OPTIMIZE4
End Select
%>
<!--------------------###### Resmi Kltme 150x150 ########-------------->
<%
Sub OPTIMIZE
Set JPEG1 = Server.CreateObject("PERSITS.JPEG" )
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG1.Open PathDir & "150X150.png" ' Hazrladmz bo resim
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 150 Then
JPEG2.WIDTH = 150
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub
Sub OPTIMIZE2
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 120 Then
JPEG2.WIDTH = 120

End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub

Sub OPTIMIZE3
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 100 Then
JPEG2.WIDTH = 100
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub

Sub OPTIMIZE4
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 300 Then
JPEG2.WIDTH = 300
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub
%>

<!--------------------###### Resmi Kltme 150x150 ########-------------->
<script language="javascript">
<!--
function kapat()
{
window.opener.document.Form1.<%=text%>.value='<%=D osyaAdi%>';
<%If Tur = "bir" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
<%If Tur = "PFotoG" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
<%If Tur = "Kroki" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
<%If Tur = "SitePlan" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
window.close();
}
//-->
</script>

<center><br><br><br>
isleminiz gerceklestirilmistir.
<br>
<a href="javascript:;" onClick="kapat();">KAPAT</a></center>

satır 148 de yazan yolun varolmadığını yazıyor. sanırım o satır şu oluyor.

c:\inetpub\wwwroot\Resimler\"

Resimler klasörün varsa yazım izni vererek tekrar dene. ama localde deniyorsan persist bileşeni kurulu değilse yine hata verecektir. Eğer hostta deniyorsan bahsi geçen yolu düzenlemelisin ve yazım izni vermelisin.

hocam localde calısmadı
sunucuya yukleyip denedim db yolunu değiştirip path yolunu gordum onu yazarak denedim olmadı
db resimler klasoru ve alt klasorlerede izinleri verdim yine aynı hatayı alıyorum
veri merkezi ile gorustum persist 3 bileşeni yuklu oldugunu soylediler

Mevcut:
PathDir = "c:\inetpub\wwwroot\Resimler\"

Değiştiriniz: (tümünü)
PathDir = server.mappath ("\Resimler\")

Klasorede yazma izinlerini verdiğinizden emin olun ve verdiğim kodu bir deneyin lütfen

<%'If Session("Admin") <> TRUE Then Response.Redirect("default.asp")%>
<%
Response.ContentType = "text/html"
Response.Charset = "UTF-8"
%>
<%
Function ChangeTR(ByVal Pic)
Pic = Replace(Pic,"","s")
Pic = Replace(Pic,"","g")
Pic = Replace(Pic,"","i")
Pic = Replace(Pic,"","u")
Pic = Replace(Pic,"","o")
Pic = Replace(Pic,"","c")
Pic = Replace(Pic,"'","")
Pic = Replace(Pic,"&","")
Pic = Replace(Pic,"","G")
Pic = Replace(Pic,"","U")
Pic = Replace(Pic,"","O")
Pic = Replace(Pic,"","C")
Pic = Replace(Pic,"","S")
Pic = Replace(Pic,"","I")
Pic = Replace(Pic," ","")
ChangeTR = Pic
End Function
'******** RasgeleNumara **********
Function CRefNum()
strValue = Empty
strValue = strValue & Year(Date)
If Len(Month(Date)) = 1 Then
strValue = strValue & "0" & Month(Date)
Else
strValue = strValue & Month(Date)
End If
If Len(Day(Date)) = 1 Then
strValue = strValue & "0" & Day(Date)
Else
strValue = strValue & Day(Date)
End If

If Len(Hour(Time)) = 1 Then
strValue = strValue & "_0" & Hour(Time)
Else
strValue = strValue & "_" & Hour(Time)
End If

If Len(Minute(Time)) = 1 Then
strValue = strValue & "0" & Minute(Time)
Else
strValue = strValue & Minute(Time)
End If

If Len(Second(Time)) = 1 Then
strValue = strValue & "0" & Second(Time)
Else
strValue = strValue & Second(Time)
End If

CRefNum = strValue

End Function
'******** RasgeleNumara **********

Tur = Request.QueryString("Tur")
text = Request.QueryString("text")
PathDir = server.mappath ("\Resimler\")

Tip = Left(text,2)

Select Case Tip

Case "HB"
ResYol = PathDir & "Haber\"
Case "HK"
ResYol = PathDir & "Haber\"
Case "HH"
ResYol = PathDir & "Hakkimizda\"
Case "PR"
ResYol = PathDir & "Projeler\"
Case "GL"
ResYol = PathDir & "Projeler\FotoGaleri\"
Case "TH"
ResYol = PathDir & "Projeler\TheProject\"
Case "FP"
ResYol = PathDir & "Projeler\FloorPlans\"

Case "KR"
ResYol = PathDir & "Projeler\Kroki\"

End Select
%>


<%
Set UPLOAD = Server.CreateObject("PERSITS.UPLOAD" )
UPLOAD.OVERWRITEFILES = FALSE
COUNT = UPLOAD.SAVETOMEMORY
For Each FILE IN UPLOAD.FILES
' Kontroller sadace resim trevi dosya formatlar iin eer .zip' e izin vermek istiyorsanz : If FILE.EXT<>".zip" End If bu kudu bu alan yazarsanz .zip harici dosyalar aadaki konttoller tabi olucak FILE.IMAGEtype="UNKNOWN" ile asp ve benzeri kt niyetli dosyalarn yklenmesine ayrca izin verilmez..
'-----------------------------------------
If FILE.IMAGEtype="UNKNOWN" Then
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"window.alert (""resim format haricinde dosya ykleyemezsiniz. JPG,GIf veya PNG olmaldr."");"
.Write"window.location = ""javascript:history.go(-1)"""
.Write"}"
.Write"</SCRIPT>"
End with
FILE.DELETE
RESPONSE.End
' resim trevi dosya kontrolleri bitti, eer yukardaki gibi .zip iin verdiimiz rnei yapld ise buraya End If koyunuz.
ElseIf FILE.SIZE > 2100000 Then
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"window.alert (""dosyann boyutu ok byk ltfen optimize ediniz."");"
.Write"window.location = ""javascript:history.go(-1)"""
.Write"}"
.Write"</SCRIPT>"
End with
FILE.DELETE
Response.End
End If

' Dosya ad uzantlar
'-----------------------------------------
DOSYUZANTI=FILE.EXT ' dosyann uzantsna bakyoruz. (.jpg .gIf .asp .zip rnei gibi balarnda nokta bulunur. )
DOSYAADI="" ' Denemek iin Deneme olarak belirttik.. isterseniz form dan gelen bir isim veya id de olabilir : DOSYAADI=Trim(UPLOAD.FORM("ID" ))

If DOSYAADI="" Then ' Eer dosya ad bosa orjinal dosya adn alcak.
DOSYAADI = left(FILE.Filename,(Len(FILE.Filename)-4))
End If

' Ykleme yeri
'-------------------------------------
' Fiziksel yol ile
' DOSYAPATH="c:\dosyalar\xxxxx\" ' sona \ yazmay unutmayn yoksa hata veriri dosyan system32 dizini iine gidebilir.
' PATH = ( DOSYAPATH &DOSYAADI &DOSYUZANTI) ' orjinal dosya ad iin FILE.NAME &FILE.EXT denebilir.
' FILE.SAVEAS PATH
'-------------------------------------
' Dorudan bulunduu dizine
DosyaAd = ChangeTR(DOSYAADI)
DosyaAdi = DosyaAd & "_" & CRefNum() & DOSYUZANTI

PATH = ResYol & DosyaAdi ' hata verirse yklemez ise Server.MapPath( "\" &DOSYAADI &DOSYUZANTI)
'Response.Write PATH
'response.End
FILE.SAVEAS PATH hatanın bulunduğu yer !
' ayrca araya dizin ekleyebilirsiniz. PATH = Server.MapPath( "images\" DOSYAADI &DOSYUZANTI)
'-------------------------------------
Next

DosyaAdi_K = DosyaAd & "_" & CRefNum() & "_k" & DOSYUZANTI
text_k = text & "_K"

Select Case Tur
Case "bir"
Call OPTIMIZE
Case "PFotoG"
Call OPTIMIZE2
Case "galeri"
Call OPTIMIZE2
Case "Floor"
Call OPTIMIZE4
End Select
%>
<!--------------------###### Resmi Kltme 150x150 ########-------------->
<%
Sub OPTIMIZE
Set JPEG1 = Server.CreateObject("PERSITS.JPEG" )
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG1.Open PathDir & "150X150.png" ' Hazrladmz bo resim
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 150 Then
JPEG2.WIDTH = 150
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub
Sub OPTIMIZE2
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 120 Then
JPEG2.WIDTH = 120

End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub

Sub OPTIMIZE3
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 100 Then
JPEG2.WIDTH = 100
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub

Sub OPTIMIZE4
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 300 Then
JPEG2.WIDTH = 300
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub
%>

<!--------------------###### Resmi Kltme 150x150 ########-------------->
<script language="javascript">
<!--
function kapat()
{
window.opener.document.Form1.<%=text%>.value='<%=D osyaAdi%>';
<%If Tur = "bir" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
<%If Tur = "PFotoG" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
<%If Tur = "Kroki" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
<%If Tur = "SitePlan" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
window.close();
}
//-->
</script>

<center><br><br><br>
isleminiz gerceklestirilmistir.
<br>
<a href="javascript:;" onClick="kapat();">KAPAT</a></center>


bu şekilde yaptım yine olmadı hocam izinler tam tekrar kontrol ettim

ResYol = PathDir & "Haber\" bunlarada aynı sekilde uygulayabilirmisin map olayını

\Resimler\Haber\
\Resimler\Hakkimizda\
\Resimler\Projeler\
\Resimler\Projeler\FotoGaleri\
\Resimler\Projeler\TheProject\
\Resimler\Projeler\FloorPlans\
\Resimler\Projeler\Kroki\

şöyle bir klasör yapın var değilmi hostunda. Resimler anaklasörünün altında haber,hakkimizda,FotoGaleri,TheProject,FloorPlans ve Kroki klasörleri. Bunların olduğuna bir bak ve alt klasörlerle beraber hepsine yazım izni ver

sorun çözüldü..
Biglileriniz ve alakanız için gerçekten cok tesekkur ederim alt dizinlere yazma izninin verilmemesinden kaynaklıymıs