Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>Carregando comentários...