Fórum Contato
  
   O portal do desenvolvedor ASP Quinta-feira - 5 de Agosto de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Não exibe alerta de campo em branco quando tento enviar o formulário Atualizado em 23/08/2007 ás 21:27:00

Postado em 23/08/2007 ás 21:27:00
Oi pessoal, tenho esse formulário que tá tudo certo, tá funcionando, mas por exemplo, é obrigado o preenchimento do campo e-mail, tem o comando java certinho, mas quando envio em branco não abre nada obrigando e a mensagem é enviada normalmente...

O que pode estar ocorrendo???

Podem me ajudar a resolver...

Vejam:




Incluir Registro
































 
<%
If Not IsEmpty(Request.Form) Then
strMsg = ""
strMsg = strMsg & ""
strMsg = strMsg & ""
strMsg = strMsg & ""
strMsg = strMsg & "" & cabecalho_email & "

"
strMsg = strMsg & "*Destino

" & Trim(Request.Form("Campo1")) & "
"
strMsg = strMsg & "*Nome

" & Trim(Request.Form("Campo2")) & "
"
strMsg = strMsg & "Empresa

" & Trim(Request.Form("Campo3")) & "
"
strMsg = strMsg & "*E-mail

" & Trim(Request.Form("Campo4")) & "
"
strMsg = strMsg & "Fone

" & Trim(Request.Form("Campo5")) & "
"
strMsg = strMsg & "Site

" & Trim(Request.Form("Campo6")) & "
"
strMsg = strMsg & "*Mensagem

" & Trim(Request.Form("Campo7")) & "
"
If Request.Form("Campo8") <> "" Then
strMsg = strMsg & "Quero receber e-mails sobre produtos e serviços
Sim
"
Else
strMsg = strMsg & "Quero receber e-mails sobre produtos e serviços
Não
"
End If
strMsg = strMsg & "
"
strMsg = strMsg & ""
EnviaEmail servidor, componente, email_form, email_form, email_form, assunto_form, strMsg
Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem)
Select Case Componente
Case "AspMail"

on error resume next
Set eObjMail = Server.CreateObject("SMTPsvg.Mailer")
eObjMail.FromName = NomeEmail
eObjMail.FromAddress = Email
eObjMail.RemoteHost = Host
eObjMail.AddRecipient "", ParaEmail
eObjMail.Subject = Assunto
eObjMail.ContentType = "text/html"
eObjMail.BodyText = Mensagem
eObjMail.SendMail
Set eObjMail = nothing

Case "AspEmail"

on error resume next
Set eObjMail = Server.CreateObject("Persits.MailSender")
eObjMail.Host = Host
eObjMail.From = Email
eObjMail.FromName = NomeEmail
eObjMail.AddReplyTo Email
eObjMail.AddAddress ParaEmail
eObjMail.Subject = Assunto
eObjMail.isHTML = true
eObjMail.Body = Mensagem
eObjMail.Send
Set eObjMail = nothing

Case "AspQmail"

on error resume next
Set eObjMail = Server.CreateObject("SMTPsvg.Mailer")
eObjMail.QMessage = 1
eObjMail.FromName = NomeEmail
eObjMail.FromAddress = Email
eObjMail.RemoteHost = Host
eObjMail.AddRecipient "", ParaEmail
eObjMail.Subject = Assunto
eObjMail.BodyText = Mensagem
objNewMail.SendMail
Set eObjMail = nothing

Case "CDONTS"

on error resume next
Set eObjMail = Server.CreateObject("CDONTS.NewMail")
eObjMail.to = ParaEmail
eObjMail.from = NomeEmail & "<" & Email & ">"
eObjMail.subject = Assunto
eObjMail.Importance = 1
eObjMail.BodyFormat = 0
eObjMail.MailFormat = 0
eObjMail.body = Mensagem
eObjMail.send
Set eObjMail = nothing

End Select
End Function

%>
Mensagem Enviada
Obrigado, sua mensagem foi enviada
com sucesso!!!
<%
Else
%>
Enviar Mensagem

Digite sua mensagem abaixo:
" onsubmit="return verifica_form(this);">

























*Destino
*Nome

Empresa

*E-mail

Fone

Site

*Mensagem


Quero receber e-mails sobre produtos e serviços



<%
End If
%>
 




SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados