Formulário em ASP - Obrigar todos os campos

MATS · 15 de dezembro de 2004

Olá! Por favor, gostaria de alguma ajuda para fazer com que apareça uma mensagem de erro, avisando, quando o visitante tentar enviar o formulário com algum campo faltando (sem preencher).

Abaixo segue o código do arquivo ASP que faz o envio do formulário:

<%
'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "[email protected]"

sNameTo = "Teste"

sText = Request.Form("mensagem")

sAssunto = Request.Form("assunto")

'Cria o objeto

set mailer = server.createobject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

'Host para envio de emails

Mailer.RemoteHost = "mail.teste.com.br"

Mailer.AddRecipient sNameTo, sEmailTo

Mailer.Subject = sAssunto & " - E-mail"

'Monta a texto para o envio

strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf

strMsgFooter = sText

Mailer.BodyText = strMsgHeader & strMsgFooter

' Se for enviado redirecionar para obrigado.asp

if Mailer.SendMail then

Response.Redirect "obrigado.asp"

else

' Se não for enviado mostra o erro que ocoreu

Response.Write ("Ocorreu um erro.

")

Response.Write ("O Erro é " & Mailer.Response)

end if

%>