Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

barenco

[Resolvido] Formulário para envio de arquivos

Por , em ASP Clássico

Recommended Posts

barenco    0

barenco
Postado

Olá amigos

 

Sou totalmente leigo em ASP e recebi pronto um formulário para envio de arquivos. Ocorre que ele permite o envio de 3 arquivos sumultâneos, mas o internauta é obrigado a anexar 3 arquivos, senão aparece a página de erro, ao inves da confirmação, apesar do arquivo ser enviado. Gostaria que internauta tivesse a possibilidade de anexar quantos arquivos desejasse - 1, 2 ou 3 - sem que aparecesse a página de erro. Como fazer?

O código da página segue abaixo.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%

Dim Msg

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False

Upload.SaveVirtual "\upload"

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Nome = Upload.Form("nome")
Email = Upload.Form("email")

Mailer.FromName = Nome
Mailer.FromAddress = Email
Mailer.RemoteHost = "smtpdom.infolink.com.br"
Mailer.AddRecipient "Maxicar", "sac@maxicar.com.br" 
Mailer.Subject = "Meu xodó" 

Msg ="Nome: " & Upload.Form("nome") & vbCrLf & "E-mail: " & Upload.Form("email") & ""

Mailer.BodyText = Msg
Mailer.ContentType = "text/plain"

Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq").Path
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq2").Path
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq3").Path

On Error Resume Next

If Err <> 0 Or Not Mailer.Sendmail Then
Response.Redirect ("erro.htm") 'Endereço da página de erro.

End If
Response.redirect("obrigado_xodo.asp")  
%> 
<body>

</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

faz um IF antes de cadastrar o enviar o upload assim:

 

if (Upload.Files("arq") <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq").Path

elseif (Upload.Files("arq2") <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq2").Path

elseif (Upload.Files("arq") <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq3").Path
end if

caso esse não funcione, tente assim:

if (Upload.Files("arq").Path <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq").Path

elseif (Upload.Files("arq2").Path <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq2").Path

elseif (Upload.Files("arq").Path <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq3").Path
end if

desculpa colocar duas opções, agora me faltou a memória!

Compartilhar este post

Link para o post
Compartilhar em outros sites

barenco    0

barenco
Postado

faz um IF antes de cadastrar o enviar o upload assim:

 

if (Upload.Files("arq") <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq").Path

elseif (Upload.Files("arq2") <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq2").Path

elseif (Upload.Files("arq") <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq3").Path
end if

caso esse não funcione, tente assim:

if (Upload.Files("arq").Path <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq").Path

elseif (Upload.Files("arq2").Path <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq2").Path

elseif (Upload.Files("arq").Path <> "") then
Mailer.AddAttachment Server.MapPath("/") & "\upload\" & Upload.Files("arq3").Path
end if

desculpa colocar duas opções, agora me faltou a memória!

Obrigado amigo. A segunda opção funcionou direitinho!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito