<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

Nome:

E-mail:

Empresa:

Cidade:

Telefone:

Mensagem:

<% Dim Cod Cod = Request.QueryString("Cod") If Cod= "Enviar" then 'Pegando dados do formulário Nome=request("Nome") Email=request("Email") Empresa=request("Empresa") Cidade=request("Cidade") Telefone=request("Telefone") Assunto=request("Assunto") Mensagem=request("Mensagem") Corpo1 = "Nome: " & Nome & VbCrLf Corpo1 = Corpo1 & "Email: " & Email & VbCrLf Corpo1 = Corpo1 & "Empresa: " & Empresa & VbCrLf Corpo1 = Corpo1 & "Cidade: " & Cidade & VbCrLf Corpo1 = Corpo1 & "Telefone: " & Telefone & VbCrLf Corpo1 = Corpo1 & "Assunto: " & Assunto & VbCrLf Corpo1 = Corpo1 & " " & vbCrLf Corpo1 = Corpo1 & "Mensagem: " & Mensagem & VbCrLf Corpo1 = Corpo1 & "--------------------------------------------------------------------------" & vbCrLf Corpo1 = Corpo1 & "ATENÇÃO: Mensagem enviada pelo Site do SIFUMG." & VbCrLf Corpo1 = Corpo1 & "--------------------------------------------------------------------------" & vbCrLf ' Criando o objeto para enviar email Set objMail = Server.CreateObject("CDONTS.Newmail" ) objMail.From = Email objMail.Bcc = "paulo@softmig.com.br;afonso@sifumg.com.br" objMail.To = "sifumg@sifumg.com.br" objMail.Subject = Assunto objmail.body = Corpo1 ' Enviando o email objmail.send ' Limpando Objeto Set objmail = Nothing '-----Auto Responder 'Pegando dados do formulário Nome=request("Nome") Email=request("Email") Empresa=request("Empresa") Cidade=request("Cidade") Telefone=request("Telefone") Assunto=request("Assunto") Mensagem=request("Mensagem") HTML = "" HTML = HTML &"" HTML = HTML &"Prezado(a),"&Nome&"
" HTML = HTML &"Recebemos seu email e estamos analisado.


" HTML = HTML &"Sindicato da Indústria da Fundição no Estado de Minas Gerais" Set objMail = Server.CreateObject("CDONTS.NewMail") 'cria o objeto' objMail.From = "sifumg@sifumg.com.br" objMail.To = Email objMail.Subject = "Resposta Automática - SIFUMG" objMail.Body = HTML objMail.Bodyformat = 0 objMail.MailFormat = 0 objMail.Send Set objMail = Nothing 'finaliza o objeto' With(Response) .Write "" End With end if %>