<% else if RecebeDados = "0" Then EnviaMail Else %> <%End if%> <%End if%> <% Sub EnviaMail() Set MailPlaniex = Server.CreateObject("Persits.MailSender") MailPlaniex.Host = "mail.phl.com.br" MailPlaniex.From = EMail_Cli MailPlaniex.AddAddress "suporte@phl.com.br","Planiex" MailPlaniex.Subject = "Solicitacoes Site Planiex - " & Nome_Cli Mensagem = "DADOS DA MERCADORIA" & vbcrlf & vbcrlf Mensagem = Mensagem & "Descricao Comercial: " & Descricao_Coml & vbcrlf Mensagem = Mensagem & "Valor da Mercadoria: " & Vlr_Mercadoria & vbcrlf Mensagem = Mensagem & "Moeda: " & Moeda & vbcrlf Mensagem = Mensagem & "Classificação Fiscal: " & Classificacao_Fiscal & vbcrlf Mensagem = Mensagem & "Peso Bruto: " & Peso_Bruto & " " & Unid_Medida & vbcrlf Mensagem = Mensagem & "Tipo de Embalagem: " & Tipo_Embalagem & vbcrlf Mensagem = Mensagem & "Modelo de Transporte: " & Modelo_Transporte & vbcrlf Mensagem = Mensagem & "País: " & Pais & vbcrlf Mensagem = Mensagem & "Estado: " & Estado & vbcrlf Mensagem = Mensagem & "Cidade: " & Cidade & vbcrlf Mensagem = Mensagem & "Local de Liberação: " & Local & vbcrlf & vbcrlf Mensagem = Mensagem & "DADOS DO CLIENTE " & vbcrlf & vbcrlf Mensagem = Mensagem & "Nome do Cliente: " & Nome_Cli & vbcrlf Mensagem = Mensagem & "Empresa: " & Empresa_Cli & vbcrlf Mensagem = Mensagem & "Endereço: " & Endereco_Cli & ", " & Numero_Cli & " " & Complemento_CLi & vbcrlf Mensagem = Mensagem & "Telefone: " & Tel_Cli & vbcrlf Mensagem = Mensagem & "Cidade: " & Cidade_Cli & vbcrlf Mensagem = Mensagem & "Bairro: " & Bairro_Cli & vbcrlf Mensagem = Mensagem & "E-mail: " & EMail_Cli & vbcrlf MailPlaniex.Body = Mensagem if MailPlaniex.Send then %> <% else Response.Write " Erro ao enviar...

" end if Set MailPlaniex = Nothing End sub %> <% Function RecebeDados() RecebeDados = "0" Color_Descricao_Coml = "#000000" Color_Vlr_Mercadoria = "#000000" Color_Moeda = "#000000" Color_Classificacao_Fiscal = "#000000" Color_Peso_Bruto = "#000000" Color_Unid_Medida = "#000000" Color_Tipo_Embalagem = "#000000" Color_Modelo_Transp = "#000000" Color_Pais = "#000000" Color_Estado = "#000000" Color_Cidade = "#000000" Color_Local = "#000000" Color_Nome_Cli = "#000000" Color_Empresa_Cli = "#000000" Color_Endereco_Cli = "#000000" Color_Numero_Cli ="#000000" Color_Complemento_Cli = "#000000" Color_Cidade_Cli = "#000000" Color_Bairro_Cli = "#000000" Color_EMail_Cli = "#000000" Descricao_Coml = replace(Request.Form("Descricao_Coml"), "'", "''") If Descricao_Coml = "" Then Color_Descricao_Coml = "#FF0000" RecebeDados = "1" End If Vlr_Mercadoria = replace(Request.Form("Vlr_Mercadoria"), "'", "''") If Vlr_Mercadoria = "" Then Color_Vlr_Mercadoria = "#FF0000" RecebeDados = "1" End If Moeda = replace(Request.Form("Moeda"), "'", "''") If Moeda = "" Then Color_Moeda = "#FF0000" RecebeDados = "1" End If Classificacao_Fiscal = replace(Request.Form("Classificacao_Fiscal"), "'", "''") Peso_Bruto = replace(Request.Form("Peso_Bruto"), "'", "''") If Peso_Bruto = "" Then Color_Peso_Bruto = "#FF0000" RecebeDados = "1" End If Unid_Medida = replace(Request.Form("Unid_Medida"), "'", "''") if Unid_Medida = "" Then Color_Unid_Medida = "#FF0000" RecebeDados = "1" End If Tipo_Embalagem = replace(Request.Form("Tipo_Embalagem"), "'", "''") if Tipo_Embalagem = "" Then Color_Tipo_Embalagem = "#FF0000" RecebeDados = "1" End If Modelo_Transp = replace(Request.Form("Modelo_Transp"), "'", "''") if Modelo_Transp = "" Then Color_Modelo_Transp = "#FF0000" RecebeDados = "1" End If Pais = replace(Request.Form("Pais"), "'", "''") If Pais = "" Then Color_Pais = "#FF0000" RecebeDados = "1" End If Estado = replace(Request.Form("Estado"), "'", "''") Cidade = replace(Request.Form("Cidade"),"'", "''") ListLocal = replace(Request.Form("ListLocal"),"'", "''") Nome_Cli = replace(Request.Form("Nome_Cli"), "'", "''") If Nome_Cli = "" Then Color_Nome_Cli = "#FF0000" RecebeDados = "1" End If Empresa_Cli = replace(Request.Form("Empresa_Cli"), "'", "''") If Empresa_Cli = "" Then Color_Empresa_Cli = "#FF0000" RecebeDados = "1" End If EMail_Cli = replace(Request.Form("EMail_Cli"), "'", "''") If EMail_Cli = "" Then Color_EMail_Cli = "#FF0000" RecebeDados = "1" End If End Function %> <% Function PosicionaCombo(Combo, strTexto) PosicionaCombo="" Select Case Combo Case "Moeda" if strTexto = Moeda then PosicionaCombo = "Selected" End if Case "Unidade" if strTexto = Unid_Medida then PosicionaCombo = "Selected" End if Case "Embalagem" if strTexto = Tipo_Embalagem then PosicionaCombo = "Selected" End if Case "Transporte" if strTexto = Modelo_Transp then PosicionaCombo = "Selected" End if Case "Libera" if strTexto = ListLocal then PosicionaCombo = "Selected" end if End Select End Function %>

Descrição Comercial da Mercadoria*
Valor da Mercadoria*  
Moeda     Classificação fiscal (NCM)  
Peso Bruto Aproximado* 
Tipo de Embalagem/Unitização*
Modalidade de Transporte*
País*
Estado      Cidade  
Local de Liberação : Porto/Aeroporto/Fronteira
Nome*      
Endereço  
Cidade     
         Comp.   
Telefone:
Bairro
E-Mail*    
 
      
 
   
 

Direitos Reservado para Planiex Planejamento de Comércio Exterior/ 2005