שאלה./בעיה.

אני משתמש במאמר הזה (העלאת קבצים ללא קומפוננטה) כדי לעשות מה שהוא אמרו להסביר…
עשיתי הכל כמו שצריך וזה מראה לי שגיאה.
זאת השגיאה:


Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'mid'
/test/page2.asp, line 55

וזה קטע הקוד שבו היא נמצאת:


dim DataPos,DataEndPos
    DataEndPos=instr(CurPos,strData,bounder)-3
    DataPos=instr(CurPos,strData,"Content-Type")
    if DataPos=0 Or DataPos>DataEndPos Then
        DataPos=instr(CurPos,strData,chr(13) & chr(10))
    Else
        DataPos=instr(DataPos,strData,chr(13) & chr(10))
    End If
    DataPos=DataPos+ 4
    GetPostedData=mid(strData,DataPos,DataEndPos-DataPos+1)
End Function

כמובן שיש עוד מעליה ומיתחתיה עוד חלקים של הקוד.
זאת שורה 55:


GetPostedData=mid(strData,DataPos,DataEndPos-DataPos+1)

הבנתי את השגיאה אבל לא הבנתי למה היא?
הרי בקוד יש עוד כמה פעמים את המילה mid והפעולה הופרת אותן כמו שצריך.
אבל רק במילה mid האחרונה בעמוד כמו שאמרתי יש אותה עוד כמה פעמים מעל המילה הבעייתי שהיא המילה mid האחרונה בעמוד ומיתחתיה יש עוד קוד אבל בלי המילה mid.

למה זה?
ועוד משהו, האם אני יכול להעלות אם הדבר הזה גם קבצים לשרתים חינמיים??

תודה לכל העוזרים.