<% if Request.Form("Submit")="Enviar" then Dim txtEnv, strResp if instr(Request.Form("email"),"@")>0 and instr(Request.Form("email"),".")>0 then txtEnv = "Consulta" txtEnv = txtEnv & "" txtEnv = txtEnv & "

Pagina de Contato

" txtEnv = txtEnv & "" txtEnv = txtEnv & "" txtEnv = txtEnv & " " txtEnv = txtEnv & "" txtEnv = txtEnv & " " txtEnv = txtEnv & "" txtEnv = txtEnv & " " txtEnv = txtEnv & "" txtEnv = txtEnv & " " txtEnv = txtEnv & "" txtEnv = txtEnv & " " txtEnv = txtEnv & "" txtEnv = txtEnv & "" txtEnv = txtEnv & "
Nome:" & Request.Form("nome") & "
E-Mail:" & Request.Form("email") & "
Telefone:" & Request.Form("telefone") & "
Cidade:" & Request.Form("cidade") & "
.::. Comentários .::.
" & Request.Form("coment") & "
" txtEnv = txtEnv & "" txtEnv = txtEnv & "" strResp=enviar_email(Request.Form("email"),Request.Form("nome"),"victorcarlquist@gmail.com","JG - Imóveis","Contato", txtEnv) strResp="

Seu e-mail foi enviado com sucesso, em breve entraremos em contato.

" Response.Write(".::. Email Enviado .::.") Response.Write("") Response.Write("

 

") Response.Write("

" & strResp & "

") else strResp="

Alguns dados de preenchimento obrigatório foram deixados em branco. Seu e-mail năo foi enviado !!!!

" Response.Write(".::. ERRO NO ENVIO .::.") Response.Write("") Response.Write("

 

") Response.Write("

" & strResp & "

") Response.Write("

Voltar ao formuário
") end if Response.End() end if %> Home page

 

Nome:
E-Mail:
Telefone:
Cidade:
Texto: