<%Dim email,msg if request("email")<>""then if len(request("nome")) < 3 then erro = 1 msg = "Nome incompleto\n" end if if len(request("email")) < 3 then erro = 1 msg = "Email incompleto\n" end if if instr(request("email"),"@")= 0 then erro = 1 msg = "Email inválido\n" end if if erro = 0 then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "192.168.0.3" Mailer.FromName = "SUPERCROSS 2008" Mailer.FromAddress = "org@dunas.com.br" Mailer.AddRecipient "",request("email") Mailer.ContentType = "text/html" Mailer.Subject = "Contato - SUPERCROSS 2008" texto="Agradecemos sua mensagem, em breve entraremos em contato." texto=texto & "

SUPERCROSS 2008." Mailer.BodyText = texto Mailer.SendMail Set Mailer = Nothing Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "192.168.0.3" Mailer.FromName = request("nome") Mailer.FromAddress = request("email") Mailer.AddRecipient "", "org@dunas.com.br" Mailer.ContentType = "text/html" Mailer.Subject = "Fale Conosco:" texto1="Nome para contato: " & request("nome") texto1=texto1 & "
DDD/Telefone: " & request("ddd") & "/" & request("fone") texto1=texto1 & "
email: " & request("email") texto1=texto1 & "
Mensagem: " & request("mensagem") Mailer.BodyText = texto1 Mailer.SendMail Set Mailer = Nothing response.redirect "contato_enviado.htm?nome=" & request("nome") else nome = request("nome") ddd = request("ddd") fone = request("fone") email = request("email") mensagem = request("mensagem") end if end if %>








 

Deseja obter mais alguma informação, fazer uma solicitação ou ainda maiores detalhes sobre o SUPERCROSS 2008?

Utilize o formulário abaixo e em breve entraremos em contato.

Nome: " size="40" />
E-mail: " size="40" />
DDD/Telefone: " size="3" maxlength="3" /> / " size="20" />
Mensagem:
 
<%if msg <> "" then%> <%end if%>