<% 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


 
Navio:
 
Destino:
 
Porto de Embarque:
 
Pedido:
 
Peso:
 
Fornecedor:
 
Cidade:
 
Estado:
 
Responsavel:  
 
Quantidade Fardos
Quantidade Pç p/ fardo
Código
Bitolas
Metragem
Ex. 20
280
B-16/25
21 x 160 x 2.50
42,270
Total: