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