Jump to content


Alexandre Max

Member Since 03/02/2010
Offline Last Active 28/03/2010, 14:22
-----

Posts I've Made

In Topic: (Ajuda Urgente) Formulario De Contato Com Envio De Anexo

10/02/2010, 22:17

Não cara, o codigo para upload do arquivo q estou usando é esse:
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
%>

IPB Skin By Virteq