Mai qnd envio o arquivo a janela é para sumir e anexar o arquivo no campo da outra janela.
apreseanta esse esrro:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/holifarma/curriculum/Aspupload.asp, line 17
CODIGO
<%
Dim objUpload
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.Save(Server.MapPath("/curriculum/"))
objUpload.MaxFileSize = 10000000
objUpload.UseVirtualDir = False
objUpload.UseUniqueNames = True
%>
<%= Count %> <FONT SIZE="1" FACE="ARIAL">ARQUIVO ENVIADO
<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder("/curriculum/")
Set Files = Folder.Files
%>
<%
For each objUploadedFile In Upload.Files
arquivo = objUploadedFile.ExtractFileName
response.Write(": " & objUploadedFile.ExtractFileName)
seq = seq + 1
Next
'criei uma session para armazenar o no do arquivo
session("arquivo") = arquivo
if session("arquivo") <> "" then
response.redirect "index.asp"
end if
%>



Postagens
Não informado
