ممكن المساعده في تصحيح الكود

السلام عليكم و رحمه الله

انا مبرمج فجوال بيسك ودت نت وفي الشغل طلب من المدير معرفه الخطاء في موقع مصمم بلغه asp

حاولت اعرف الخطاء والحمد لله عرفته

الخطاء في عمليه رفع الملفات والصور الي السرفر upload

رساله الخطاء هي كالتالي

Error Type:

Server object, ASP 0177 (0x800401F3)

Invalid class string

/hhh/admin/Add_Location_upload.asp, line 13

Browser Type:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

Page:

POST 630 bytes to /hhh/admin/Add_Location_upload.asp

صفحه

Add_Location_upload.asp

هي كالتالي

<%@language="vbscript" codepage="1256"%>
<!--#include file="connection.asp"-->
<!-- #include file="adovbs.inc" -->

<%
session.Timeout=200
id=request.QueryString("id")
sql="select * from News"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,con,1,3
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

Set theForm = Server.CreateObject("aspSmartUpload.SmartUpload")
'theForm.Upload
theForm.CodePage="1256"

imageName=theForm.files.item(1).filename


If not theForm.Files.Item(1).IsMissing Then
theForm.files.item(1).saveas "/admin/news/" & imageName
End If

NewsTitle=theForm.form("NewsTitle")
content=theForm.form("yourFieldNameHere2")
Filee=theForm.form("Filee")

hi=theForm.form("hi")

if hi<>""then

sql2="select * from News"
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,con,1,3


rs2.addnew
rs2("Datee")=(FormatDateTime(date(),vbgeneraldate))
rs2("news_title")=NewsTitle
rs2("news_content")=content
rs2("news_image")=imageName
rs2("datee")=date()

rs2.update
response.Redirect("Add_News.asp?id="&id&"&su=su")
'response.Write("gooooooooooooooooo")
end if

%>

الخطاء في الكود

Set theForm = Server.CreateObject("aspSmartUpload.SmartUpload")

ممكن المساعده في تصحيح الخطاء

وجزاكم الله كل الخير