Microsoft VBScript runtime error '800a01b6' YARDIM

Object doesn't support this property or method: 'JPEG2.PRESERVEASPECTRATIO'

/site/yonetim/resimekle.asp, line 183


HATAYI VEREN KOD SAYFASI :

<%'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\vhosts\site\httpdocs\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 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 > 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>

konu hakkında yardımcı olabilcek yokmu acaba ?

Bence o hatayi veren satiri sİl gİtsİn bİrde Öyle dene

sunucuda yüklü olan persits jpeg bileşeni o property'i desteklemiyor, sanırım eski sürüm kurulu

BİRDE HATANIN OLDUĞU (Sub OPTIMIZE2 DEKİ) PERSİSTİ JPEG2 OLARAK TANIMLAMAK YERİNE JPEG14 FİLAN DENE ÜSTEKİ SUBLARDAN BİRİ İLE ÇAKIŞIYOR OLABİLİR

diger konularıma bakarsanız persist hatası almıstım path yolunun yanlıs olmasından ozaman bu tur bi sorun vermedi yeni bir host alınca bu sorun meydana geldi sanırım hosting ile bir sıkıntı var yarın yukleyip deneyeceğim ilginize tesekkur ederim

oktayman dedğini yapmıstım bu arada

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 01:38:10 -->-> Daha önceki mesaj 01:37:20 --

Case "HB"
ResYol = PathDir & "Haber\"
Case "HK"
ResYol = PathDir & "Haber\"
Case "HH"
ResYol = PathDir & "Hakkimizda\"


bu kısımlara yukleme sorunu yok bu arada !!

Yukle dedigim zaman hata veriyor fakat klasor icine baktigimda yuklenmis oluyor

sunucudaki persitsjpeg bileşeninin versiyonunu öğren.

İyide sen ne yapmak istiyorsunuz ki! Yukarıda verdiğin kodların %70'i gereksiz..