Server.CreateObject Failed
/AvatarYukle.asp, line 49
800401f3
siteme dosya yükemeye çalıştığımda bu hata ile karışılaşıyorum nedir acaba sorun. avataryukle.asp ye yazılma iznide verdim
avataryukle.asp
<!--#include file="Inc/Baglantim.asp" -->
<% titlen="Avatar Yükle"
titlem="Avatar Yükle" %>
<!--#include file="Inc/Style.asp" -->
</head>
<body bgcolor="<%=site_aplan%>" oncontextmenu="return false" ondragstart="return false" onselectstart="return false">
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» Avatar Yükle</b></font></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>" align="center"><font class="icyazilar"><%
if session("yetki")>0 then
uackapa="1"
else
uackapa=uackapa
end if
Sub avkapa
%></font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
</body>
</html><%
GenelDb.Close
Set GenelDb = Nothing
ForumDb.Close
Set ForumDb = Nothing
end sub
If Request.QueryString("resim")="yukle" and uackapa="1" Then
if session("giris")="yapildi" Then
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = True
Upload.IgnoreNoPost = True
Count = upload.savetomemory
If Count = 0 Then
Response.Write "<font color=""#0000ff"">"&ccpdil_18&"</font>"
Call avkapa
Response.End
End If
For Each File in Upload.Files
Upload.SetMaxSize (500000), True
If File.Size >= 500000 Then
Response.Write "<font color=""#0000ff"">"&ccpdil_12&"<br>"&ccpdil_6&" : 500000 .bayt</font>"
Call avkapa
Response.End
Else
If Err <> 0 Then
Response.Write ccpdil_21 & Err.Description
Else
if Count = 1 then
Set Yukle = Upload.Files(1)
If session("yukledi") = Yukle.FileName Then
Response.Write "<font color=""#0000ff"">"&ccpdil_9&"</font>"
Call avkapa
Response.End
Else
session("yukledi")=Yukle.FileName
End if
resimad=session("uyead")&".gif"
resim=Right(Yukle.FileName,4)
resim=lcase(resim)
IF resim=".jpg" or resim=".gif" or resim=".png" then
Yukle.SaveAs Request.ServerVariables("APPL_PHYSICAL_PATH")&"Db\Avatar\"&resimad
Else
Response.Write "<font color=""#0000ff"">"&ccpdil_11&"</font>"
Call avkapa
Response.End
End if
End If
End If
End If
Next
Set Yukle = Nothing
Set Upload = Nothing
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("Db/Avatar/"&resimad&"")
Jpeg.Open Path
Jpeg.Width = 150
Jpeg.Height = 150
Jpeg.Quality = 100
Jpeg.Canvas.Font.Color = &HFF0000
Jpeg.Canvas.Font.Family = "Arial"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.Size = 13
Jpeg.Canvas.Print 10, 135, Ucase(Right(strsiteadres,Len(strsiteadres)-7))
Jpeg.Canvas.Font.Color = &H0000FF
Jpeg.Canvas.Font.Family = "Tahamo"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.Size = 13
Jpeg.Canvas.Print 10, 125, session("uyead")
Jpeg.Canvas.Font.Color = &H993300
Jpeg.Canvas.Font.Family = "Tahamo"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.Size = 13
Jpeg.Canvas.Print 10, 3, session("avtryazi")
Jpeg.Canvas.Pen.Color = &H000000
Jpeg.Canvas.Pen.Width = 1
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.Bar 0, 0, Jpeg.Width, Jpeg.Height
Jpeg.Save Server.MapPath("Db/Avatar/"&resimad&"")
Response.write "<br><input ONCLICK=""window.opener.document.uye.icon.value='"&strsiteadres&"/Db/Avatar/"&resimad&"';alert('Ýþlem Tamam Pencereyi Kapat');JavaScript:onClick=window.close()"" type=button value=""Avatar Yüklendi Ýþlemi Tamamla"" class=""tuslar"">"
Response.Write "<br><br><img src="""&strsiteadres&"/Db/Avatar/"&resimad&""" border=""0"">"
Response.Write "<br><br>"&strsiteadres&"/Db/Avatar/"&resimad&"<br><br>"
GenelDb.Execute("UpDate uyeler Set icon = '"&strsiteadres&"/Db/Avatar/"&resimad&"' where id="&session("uyeid")&"")
Set Jpeg = Nothing
else
Response.Write "Sadece Üyeler Avatar Yükleyebilir"
end if
Call avkapa
response.End
End if
If Request.QueryString("yazi")="yukle" and uackapa="1" Then
session("avtryazi")=ayikla(request.form("yazi")) %>
<br>Buradan bilgisayarýnýzdaki resimlerden kendinize avatar yükleyebilirsiniz<br>
<br>Yükleyebileceðiniz resim uzantýlarý .gif .jpg .png destekler<br><br>
<form method="POST" enctype="multipart/form-data" action="AvatarYukle.asp?resim=yukle">
<b><%=session("avtryazi")%></b><br>
<input type="file" name="file" SIZE="30" class="yazilar"><br><br>
<input type="submit" value="Avatarýmý Yükle" class="tuslar">
</form>
<% Call avkapa
response.End
end if
if uackapa = "1" Then %>
<br>Buradan bilgisayarýnýzdaki resimlerden kendinize avatar yükleyebilirsiniz<br>
<br>Yükleyebileceðiniz resim uzantýlarý .gif .jpg .png destekler<br><br>
<form method="POST" action="AvatarYukle.asp?yazi=yukle">
<b>Avatar Üstünde Çýkacak Yazýyý Girin</b><br>
<input type="text" name="yazi" SIZE="30" class="yazilar"><br><br>
<input type="submit" value="Yazýmý Yükle" class="tuslar">
</form>
<% else
Response.Write ccpdil_22
end if
Call avkapa %> 
