Codigo...

[Azevedo 0]

Pessoal analisem meu codigo . Será q funciona??

 

<%'recuperando variaveis do formularionome=trim(request("txt_nome"))email=trim(request("txt_email"))assunto=trim(request("txt_assunto"))mensagem=trim(request("txt_mensagem"))statu=truemsn="t1="'começando a verificação do formularioif Len(nome)<3 then	statu=false	msn="t1=Preencha o campo nome com Nome e Sobrenome"end ifif Len(email)<10  then	statu=false	msn=msn&"&t2=O campo e-mail tem que ter mais que 10 caracteres"end ifif InStr(email, "@") <1 or InStr(email, ".com") <1 then	statu=false	msn=msn&"&t2=Digite um e-mail valido"end if if Len(assunto)<15  then	statu=false	msn=msn&"&t3=O campo assunto tem que ter mais que 15 caracteres"end ifif Len(mensagem)<50  then	statu=false	msn=msn&"&t4=Sua mensagem tem que ter mais que 65 caracteres"end ifif not statu then	response.Redirect("contato.asp?"&msn)else'Enviar e-mail modo aspmail....	Set objmail = Server.CreateObject("SMTPsvg.Mailer")	objmail.FromName = nome 'variavel que recuperei nome do form	objmail.FromAddress = email	objmail.RemoteHost = "smtp.dominio.com.br"	objmail.AddRecipient "Renan Azevedo", "renanazevedo@dominio.com.br"	objmail.Subject = assunto 	objmail.BodyText = mensagem	if objmail.SendMail then		response.Redirect("contato.asp?id=2")	else		response.Redirect("contato.asp?id=3")	end ifend if%>

 

E ae pessoal meu codigo esta certo, vai rodar sem problema ou não???

[mx loco 1]

Aparentemente esta ok, mas uma observação.Nem todos os E-mail contem ".Com"

[Azevedo 0]

Cara nunca vi uma e-mail sem .com....tem e-mail que não tem .br.........mais .com...nunca vi..mais valeuu..

[arr 0]

Cara nunca vi uma e-mail sem .com....tem e-mail que não tem .br.........mais .com...nunca vi..

joao@carro.netmeuemail@meusite.orgjhryan@host.co.ukmaria@objetivo.br (os dominios de universidades e faculdades no Brasil não precisam do ".com"Existem de inumeros domínios de 1º nível sem o .com.

[shumi 0]

shumi@portugal.ptse pensar bem tem varios

[Azevedo 0]

Tranquilo galera...vai...agradeço...