Kayıt Eklerken Microsoft VBScript runtime error '800a01ad' ActiveX component can't create object

<%'Çilem.Net © 2010'%>
<!-- #include file=yonetimguvenlik.asp -->
<!-- #include file=veritabani.asp -->

<%
Function kod( nNoChars, sValidChars )
Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXY Z0123456789"
Dim nCount
Dim sRet
Dim nNumber
Dim nLength
Randomize
If sValidChars = "" Then
sValidChars = szDefault
End If
nLength = Len( sValidChars )
For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1)
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
kod = sRet
End Function
rastgeleisim = "haber-" + kod( 12, "" )
%>

<%Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = True
Upload.SetMaxSize 1500000000, True
Upload.CodePage = 1254
Upload.Save

on error resume next
Set File = Upload.Files("FILE")


If File.imagetype= "JPG" or File.imagetype= "PNG" or File.imagetype= "GIF" or File.imagetype= "SWF" or File.imagetype= "FLA" Then
else
Response.Write "<center><br><br><br><font face=Tahoma size=2><font color=red>Sadece uzantisi JPG, GIF, PNG, SWF ve FLA Uzantýlý Dosyalarý yükleyebilirsiniz !!!<center><br><a href='#' onClick='javascript:history.back(1)'>Geri Dön</a>"
File.Delete
Response.End
end if
%>

<%
KATID= guvenlik(Trim(Upload.Form("KATID")))
sira = guvenlik(Trim(Upload.Form("KATID")))
baslik= guvenlik(Trim(Upload.Form("baslik")))
kisahaber= guvenlik(Trim(Upload.Form("kisahaber")))
haber= Upload.Form("haber")
resimsec= guvenlik(Trim(Upload.Form("resimsec")))
resimurl= guvenlik(Trim(Upload.Form("resimurl")))
UID= guvenlik(Trim(Upload.Form("UID")))
editor= guvenlik(Trim(Upload.Form("editor")))
sondakika= guvenlik(Trim(Upload.Form("sondakika")))
mansethaber= guvenlik(Trim(Upload.Form("mansethaber")))
haberonay= guvenlik(Trim(Upload.Form("haberonay")))
kaynakadresi= guvenlik(Trim(Upload.Form("kaynakadresi")))
kaynakadi= guvenlik(Trim(Upload.Form("kaynakadi")))
tarih= Cdate(Date())
saat= Cdate(Time())
FileType = right(File.Filename,3)
yeniad = ""&rastgeleisim&""
yeniad = yeniad & "." & FileType
%>

<%IF KATID= "" THEN
response.write "<center><font face='Tahoma' color='#cc0000' style='font-size: 8pt'>Lütfen Kategori Seçiniz.<br><br><a href='#' onClick='javascript:history.back(1)'>Geri Dön</a>"
response.end
END IF %>

<%IF baslik= "" THEN
response.write "<center><font face='Tahoma' color='#cc0000' style='font-size: 8pt'>Lütfen Haber Baþlýðýný Giriniz.<br><br><a href='#' onClick='javascript:history.back(1)'>Geri Dön</a>"
response.end
END IF %>

<%IF kisahaber= "" THEN
response.write "<center><font face='Tahoma' color='#cc0000' style='font-size: 8pt'>Lütfen Kýsa Haber Bölümünü Doldurunuz.<br><br><a href='#' onClick='javascript:history.back(1)'>Geri Dön</a>"
response.end
END IF %>


<%IF haber= "" THEN
response.write "<center><font face='Tahoma' color='#cc0000' style='font-size: 8pt'>Lütfen Haber Bölümünü Doldurunuz.<br><br><a href='#' onClick='javascript:history.back(1)'>Geri Dön</a>"
response.end
END IF %>

<%IF kaynakadi= "" THEN
response.write "<center><font face='Tahoma' color='#cc0000' style='font-size: 8pt'>Lütfen Haber Kaynaðý Adýný Giriniz.<br><br><a href='#' onClick='javascript:history.back(1)'>Geri Dön</a>"
response.end
END IF %>

<%IF kaynakadresi= "" THEN
response.write "<center><font face='Tahoma' color='#cc0000' style='font-size: 8pt'>Lütfen Haber Kaynaðýnýn Adresini Giriniz.<br><br><a href='#' onClick='javascript:history.back(1)'>Geri Dön</a>"
response.end
END IF %>

<%
File.SaveAs Server.MapPath("resim") & "\" & yeniad
%>

<%
set rs = server.createobject("adodb.recordset")
sql="Select * from haber"
rs.open SQL,cilem,1,3
rs.addnew
rs("KATID") = Upload.Form("KATID")
rs("baslik") =Upload.Form("baslik")
rs("kisahaber") = Upload.Form("kisahaber")
rs("haber") = Upload.Form("haber")
rs("resimsec") = Upload.Form("resimsec")
rs("resim")= File.FileName
rs("resimurl") = Upload.Form("resimurl")
rs("editor") = Upload.Form("editor")
rs("UID") = Upload.Form("UID")
if Upload.Form("haberonay")<>"" then
rs("haberonay")=true
else
rs("haberonay")=False
end if
if Upload.Form("mansethaber")<>"" then
rs("mansethaber")=true
else
rs("mansethaber")=False
end if
if Upload.Form("sondakika")<>"" then
rs("sondakika")=true
else
rs("sondakika")=False
end if
rs("sira") = Upload.Form("sira")
rs("kaynakadresi") = Upload.Form("kaynakadresi")
rs("kaynakadi") = Upload.Form("kaynakadi")
rs("tarih") = Upload.Form("tarih")
rs("saat") = Upload.Form("saat")
rs.update%>
<%response.write "<font color='#FF6600' style='font-size: 8pt' face='Tahoma'><center>Haberiniz Baþarýyla Kaydedilmiþtir.</center>"%>
<center><DIV id=dl>Lütfen JavaScript'i Etkinleþtirin.</DIV>
<SCRIPT>var c = 3; fc(); function fc(){
if(c>0){document.getElementById("dl").innerHTML = "<b><font color='#808080' style='font-size: 8pt' face='Tahoma'>Lütfen Bekleyiniz " + c +' Saniye Kaldý';
c = c - 1;setTimeout("fc()", 1000)} else {document.getElementById("dl").innerHTML ="<img src='grafik/yukleniyor.gif'>"}}</SCRIPT>
<meta http-equiv="refresh" content="3;URL=yonetim.asp">

<%
Set Upload = Server.CreateObject("Persits.Upload")
%>