Holas a todos. Tengo el siguiente código:
<input type=button value=Reemplazar onclick="vbscript:Uploading()" id=uploading1 name=uploading1><br>
...
<SCRIPT LANGUAGE="VBScript">
function Uploading()
'MsgBox("Hola")
'MsgBox("<%=Adjuntar%>")
UploadCtl.AddFile "<%=Adjuntar%>"
UploadCtl.Upload
if UploadCtl.ServerReply <> "" Then
'Upload1 = false
end if
UploadCtl.RemoveAll
'msgbox("Sí Funciona!")
end function
</script>
<OBJECT WIDTH=0 HEIGHT=0 ID="UploadCtl" CLASSID="CLSID:E87F6C8E-16C0-11D3-BEF7-009027438003" codebase="XUpload.ocx">
<!-- Required: Server and Script pointing to the location of upload script-->
<PARAM NAME="Server" VALUE="localhost\">
<PARAM NAME="Script" VALUE="01_simple_upload.asp">
<PARAM NAME="ViewServerReply" VALUE="FALSE">
<!--<PARAM NAME="SSL" VALUE="True">-->'
<PARAM NAME="MaxFileSize" VALUE="3315060">
<PARAM NAME="MaxTotalSize" VALUE="33150600">
<PARAM NAME="MaxFileCount" VALUE="40">
<PARAM NAME="HtmlForm" VALUE="frmTipInf">
</OBJECT>
y quiero hacer lo mismo, pero que se convoque a la función sin necesidad de un botón, así que tengo:
Adjuntar1 = Request("Adjuntar1") --> Es la misma variable usada anteriormente
<SCRIPT LANGUAGE="VBScript">
function Uploading()
MsgBox("Hola")
MsgBox("<%=Adjuntar1%>")
UploadCtl.AddFile '"<%=Adjuntar1%>"
'msgbox("Acá se cae!!")
UploadCtl.Upload
if UploadCtl.ServerReply <> "" Then
'Upload1 = false
end if
UploadCtl3.RemoveAll
'msgbox("Sí Funciona!")
end function
</script>
y más adelante la llamo
<SCRIPT LANGUAGE="VBScript">
Uploading()
</script>
y uso también
<OBJECT WIDTH=0 HEIGHT=0 ID="UploadCtl" CLASSID="CLSID:E87F6C8E-16C0-11D3-BEF7-009027438003" codebase="XUpload.ocx">
<!-- Required: Server and Script pointing to the location of upload script-->
<PARAM NAME="Server" VALUE="localhost\">
<PARAM NAME="Script" VALUE="01_simple_upload3.asp">
<PARAM NAME="ViewServerReply" VALUE="TRUE">
<!--<PARAM NAME="SSL" VALUE="True">-->'
<PARAM NAME="MaxFileSize" VALUE="3315060">
<PARAM NAME="MaxTotalSize" VALUE="33150600">
<PARAM NAME="MaxFileCount" VALUE="40">
<!--<PARAM NAME="HtmlForm" VALUE="frmTipInf"> -->
</OBJECT>
Como ven, copio el código tal cual, pero solamente la diferencia es que llamo a la función en otro momento. La función "Uploading" me carga solamente hasta el segundo MsgBox, y luego ya no hace más. ¿Qué es lo que está pasando? Como ven, el objeto "UploadCtl" es definido como en la primera página, y ya probé definiéndola con otro nombre. ¿Qué es lo que puede estar pasando para que en una página sí funcione y en otra no?
