בעיה בקוד

raychin,‏ 26 בנובמבר, 2007

שלום רציתי לשאולמה הבעיה בקוד הבא
שהמחשב נותן לי הודעת שגיאה
הקוד הוא:

<%@ Language=VBScript %>
<%Response.Buffer = true %>
<HTML>
<HEAD>
</HEAD>
<%
set upl = Server.CreateObject("SoftArtisans.FileUp")
if upl.Form("validate")="1" then

set dictionary=CreatObject("Scripting.Dictionary")

pf_id = upl.Form("pf_id")

    if upl.Form("z_pic").isEmpty <> 1 then
        if upl.Form("z_pic").ContentDisposition = "form-data" then
        file_name = upl.Form("z_pic").UserFilename
        if instr(1,file_name,".jpg")then
        pic_name= "z_" & upl.Form("pf_id") & ".jpg"
        upl.form("z_pic").saveAs "C:InetpubwwwrootflowerImages" & trim ("" & pic_name)
        else
        dictionary.Add "z" ,"אנה הכנס קובץ עם סיומת JPG"
        erorr=true
    end if
end if
end if

if upl.Form("s_pic").isEmpty <> 1 Then
   if upl.Form("s_pic").ContentDisposition= "form-data" then
   file_name = upl.Form("s_pic").UserFilename
   if instr (1,file_name,".jpg")then
   pic_name = "s " & upl.Form ("pf_id") & ".jpg"
   upl.Form("s_pic").SaveAs "C:InetpubwwwrootflowerImages" &trim ("" & pic_name)
else
dictionary.Add "s" ,"אנה הכנס קובץ עם סיומת JPG"
        erorr=true
    end if
   end if
end if

if erorr=true then
    item=dictionary.Items
    for i=0 To dictionary.Count -1
        value=value & item(i) & "<br>"
next
Response.Write(value)

set dictionary =nothing
else%>

<script language="JavaScript">
window.close()
</script>

<% end if
end if %>

הודעת השגיאה היא

Technical Information (for support personnel)

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/flower/upload_logo1.asp, line 7

Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)

Page:
GET /flower/upload_logo1.asp

הקוד הנמצא בשורה 7 הוא:

et upl = Server.CreateObject("SoftArtisans.FileUp")

תודה

תגיות: פורום צד שרת

זירת השאלות

בעיה בקוד

1 תשובות

שלח תשובה