<%@ Language=VBScript %> <% '========================================= '========================================= 'Script para envio de e-mail em formulário Dim vErro,vSucesso,vErr vErro = "" vSucesso = "sucesso.htm" vErr = "erro.htm" if Request.Form.Count + Request.QueryString.Count > 0 then Call Respform Call Resp '----------------------------------------------------------- Sub Respform() On Error Resume Next Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom vNomeForm = "Contato Via Website" vPara = "contato@genoa.com.br" vFrom = "contato@genoa.com.br" vCc = "pcpp@uol.com.br" vAssunto = "Contato" vData = Date() vData = day(vData) & "/" & month(vData) & "/" & year(vData) vHora = Time() vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s" msg = "Contato" & vNomeForm msg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLf msg = msg & " Nome: " & Trim(Request("Nome")) & vbCrLf msg = msg & " Empresa: " & Trim(Request("Empresa")) & vbCrLf msg = msg & " Email: " & Trim(Request("Email")) & vbCrLf msg = msg & " Endereço: " & Trim(Request("Endereco")) & vbCrLf msg = msg & " Número: " & Trim(Request("Nº")) & vbCrLf msg = msg & " CEP: " & Trim(Request("CEP")) & vbCrLf msg = msg & " Cidade: " & Trim(Request("Cidade")) & vbCrLf msg = msg & " Estado: " & Trim(Request("Estado")) & vbCrLf msg = msg & " Telefone: " & Trim(Request("ddd")) & " - " & Trim(Request("fone1")) & vbCrLf msg = msg & " FAX: " & Trim(Request("ddd2")) & " - " & Trim(Request("fax")) & vbCrLf msg = msg & " Solicitações: " & Trim(Request("Solicitacoes")) & vbCrLf 'if Request.ServerVariables("REQUEST_METHOD") = "POST" then 'for each campo in Request.Form 'if campo <> "nome" and campo <> "email" and campo <> "ddd" and campo <> "fone" and campo <> "mensagem" then 'msg = msg & Rep(60,"-") 'msg = msg & campo & " : " & Request.Form(campo) & VbCrLf 'end if 'next 'else 'for each campo in Request.QueryString 'if campo <> "nome" and campo <> "email" and campo <> "ddd" and campo <> "fone" and campo <> "mensagem" then 'msg = msg & Rep(60,"-") 'msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf 'end if 'next 'end if msg = msg & Rep(60,"-") enviamail msg,vFrom,vPara,vCc,vAssunto If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if End Sub '----------------------------------------------------------- Function Rep(pRep,pCaracter) Dim linha linha = "" for i = 0 to pRep linha = linha & pCaracter next Rep = linha & VbCrLf End Function '----------------------------------------------------------- Sub enviamail(msg,fr,para,cc,subj) On Error Resume Next Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = fr objMail.To = para objMail.Cc = cc objMail.Subject = subj objMail.Body= msg objMail.importance=2 objMail.Send If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if Set objMail = nothing End Sub '----------------------------------------------------------- Sub Resp() if vErro = "" then Response.Redirect(vSucesso) else Response.Redirect(vErr) end if End Sub end if %>

	Entre em contato conosco. * Campos Obrigatórios   Nome*:   Empresa*:   E-mail*:   Endereço:   Nº CEP:   Cidade: Estado:   Telefone*: ( ) -   FAX: ( ) -   Solicitações:     Av. Pedro Bueno, 605 - Pq. Jabaquara - São Paulo - SP - CEP: 04342-010
Genoa, Printronix, Compuprint, Impressoras, Impressora, Impressão, Nota Fiscal Eletronica, RFID, Formulário Contínuo, Impressoras Laser, Impressora Laser, Impressoras de Linha, Impressoras Matriciais, Impressora Matricial, Impressoras Térmicas, Impressora Térmica, Impressoras RFID, Verificadores, Locação de impressoras, Tercerização de Impressão, Radio Frequency Identification, Identificação por Rádio Frequência, Smart Labels, Etiqueta Inteligente, Código de Barras, DANF-e, DANFE, Nota Fiscal Eletrônica NF-e, Documento Auxiliar da Nota Fiscal Eletrônica, NF Eletrônica, Impressora Nota Fiscal Eletronica, Impressão Nota Fiscal Eletrônica, NFE, ODV, Online Data Validator, Verificador Online de Código de Barras, Validador de Código de Barras, Verificador de Código de Barras, Validador de Código de Barras, Código de Barras, Scanner de Código de Barras, Leitor de Código de Barras