VBScript IE Error "The download of the specified resource has failed"

[Rr Kumaran]

Hi,

Basically I am trying to upload a file using VBScript + AJAX in the client browser and the uploaded file will be stored on the server using CGI + PERL.

When I select a file from my local machine and submit the page I am getting an IE VBScript error "The download of the specified resource has failed". I enabled all the settings in Tools->Internet Options->Security Tab->Internet Zone. All the I changed the Windows Registry key HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{00000566-0000-0010-8000-00AA006D2EA4} to 0 but no avail. I am using Windows XP Service Pack2 and IE 6.0.

Below is the script that is causing problem and the VBScript error comes at the line "xmlhttp.Send sData".

---------------------------------------------------------------------------
dim strURL
dim baseURL
baseURL = "http://ammai.com:70000/"
 
function del_resource ( sFileLocation )
 
if isEmpty(sFileLocation) then
else
strURL = baseURL & sFileLocation & "?delres=true"
 
dim xmlhttp
set xmlhttp=createobject("MSXML2.XMLHTTP.3.0")
 
xmlhttp.Open "DELETE", strURL, false
 
xmlhttp.Send
 
show.innerText= "Status: " & xmlhttp.statusText
response.innerText= "Response : " & xmlhttp.responseText
 
set xmlhttp=Nothing
end if
 
End function
 
function del_location ( sFileLocation )
 
if isEmpty(sFileLocation) then
else
strURL = baseURL & sFileLocation & "?delloc=true"
 
dim xmlhttp
set xmlhttp=createobject("MSXML2.XMLHTTP.3.0")
 
xmlhttp.Open "DELETE", strURL, false
 
xmlhttp.Send
 
show.innerText= "Status: " & xmlhttp.statusText
response.innerText= "Response : " & xmlhttp.responseText
 
set xmlhttp=Nothing
end if
 
End function
 
function sendit( sFileLocation, sfileName, sFileType )
 
dim sData
 
if sfileName = "" then
else
sData = getFileBytes(sfileName, sFileType)
sfileName= mid(sfileName, InstrRev(sFileName,"\")+1,len(sfileName))
end if
 
dim xmlhttp
set xmlhttp=createobject("MSXML2.XMLHTTP.3.0")
 
if isEmpty(sFileLocation) then
strURL = baseURL & sFileName
else
strURL = baseURL & sFileLocation & "/" & sFileName
end if
 
xmlhttp.Open "PUT", strURL, false
 
if isEmpty(sData) then
xmlhttp.Send
else
xmlhttp.Send sData
end if
 
show.innerText= "Status: " & xmlhttp.statusText
response.innerText= "Response : " & xmlhttp.responseText
 
set xmlhttp=Nothing
 
End function
 
sub showResource()
document.write "<CENTER><BR><A href=" & strURL & ">"& strURL & "</a></CENTER>"
end sub
 
function getFileBytes(localFileName, sFileType)
 
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
 
if sFileType="on" then
objStream.Type = 1 ' adTypeBinary
else
objStream.Type = 2 ' adTypeText
objStream.Charset ="ascii"
end if
 

' objStream.Type = 1 ' adTypeBinary
 

objStream.Open
objStream.LoadFromFile localFileName
 
getFileBytes=objStream.Read
 
objStream.Close
Set objStream = Nothing
 
end function
---------------------------------------------------------------------------

Please suggest.



Thanks.

[Eric Pascarello]

I do not think you can upload a file using the XMLHttpRequest object since it is a big security risk.

Eric

[Rr Kumaran]

Hi Eric,

Thank you for the response. Basically I am looking for some piece of code/script that will help me in uploading a file from browser to cgi+perl running on server. Can you please redirect me to such code that uses javascript/vbscript.

Thanks.