בעיה ב-ASP Upload

הבעיה הראשונה חזרה…
הבעיה שרשמתי בהודעה הראשונה חזרה.. בבקשה תעזרו לי….

הנה הבעיה המרכזית:
זה הקוד:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
    If not isempty(Upload.Form("send")) Then
        response.write Upload.Form("send") & "<br>"
        response.write "OKKKK"
    End If
    If Upload.Form("sfda")="ok" Then
        response.write Upload.Form("sfda") & "<br>"
        response.write "sfda"
    End If
    If not isempty(Upload.Form("sfd")) Then
        response.write Upload.Form("sfd") & "<br>"
        response.write "sfd"
    End If
%>
<form method=post name=form  ENCTYPE="multipart/form-data">
<input type=text name=1 value=2141>
<br>
<input type=submit name=send>
<input type=submit name=sfda onclick="this.form.sfda.value='ok'">
<input type=submit name=sfd>
</form>

תבדקו אותו ותראו שהוא לא קולט את sfda… בבקשה תעזרו לי…

טוב אז זאת השאלה האחרונה כנראה:
איך אני עושה שאם הסיומת של הקובץ היא html אז הקובץ ישמר בתיקיית html ואם הסיומת jpg אז הוא ישמר בתיקיית images?
אני משתמש ב SaveVirtual.

יש בעיה תסתכלו:
זה הקוד:

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveToMemory

Set File1 = Upload.Files("FILE1")
FileExt = Lcase(File1.Ext)
if FileExt <> ".bwp" AND FileExt <> ".html" AND FileExt <> ".htm" then
response.write "<div class=text align=center><b>ñåâ ä÷åáõ ùäåòìä – ìà îåøùä</b></div>"
response.end
Set Upload = Nothing
Else
OkForProcess="OK"
End If

If OkForProcess="OK" Then

Set UploadFilesOk = Upload.Files("FILE1")
if FileExt=".html" OR FileExt=".htm" Then
response.write "Open HTML"

Upload.OverwriteFiles = False
Upload.SaveVirtual "uploads/html/"

Set uploaded = Upload.Files("filetarget")

Filename = uploaded.Filename

set fs = Server.CreateObject("scripting.filesystemobject")
set f =
fs.opentextfile("D:inetpubvhostswserv.co.ilsubdomainsbwphttpdocsuploadshtml"; &
Filename)
FinishCode = f.readall

End IF
End If

אל תתיחסו לג'יבריש….
בכל מקרה אני מקבל הודעת שגיאה:

Persits.Upload.1 error '800a003e'

Save method must not be called more than once.

מה הבעיה?

אני לא יכול
השרת שלי לא תומך בזה… איך אני יכול לבדוק את הסיומת בלי לשמור את הקובץ בכלל? אתה יכול לתקן לי את הקוד ככה שישתמש קר ב-SaveVirual כדי לשמור את הקבצים בתיקיה המתאימה? כי השרת של לי תומך ב- SaveAs. וגם לא ב-Open.

לא קיים דבר כזה…
Microsoft VBScript runtime  error '800a01b6'

Object doesn't support this property or method: 'SaveAsVirtual'

מה אני אעשה?

לא משנה הצלחתי תודה רבה