quote:

Persits.Upload.1 error '800a001a'

The system cannot find the path specified.

/resimekle.asp, line 131

quote:

<%If Session("MemberGiris") <> TRUE Then Response.Write "<script>window.close();</script>"%>

<%
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 = "D:/WebSites/LocalUser/gm_testgrimor/web/content/iki-el/Resimler/"
PathDir = "Resimler/"
Tip = Left(text,6)

Select Case Tip
Case "ILN_IL"
ResYol = PathDir & "Ilanlar/"
Case "MgzLog"
ResYol = PathDir & "Magazalar/"
End Select
%>


<%
Set UPLOAD = Server.CreateObject("PERSITS.UPLOAD" )
UPLOAD.OVERWRITEFILES = FALSE
COUNT = UPLOAD.SAVETOMEMORY
For Each FILE IN UPLOAD.FILES
' Kontroller sadace resim türevi dosya formatlarý için eðer .zip' e izin vermek istiyorsanýz : If FILE.EXT<>".zip" End If bu kudu bu alan yazarsanýz .zip harici dosyalar aþaðýdaki konttoller tabi olucak FILE.IMAGEtype="UNKNOWN" ile asp ve benzeri kötü niyetli dosyalarýn yüklenmesine ayrýca izin verilmez..
'-----------------------------------------
If FILE.IMAGEtype="UNKNOWN" Then
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"window.alert (""resim formatý haricinde dosya yükleyemezsiniz. JPG,GIf veya PNG olmalýdýr."");"
.Write"window.location = ""javascript:history.go(-1)"""
.Write"}"
.Write"</SCRIPT>"
End with
FILE.DELETE
RESPONSE.End
' resim türevi dosya kontrolleri bitti, eðer yukardaki gibi .zip için verdiðimiz örneði yapýldý ise buraya End If koyunuz.
ElseIf FILE.SIZE > 2100000 Then
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"window.alert (""dosyanýn boyutu çok büyük lütfen optimize ediniz."");"
.Write"window.location = ""javascript:history.go(-1)"""
.Write"}"
.Write"</SCRIPT>"
End with
FILE.DELETE
Response.End
End If

' Dosya adý uzantýlar
'-----------------------------------------
DOSYUZANTI=FILE.EXT ' dosyanýn uzantýsýna bakýyoruz. (.jpg .gIf .asp .zip Örneði gibi baþlarýnda nokta bulunur. )
DOSYAADI="" ' Denemek için Deneme olarak belirttik.. isterseniz form dan gelen bir isim veya id de olabilir : DOSYAADI=Trim(UPLOAD.FORM("ID" ))

If DOSYAADI="" Then ' Eðer dosya adý boþsa orjinal dosya adýný alýcak.
DOSYAADI = left(FILE.Filename,(Len(FILE.Filename)-4))
End If

' Yükleme yeri
'-------------------------------------
' Fiziksel yol ile
' DOSYAPATH="c:\dosyalar\xxxxx\" ' sona \ yazmayý unutmayýn yoksa hata veriri dosyaný system32 dizini içine gidebilir.
' PATH = ( DOSYAPATH &DOSYAADI &DOSYUZANTI) ' orjinal dosya adý için FILE.NAME &FILE.EXT denebilir.
' FILE.SAVEAS PATH
'-------------------------------------
' Doðrudan bulunduðu dizine
DosyaAd = ChangeTR(DOSYAADI)
DosyaAdi = DosyaAd & "_" & CRefNum() & DOSYUZANTI

PATH = ResYol & DosyaAdi ' hata verirse yüklemez ise Server.MapPath( "\" &DOSYAADI &DOSYUZANTI)
'Response.Write PATH
'response.End
FILE.SAVEAS PATH
' ayrýca araya dizin ekleyebilirsiniz. PATH = Server.MapPath( "images\" DOSYAADI &DOSYUZANTI)
'-------------------------------------
Next
DosyaAdi_O = DosyaAd & "_" & CRefNum() & "_o" & DOSYUZANTI
DosyaAdi_B = DosyaAd & "_" & CRefNum() & "_b" & DOSYUZANTI

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

Select Case Tur
Case "bir"
Call OPTIMIZE
Case "kroki"
Call OPTIMIZE2
Case "ilan"
Call OPTIMIZE3 'Urunler
End Select
%>