<% sub processa dim msg:msg = "" msg = msg & "CADASTRO DE FORNECEDORES" msg = msg & vbcrlf & "Nome: " & request("c1") msg = msg & vbcrlf & "Endereço " & request("c2") msg = msg & vbcrlf & "Bairro: " & request("c3") msg = msg & vbcrlf & "CEP: " & request("c4") msg = msg & vbcrlf & "Cidade: " & request("c5") msg = msg & vbcrlf & "Estado: " & request("c6") msg = msg & vbcrlf & "CGC: " & request("c7") msg = msg & vbcrlf & "Inscrição Estadual:" & request("c8") msg = msg & vbcrlf & vbcrlf & "TELEFONES CONTATO" msg = msg & vbcrlf & "Escritório: " & request("c9") msg = msg & vbcrlf & "Serraria: " & request("c10") msg = msg & vbcrlf & "Residência: " & request("c11") msg = msg & vbcrlf & "Celular: " & request("c12") msg = msg & vbcrlf & "Fax : " & request("c13") msg = msg & vbcrlf & "E-mail: " & request("c14") msg = msg & vbcrlf & "Site: " & request("c15") msg = msg & vbcrlf & vbcrlf & "PESSOAS PARA CONTATO" msg = msg & vbcrlf & "Escritório: " & request("c16") msg = msg & vbcrlf & "Serraria: " & request("c17") msg = msg & vbcrlf & "Banco: " & request("c18") & request("19") & request("20") 'response.Write msg set message = Server.CreateObject("CDO.Message") set conf = Server.CreateObject("CDO.Configuration") set param = conf.Fields param("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" param.Update strFrom = request("c1") strTo = "razexport@razexport.com.br" strSubject = "Cadastro de Fornecedores" strBody = msg set message.configuration = conf message.From = strFrom message.To = strTo message.Subject = StrSubject message.textBody = StrBody message.send set message = nothing response.Redirect "cadastro_resposta.htm" end sub if request("c1") <> "" then processa end if %> conteudo


 
Nome:
 
Endereço:
 
Bairro:
 
CEP:
 
Cidade:
 
Estado:
 
CGC:
 
Inscrição Estadual:
 
 
  Telefones Contato
Escritório:
 
Serraria:
 
Residência:
 
Celular:
 
Fax:
 
   
E-mail:
 
Site:
 
 
  Pessoas para contato
 
Escritório:
 
Serraria:
 
           
  Dados Bancários
Banco:
 
Agência:
 
C/C: