Incluir Registro

<% @ LANGUAGE="VBSCRIPT" %> <% '******************************************************************* ' Página gerada pelo sistema Dataform 2 - http://www.dataform.com.br '******************************************************************* 'Email para onde serão enviados os dados do formulário email_form = "email@dominio.com.br" 'Título do email assunto_form = "Email recebido através do formulário do site" 'Servidor de email servidor = "smtp.servidor.com.br" 'Componente para envio do email: CDONTS | AspMail | AspEmail | AspQmail componente = "CDONTS" 'Cabeçalho do texto do email recebido cabecalho_email = "Dados do Usuário" '******************************************************************* %> Incluir Registro <% If Not IsEmpty(Request.Form) Then strMsg = "" strMsg = strMsg & "" strMsg = strMsg & "" strMsg = strMsg & "" strMsg = strMsg & "" & cabecalho_email & "

" strMsg = strMsg & "nome

" & Trim(Request.Form("Campo1")) & "

" strMsg = strMsg & "email

" & Trim(Request.Form("Campo2")) & "

" strMsg = strMsg & "ddd

" & Trim(Request.Form("Campo3")) & "

" strMsg = strMsg & "telefone

" & Trim(Request.Form("Campo4")) & "

" strMsg = strMsg & "dados

" & Trim(Request.Form("Campo5")) & "

" If Request.Form("Campo6") <> "" Then strMsg = strMsg & "gasolina
Sim

" Else strMsg = strMsg & "gasolina
Não

" End If If Request.Form("Campo7") <> "" Then strMsg = strMsg & "alcool
Sim

" Else strMsg = strMsg & "alcool
Não

" End If If Request.Form("Campo8") <> "" Then strMsg = strMsg & "injecao
Sim

" Else strMsg = strMsg & "injecao
Não

" End If If Request.Form("Campo9") <> "" Then strMsg = strMsg & "carburado
Sim

" Else strMsg = strMsg & "carburado
Não

" End If strMsg = strMsg & "pagamento

" & Trim(Request.Form("Campo10")) & "

" strMsg = strMsg & "kit

" & Trim(Request.Form("Campo11")) & "

" strMsg = strMsg & "sosgas

" & Trim(Request.Form("Campo12")) & "

" strMsg = strMsg & "loja

" & Trim(Request.Form("Campo13")) & "

" strMsg = strMsg & "vezes

" & Trim(Request.Form("Campo14")) & "

" strMsg = strMsg & "outras

" & Trim(Request.Form("Campo15")) & "

" 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 %> Dados enviados
Obrigado, seus dados foram enviados com sucesso. <% Else %>

ORÇAMENTO

Convertemos mais de 50% da frota de GNV de Niterói, São Gonçalo e Itaboraí.

Pagamento em até 24x no cheque, com desconto direto em conta corrente ou
em até 12x no cartão Mastercard

MENOR TAXA com a MELHOR QUALIDADE...

Ligue e Confira!!

<% End If %>