segue o codigo
<% Response.Buffer = true on error resume next dim objUpload dim strMessage set objUpload = server.CreateObject("Dundas.Upload.2") if err.number <> 0 then Response.write err.description end if objUpload.MaxFileSize = 1048576 objUpload.UseUniqueNames = false objUpload.Save "e:\home\topbrasilonline\web\imagem" dim temp if IsEmpty(objUpload.Form("file1")) = false then temp = " " if err.number <> 0 then strMessage = objUpload.Form("file1") & temp & "Falha, ocorreu o erro: " & err.description else strMessage = "Upload realizado com sucesso pelo" & temp & objUpload.Form("file1") & "<br>" 'strMessage = "Upload realizado com sucesso pelo" & temp & objUpload.Form("form1") & "." end if For Each objUploadedFile in objUpload.Files 'nomearquivo = Right(objUploadedFile.path,Len(objUploadedFile.path)-InstrRev(objUploadedFile.path,"\")) & "<BR>" variavel = split(objUploadedFile.path,"\") ultimo = ubound(variavel) foto = variavel(ultimo) response.write foto &"<br>" Next texto = objUpload.Form("texto") Response.write strMessage response.write texto Set objUpload = nothing %>