|
<% 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 - Importação PJ - " & 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 & "País: " & Pais & vbcrlf
Mensagem = Mensagem & "Estado: " & Estado & vbcrlf
Mensagem = Mensagem & "Cidade: " & Cidade & vbcrlf
Mensagem = Mensagem & "Local de Liberação: " & locallib & 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
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"), "'", "''")
locallib=replace(Request.Form("Locallib"),"'","''")
Nome_Cli = replace(Request.Form("Nome_Cli"), "'", "''")
If Nome_Cli = "" Then
Color_Nome_Cli = "#FF0000"
RecebeDados = "1"
End If
Endereco_Cli = replace(Request.Form("Endereco_Cli"),"'","''")
Tel_Cli = replace(Resquest.form("Tel_Cli"), "'","'")
Numero_Cli = replace(Request.Form("Numero_Cli"),"'","''")
Complemento_Cli = replace(Request.Form("Complemento_Cli"),"'","''")
Bairro_Cli = replace(Request.Form("Bairro_Cli"),"'","''")
Cidade_Cli = replace(Request.Form("Cidade_Cli"),"'","''")
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 = locallib then
PosicionaCombo = "Selected"
end if
End Select
End Function
%>
|
