<% @ LANGUAGE="VBSCRIPT" %> <% '******************************************************************* ' FOXWORK - Sua Empresa na Internet '******************************************************************* 'Email para onde serão enviados os dados do formulário email_form = "reservas@liderpesca.com.br" 'Título do email assunto_form = "FALE CONOSCO" 'Servidor de email servidor = "smtp.liderpesca.com.br" 'Componente para envio do email: CDONTS | AspMail | AspEmail | AspQmail componente = "CDONTS" 'Cabeçalho do texto do email recebido cabecalho_email = "FALE CONOSCO" '******************************************************************* %> Fale Conosco - PLASCOR Ind. Com. de Artigos Plásticos Ltda.

<% 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 & "DDD + Telefone:

" & Trim(Request.Form("Campo2")) & "
" strMsg = strMsg & "E-mail:

" & Trim(Request.Form("Campo3")) & "
" strMsg = strMsg & "Assunto:

" & Trim(Request.Form("Campo4")) & "
" strMsg = strMsg & "Mensagem:

" & Trim(Request.Form("Campo5")) & "
" 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 Case "CDOSYS" on error resume next Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = email_form objCDOSYSMail.To = email_form objCDOSYSMail.Subject = Assunto objCDOSYSMail.HtmlBody = Mensagem objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing End Select End Function %>

Enviado

A Líder Pesca, agradece seu contato, sua mensagem foi recebida com sucesso.


Logo estaremos retornando sua Mensagem <% Else %> Este é nosso canal de comunicação.


Utilize nosso formulário abaixo para deixar sua mensagem:

" onsubmit="return verifica_form(this);">
 

Nome:

 

 

DDD + Telefone:

 

 

e-mail:

 

 

Assunto:

 

 

Mensagem:

 

<% End If %>