Olá amigo,
Alguem pode me ajudar nesse codigo de valor em ASP.
Esse codigo ele é para mostrar o valor do produto.
(ccur(total)*objRS("cotacao_dia"))+ccur(objRS("valor_frete"))
Nesse codigo ele soma o produto + frete
Eu quero acrecentar uma parte no final desse codigo dando 12% de desconto no valor do produo.
Exemplo
ele vai forma o produto + frete - 12%
Como eu faço isso?
Muito obrigado!
Ajuda No Código Asp.
Started By Daniel Ambrosio, 05/03/2009, 14:59
9 replies to this topic
#2
Renan L. Queiroz
-
- Usuários
-
- 690 posts
Mestre
- Sexo:Masculino
- Localidade:Brasilia - DF
Posted 05/03/2009, 15:35
Tenta isso:
valorTotal = (ccur(total)*objRS("cotacao_dia"))+ccur(objRS("valor_frete"))
valorTotal = formatPercent((valorTotal * [VARIAVEL_DESCONTO])/100, 2)
Edição feita por: Renan L. Queiroz, 05/03/2009, 17:36.
Especialidade: Desenvolvimento e Banco de Dados.
Este post lhe ajudou? Agradeça: 
#3
Daniel Ambrosio
-
- Usuários
-
- 7 posts
Novato no fórum
- Sexo:Não informado
Posted 05/03/2009, 15:52
Tenta isso:
valorTotal = (ccur(total)*objRS("cotacao_dia"))+ccur(objRS("valor_frete")) valorTotal = formatPercent((valorTotal * [VARIAVEL_DESCONTO])/100, 2)
Olá,
Deu erro olha o erro abaixo.
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/loja/formas_de_pagamento.asp, line 208
x101 = valorTotal = (ccur(total)*objRS("cotacao_dia"))+ccur(objRS("valor_frete")) valorTotal = formatPercent((valorTotal * [VARIAVEL_DESCONTO])/100, 2)
----------------------------------------------------------------------------------^
Fico grato!!!
#4
Renan L. Queiroz
-
- Usuários
-
- 690 posts
Mestre
- Sexo:Masculino
- Localidade:Brasilia - DF
Posted 05/03/2009, 16:43
Ele está esperando o termino de um comando
<%
valorTotal = ( ccur(total) * objRS("cotacao_dia") ) + ccur( objRS("valor_frete") )
x101 = formatPercent( ( valorTotal * [VARIAVEL_DESCONTO] )/100, 2 )
%>Ta tudo na mesma linha?!
Edição feita por: Renan L. Queiroz, 05/03/2009, 17:36.
Especialidade: Desenvolvimento e Banco de Dados.
Este post lhe ajudou? Agradeça:
#5
Daniel Ambrosio
-
- Usuários
-
- 7 posts
Novato no fórum
- Sexo:Não informado
Posted 05/03/2009, 16:50
Ele está esperando o termino de um comando
<% valorTotal = ( ccur(total) * objRS("cotacao_dia") ) + ccur( objRS("valor_frete") ) x101 = formatPercent( ( valorTotal * [VARIAVEL_DESCONTO] )/100, 2 ) %>Ta tudo na mesma linha?!
Deu erro...
Faiz nesse codigo abaixo:
" & FormataValor((total*objRS("cotacao_dia"))+ccur(objRS("valor_frete"))) & "
#6
Renan L. Queiroz
-
- Usuários
-
- 690 posts
Mestre
- Sexo:Masculino
- Localidade:Brasilia - DF
Posted 05/03/2009, 17:02
essa função vc criou?
FormataValor()
Especialidade: Desenvolvimento e Banco de Dados.
Este post lhe ajudou? Agradeça:
#7
Daniel Ambrosio
-
- Usuários
-
- 7 posts
Novato no fórum
- Sexo:Não informado
Posted 05/03/2009, 17:06
essa função vc criou?
FormataValor()
Não ele já ta no codigo do meu site.
esse abaixo.
texto3 = texto3 & "" & FormataValor((total*objRS("cotacao_dia"))+ccur(objRS("valor_frete"))) & ""
#8
Renan L. Queiroz
-
- Usuários
-
- 690 posts
Mestre
- Sexo:Masculino
- Localidade:Brasilia - DF
Posted 05/03/2009, 17:10
Tem como postar o script?
Para uma melhor análise.
Pelo que vi no código acima, você está concatenado um texto com o valor do cálculo formatado para texto.
Caso seja, ficaria assim:
Me desculpe os posts anteriores, estava viajando!
Formatando os valores nos meio das operações!
Para uma melhor análise.
Pelo que vi no código acima, você está concatenado um texto com o valor do cálculo formatado para texto.
De acordo com isso então o valor final da operação tem que ser adicionado ao texto?Faiz nesse codigo abaixo:
" & FormataValor((total*objRS("cotacao_dia"))+ccur(objRS("valor_frete"))) & "
Caso seja, ficaria assim:
<% Dim cotacao_dia: cotacao_dia = 22.50 Dim valor_frete: valor_frete = 10 Dim desconto: desconto = 12 Dim texto: texto = "<br>Valor final = R$ " Dim x101: x101 = 0 valorTotal = CCur(cotacao_dia) + CCur(valor_frete) response.write "total = R$ "& valorTotal &"<br>" response.write "desconto = "& FormatPercent(desconto/100) &"<br>" response.write "diferenca = R$ "& valorTotal * (desconto/100) &"<br>" response.write "final = R$ "& valorTotal - ( valorTotal* (desconto/100) ) &"<br>" x101 = valorTotal - ( valorTotal* (desconto/100) ) texto = texto & x101 response.write(texto) %>
Me desculpe os posts anteriores, estava viajando!
Formatando os valores nos meio das operações!
Edição feita por: Renan L. Queiroz, 05/03/2009, 17:40.
Especialidade: Desenvolvimento e Banco de Dados.
Este post lhe ajudou? Agradeça:
#9
Daniel Ambrosio
-
- Usuários
-
- 7 posts
Novato no fórum
- Sexo:Não informado
Posted 05/03/2009, 17:31
Olá,
Ainda ta dando erro olha o arquivo ai você pra você ver como que é para colocar o valor de desconto na linha 147 do codigo do arquivo em asp.
Pega o arquivo em anexo
Fico muito grato.
Ainda ta dando erro olha o arquivo ai você pra você ver como que é para colocar o valor de desconto na linha 147 do codigo do arquivo em asp.
Pega o arquivo em anexo
Fico muito grato.
Attached Files
-
formas_de_pagamento.rar 5.67KB
1 downloads
#10
Renan L. Queiroz
-
- Usuários
-
- 690 posts
Mestre
- Sexo:Masculino
- Localidade:Brasilia - DF
Posted 05/03/2009, 18:12
Qual a descrição do erro?
A sintaxe está correta! Agora o que realmente está me deixando com a pulga atrás da orelha é o "FormataValor".
Essa função está incluída no "funcoes.asp" ?
Caso não inclua a mesma, ou retire da linha o chamado dela.
Procure por RENAN no código, tem algumas considerações.
[codebox]
<%
If Session("id_cliente") <> "" Then
%>
<!--#include file="funcoes.asp"-->
<html>
<head>
<title><%=Application("te_titulo_browser")%></title>
<link href="estilos/index.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.Estilo3 {color: #003366}
.Estilo6 {color: #FF0000}
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<div align="center">
<div align="center">
<span class="cp">
<p>
<%
'Enumeradores
feeSMTPBoletoHTML = 0
feeSMTPMensagemBoletoHTMLAnexo = 1
feeSMTPMensagemBoletoPDFAnexo = 2
feeSMTPMensagemLinhaDigitavelURLCobreBemECommerce = 3
feeSMTPMensagemURLCobreBemECommerce = 4
feeSMTPMensagemLinhaDigitavel = 5
feeOutlookBoletoHTML = 6
feeOutlookMensagemBoletoHTMLAnexo = 7
feeOutlookMensagemBoletoPDFAnexo = 8
feeOutlookMensagemLinhaDigitavelURLCobreBemECommerce = 9
feeOutlookMensagemURLCobreBemECommerce = 10
feeOutlookMensagemLinhaDigitavel = 11
scpExecutar = 0
scpOK = 1
scpInvalido = 2
scpErro = 3
'Prencha aqui os dados fixos nao mexa no resto
cedente = "Nome do Cedente" 'Geralmente é o nome da loja e o nome do cedente no banco
CNPJ= "000.000.000/0001-00" 'CNPJ ou CPF
carteira= "CNR" 'código da carteira
convenio= "000000" 'numero do seu convenio (não é necessário para alguns bancos)
agencia = "0278" 'agencia
DV_agencia= "0" 'digito da agencia (não é necessário para alguns bancos)
Conta_Corrente= "55304" 'conta (não é necessário para alguns bancos)
DV_Conta_Corrente= "5" 'digito da conta (não é necessário para alguns bancos)
'Não mexer daqui pra baixo
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open Application("conexao")
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
strQ = "SELECT * FROM clientes Where id = " & Session("id_cliente")
objRS.Open strQ, objCon, , , &H0001
'Monta dados do sacado
if Len(objRS("cpf")) = 11 Then
CPFSacado = Cript(objRS("cpf"))
Else
CPFSacado = Cript(objRS("cnpj"))
End If
nome_sacado = objRS("nome") & " " & objRS("sobrenome") & " - " & CPFSacado
endereco_sacado = objRS("endereco") & ", " & objRS("numero") & ", " & objRS("complemento")
x109 = nome_sacado
x70 = endereco_sacado
x79 = objRS("bairro")
x74 = objRS("cep")
x67 = objRS("cidade")
x28 = objRS("estado")
x00001 = objRS("nome")
x00002 = objRS("email")
x00003 = objRS("telefone1")
x00004 = objRS("sobrenome")
x00005 = objRS("numero")
x00006 = objRS("complemento")
x00007 = objRS("bairro")
x00008 = objRS("endereco")
x00009 = objRS("cidade")
x000010 = objRS("estado")
objRS.Close
Set objRS = Nothing
DataDocumento = FormataData(Date())
DataProcessamento = FormataData(Date())
x33 = FormataData(Date()+5)
n = 0
peso_produtos = 0
total = 0
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
strQ = "SELECT * FROM pedidos Where id = " & Request("id")
objRS.Open strQ, objCon, , , &H0001
Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
XMLDoc.loadXML objRS("produtos")
Set XMLItems = XMLDoc.documentElement
texto = ""
texto = texto &"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
texto = texto & "<HTML><HEAD>"
texto = texto & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"
texto = texto & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>"
texto = texto & "<BODY><FONT face=Arial size=2>"
texto1 = texto1 & "Referente ao pedido Nº " & Right("000000"&objRS("id"),6) & ", efetuado em nossa loja no dia " & FormataData(objRS("data")) & " ás " & FormataHora(objRS("data")) & "."
For Each item in XMLItems.childNodes
sub_total = ccur(item.attributes.getNamedItem("valor").text) * ccur(item.text)
total = total + sub_total
n = n + 1
texto2 = texto2 & "" & item.text & ""
Next
ComandoSQL = "SELECT * FROM vale_descontos WHERE pedido = " & Request("id") & " AND cliente = " & Session("id_cliente")
Set objRS_desconto = Server.CreateObject("ADODB.Recordset")
objRS_desconto.CursorLocation = 2
objRS_desconto.CursorType = 0
objRS_desconto.LockType = 1
objRS_desconto.Open ComandoSQL, objCon,,, &H0001
If Not objRS_desconto.EOF Then
vale_desconto = objRS_desconto("valor_desconto")
Else
vale_desconto = 0
End If
objRS_desconto.Close
Set objRS_desconto = Nothing
total = ccur(total)-ccur(vale_desconto)
'Inclui a uma variavel texto o total da operação FORMATADA PELA FUNCAO FormataValor - RENAN
texto3 = texto3 &""& FormataValor( ( total*objRS("cotacao_dia") ) + ccur( objRS("valor_frete") ) ) &""
texto = texto & "</tr>"
If objRS("cotacao_dia") <> "" Then
If Application("te_moeda_pagamento_cotacao") <> "" Then
If Ccur(objRS("cotacao_dia")) > 0 AND Ccur(Application("te_moeda_pagamento_cotacao")) > 0 Then
diferenca = ccur(objRS("cotacao_dia")) / ccur(Application("te_moeda_pagamento_cotacao"))
Else
diferenca = 1
End If
Else
If Ccur(objRS("cotacao_dia")) > 0 Then
diferenca = ccur(objRS("cotacao_dia"))
Else
diferenca = 1
End If
End If
total = total * ( diferenca )
Else
If Application("te_moeda_pagamento_cotacao") <> "" Then
If Ccur(Application("te_moeda_pagamento_cotacao")) > 0 Then
diferenca = ccur(Application("te_moeda_pagamento_cotacao"))
total = total / ( diferenca )
End If
End If
End If
texto = texto & "</table>"
texto = texto & "</FONT></BODY>"
texto = texto & "</HTML>"
If Application("te_descriminar_boleto") = False Then
texto = ""
texto = texto &"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
texto = texto & "<HTML><HEAD>"
texto = texto & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"
texto = texto & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>"
texto = texto & "<BODY><FONT face=Arial size=2>"
texto = texto & "Referente ao pedido Nº " & Right("000000"&objRS("id"),6) & ", efetuado em nossa loja no dia " & FormataData(objRS("data")) & " ás " & FormataHora(objRS("data")) & ".<br><br>"
texto = texto & "</FONT></BODY>"
texto = texto & "</HTML>"
End If
numero = Request("id")
If len(numero) < 7 Then
For i = 1 to (7-len(numero))
numero = "0" & numero
Next
End If
Response.Write(id)
'Monta dados do documento de cobrança
x101 = (ccur(total)*objRS("cotacao_dia"))+ccur(objRS("valor_frete"))
x81 = numero
x89 = x81
x12= "Não receber após vencimento."
x20= texto
x48= " "
x21= " "
x1= " "
x80= "Não receber após vencimento."
x171= texto1
x1711= texto2
x1712= texto3
x130= " "
x97= " "
x73= " "
x136= cedente
x49 = CNPJ
x10 = carteira
x154 = convenio
x83 = agencia
x121 = DV_agencia
x64 = Conta_corrente
x72 = DV_Conta_Corrente
x163="" ' Uso do Banco
x98="" ' Quantidade
x34= "R$" ' Especie
x174= "N" ' Aceite
x128 = "341" ' Banco
x19 = "9" ' Moeda
x160="R$" ' Especie 2
objRS.Close
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
Function x32(x126, x13)
Dim x51, x27, x122, x150, x151, cnum
x126 = RTrim(LTrim(x126))
For x150 = 1 To Len(x126)
x151 = Mid(x126, x150, 1)
If IsNumeric(x151) Then
cnum = cnum & x151
End If
Next
x126 = cnum
x122 = "0000000000000000000000000000": x51 = CInt(x51)
If Len(x126) < x13 Then
x51 = Abs(x13) - Abs(Len(x126)): x27 = Mid(x122, 1, x51) & CStr(x126)
x32 = x27
ElseIf Len(x126) > x13 Then
x32 = Right(x126, x13)
Else
x32 = x126
End If
End Function
Function x16(x15, x36, x94)
Dim x87, x69, x45
x45 = x36 + 1
x87 = ""
Do
If IsNumeric(Mid(x15, (x45), 1)) Then
x87 = x87 & Mid(x15, (x45), 1)
x45 = x45 + 1
End If
Loop While IsNumeric(Mid(x15, (x45), 1))
For x69 = 1 To x87
x94 = x94 & (x91(53))
Next
x36 = x36 + 2
x16 = x94
End Function
Function x14(x15)
Dim x36, x78, x60, x94
x94 = ""
For x36 = 1 To Len(x15)
x78 = 0
If Mid(x15, (x36), 1) = "¹" Then
x94 = x16(x15, x36, x94)
x78 = 0
End If
x78 = InStr(1, x135, Mid(x15, (x36), 1), vbBinaryCompare)
If x78 > 0 Then
If x78 <= 113 Then
x94 = x94 & (x91(x78 + 1))
Else
x94 = x94 & (x91(1))
End If
End If
Next
x14 = x94 : response.write x14
End Function
Function x23(x15)
For x18 = 1 To Len(x15) Step 3
x78 = 0 : x78 = Mid(x15, (x18), 3) : x94 = x94 & x91(x78)
Next
x23 = x94
End Function
Function x31(x36)
Dim x59, x30, x173, x68, x82, x120, x113
x68 = 2
For x59 = 1 To 43
x113 = Mid(Right(x36, x59), 1, 1)
If x68 > 9 Then
x68 = 2: x30 = 0
End If
x30 = x113 * x68: x173 = x173 + x30: x68 = x68 + 1
Next
x82 = x173 Mod 11
x120 = 11 - x82
If x120 = 0 Or x120 = 1 Or x120 > 9 Then
x31 = 1
Else
x31 = x120
End If
End Function
Function x102(x124)
Dim x59, x30, x173, x68, x82, x25
If Not IsNumeric(x124) Then
x102 = ""
Exit Function
End If
x68 = 2
For x59 = Len(x124) To 1 Step -1
x30 = CInt(Mid(x124, x59, 1)) * x68
If x30 > 9 Then
x30 = CInt(Left(x30, 1) + CInt(Right(x30, 1)))
End If
x173 = x173 + x30
If x68 = 2 Then
x68 = 1
Else
x68 = 2
End If
Next
x25 = (x173 / 10) * -1: x25 = Int([x25]) * -1: x25 = x25 * 10
x82 = x25 - x173: x102 = x82
End Function
Function x134(x124)
Dim x59, x30, x173, x68, x82, x170
If Not IsNumeric(x124) Then
x134 = ""
Exit Function
End If
x68 = 2
For x59 = Len(x124) To 1 Step -1
x30 = Mid(x124, x59, 1) * x68: x173 = x173 + x30
If x68 > 7 Then
x68 = 2
Else
x68 = x68 + 1
End If
If x68 = 8 Then x68 = 2
Next
x82 = x173 Mod 11
x134 = 11 - x82
If x82 = 1 Then
x134 = "P"
ElseIf x82 = 0 Then
x134 = "0"
End If
End Function
Function x77(x36, x66, x92, x142)
Dim x112, x55, x42, x65, x105, x87, x69, x45
x112 = Left(x36, 9): x55 = Mid(x36, 10, 10): x42 = Right(x36, 10)
x105 = CCur(x142): x65 = x32(x105, 10)
x87 = x102(x112): x69 = x102(x55): x45 = x102(x42)
x112 = Left(x112 & x87, 5) & "." & Right(x112 & x87, 5)
x55 = Left(x55 & x69, 5) & "." & Right(x55 & x69, 6)
x42 = Left(x42 & x45, 5) & "." & Right(x42 & x45, 6)
x77 = x112 & " " & x55 & " " & x42 & " " & x66 & " " & x92 & x65
End Function
Function x17(x108, x140, x106, x142, x58)
Dim x116, x146, x75, x46
If x106 <> "" Then
x75 = CDate("7/10/1997")
x146 = DateDiff("d", x75, CDate(x106))
Else
x146 = "0000"
End If
x142 = Int(x142 * 100)
x116 = x108 & x140 & x146 & x32(x142, 10) & x58: x46 = x31(x116)
x17 = (Left(x116, 4) & x46 & Right(x116, 39))
End Function
Function x147(x108, x140, x106, x142, x58)
Dim x116, x146, x75, x46
If x106 <> "" Then
x75 = CDate("7/10/1997")
x146 = DateDiff("d", x75, CDate(x106))
Else
x146 = "0000"
End If
x142 = Int(x142 * 100): x116 = x108 & x140 & x146 & x32(x142, 10) & x58
x46 = x31(x116): x147 = x77(x108 & x140 & x58, CStr(x46), x146, x32(x142, 10))
End Function
Function x138(x143, x36)
Dim x170
x170 = x134(x32(x143, 2) & x32(x36, 11))
x138 = x32(x143, 2) & x32(x36, 11)
End Function
Function x148(x143, x36)
Dim x170
x170 = x134(x32(x143, 2) & x32(x36, 11))
x148 = x32(x143, 2) & "/" & x32(x36, 11) & "-" & x170
End Function
Function x91(x78)
x91 = Mid(x135, x78, 1)
End Function
Function x4(x15)
For x18 = 1 To Len(x15) Step 3
x78 = 0 : x78 = Mid(x15, (x18), 3) : x94 = x94 & x91(x78)
Next
x4 = x94 : response.write x4
End Function
x11= x136
x81 = x32(x81, 11)
x101 = FormatNumber((x101), 2,-2,-2,-2)
x83 = x32(x83, 4)
x121 = x32(x121, 1)
x103 = x83 & "-" & x121
x64 = x32(x64, 7)
x72 = x32(x72, 1)
x100 = x64 & "-" & x72
x127 = x103 & "/" & x100 : x119 = x138(x10, CStr(x81))
x5 = x83 & x119 & x64 & "0" : x123 = x17(x128, x19, CDate(x33), CCur(x101), x5)
x57 = x147(x128, x19, CDate(x33), CCur(x101), x5)
x104 = x148(x10, CStr(x81))
%>
</p>
</span>
<div align="center">
<style type="text/css">
<!--
.cp { font: bold 10px Arial; color: black}
.ti { font: 9px Tahoma}
.ld { font: bold 15px Arial; color: #000000}
.ct { FONT: 9px "Tahoma"; COLOR: #000033}
.cn { FONT: 9px Tahoma; COLOR: black }
.bc { font: bold 22px Arial; color: #000000 }
-->
</style>
<strong>
<font size="3" face="Arial, Helvetica, sans-serif">
<span class="Estilo3">Formas de pagamento</span>
</font>
<font color="#990000" size="3" face="Arial, Helvetica, sans-serif">
<br>
</font>
</strong>
<br>
</div>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="700" colspan="2">
<table width="750" border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="7" height="20" valign="top" bgcolor="#CCCCCC" class=ct><img height=13 src=imagens/Boletos/1.gif width=1 border=0></td>
<td width="750" height=13 valign="middle" bgcolor="#CCCCCC" class=ct><strong class="titulos_inicio">Comprador:</strong></td>
</tr>
<tr>
<td width="7" height="12" valign="top" class="cp"><img height="12" src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="12" valign="top" class="cp"><%=x109 %> <br><br></td>
</tr>
</tbody>
</table>
<table width="750" border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="7" height="20" valign="top" bgcolor="#CCCCCC" class=ct><img height=13 src=imagens/Boletos/1.gif width=1 border=0></td>
<td width="750" height=13 valign="middle" bgcolor="#CCCCCC" class=ct><strong class="titulos_inicio">Endereço de entrega:</strong></td>
</tr>
<tr>
<td width="7" height="12" valign="top" class="cp"><img height="12" src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="12" valign="top" class="cp"><%=x70 & " - " & x79 %><br> <%= x74 & " - " & x67 & " - " & x28 %><br> <br></td>
</tr>
</tbody>
</table>
<table width="750" border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="7" height="20" valign="top" bgcolor="#CCCCCC" class=ct><img height=13 src=imagens/Boletos/1.gif width=1 border=0></td>
<td width="750" height=13 valign="middle" bgcolor="#CCCCCC" class=ct><strong class="titulos_inicio">Pedido:</strong></td>
</tr>
<tr>
<td width="7" height="12" valign="top" class="cp"><img height="12" src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="12" valign="top" class="cp"><%response.write x80 & "<br>" : response.write x171 & "<br>" response.write x130 & "<br>" : response.write x97 & "<br>" : response.write x73%> <br><br> </td>
</tr>
</tbody>
</table>
<table width="100%" border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="7" height=18 valign="top" bgcolor="#CCCCCC" class=ct><img height=13 src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="20" valign="middle" bgcolor="#CCCCCC" class=ct><strong class="titulos_inicio"> Formas de pagamento:</strong></td>
</tr>
<tr>
<td width="7" height="12" rowspan="6" valign="top" class="cp"><img height="12" src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="12" valign="top" class="cp">
<br>
<strong>
<font color="#003366" size="2" face="Arial, Helvetica, sans-serif">
Depósito ou transferência bancária
</font>
</strong>
<br>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="53"><div align="center"><img src="http://www.spaacesso...if"></div></td>
<td><div align="center"><img src="http://www.spaacesso...if"></div></td>
<td><div align="center"><img src="http://www.spaacesso...if"></div></td>
</tr>
<tr>
<td height="53">
<span class="barra_busca">
<strong>Bradesco:</strong><br>
<strong>Agência:</strong>
2497-0<br>
<strong>Conta Corrente:</strong>
6692-3
</span>
<br>
<span class="barra_busca">
<strong>Nome:</strong>
Francisco de Paulo Alves da Silva
</span>
<br>
<span class="barra_busca">
<strong>CPF:</strong>
269460648-28
</span>
<br>
<span class="barra_busca">
<strong>Valor: R$ </strong>
<span class="Estilo6">
<%=x1712 %>
</span>
</span>
<BR>
</td>
<td>
<span class="barra_busca">
<strong>Banco do Brasil:</strong><br>
<strong>Agência:</strong> 1810-4<br>
<strong>Conta Corrente:</strong> 20955-4
</span><br>
<span class="barra_busca">
<strong>Nome:</strong>
Francisco de Paulo Alves da Silva
</span><br>
<span class="barra_busca">
<strong>CPF:</strong>
269460648-28
</span>
<br>
<span class="barra_busca">
<strong>Valor: R$ </strong>
<span class="Estilo6"><%=x1712 %></span>
</span>
<br>
</td>
<td>
<span class="barra_busca">
<strong>Itaú:<br> Agência:</strong>
6996<br>
<strong>Conta Corrente:</strong>
02709-7<br>
<strong>Nome:</strong>
Francisco de Paulo Alves da Silva<br>
<strong>CPF:</strong>
269460648-28
</span>
<br>
<span class="barra_busca">
<strong>Valor: R$ </strong>
<span class="Estilo6"><%=x1712 %></span>
</span>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height=0 valign="top" class="cp"> </td>
</tr>
<tr>
<td height=0 valign="top" class="cp"><div align="center"><a href="http://www.spaacesso...o.asp?id="><img src="http://www.spaacesso...e_imprimir.gif" width="53" height="40" border="0"></a></div></td>
</tr>
<tr>
<td valign="top" class="cp"> </td>
</tr>
<tr>
<td height=2 valign="top" class="cp"><hr></td>
</tr>
<tr>
<td height=3 valign="top" class="cp">
<br>
<strong>
<font color="#003366" size="2" face="Arial, Helvetica, sans-serif">
Sistema PagSeguro UOL
</font>
</strong>
<br><br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="26"><div align="center"><img src="http://www.spaacesso...if"></div></td>
</tr>
<tr>
<td height="27"> </td>
</tr>
<tr>
<td height="53">
<div align="center">
<span class="barra_busca">
<strong>Valor: R$ </strong>
<span class="Estilo6"><%=x1712 %></span>
</span>
</div>
<form action="https://pagseguro.uo.../webpagto.aspx" method="post">
<div align="center">
<font Class="campo">
<input type="hidden" name="email_cobranca" value="contato@spaacessorios.com.br" />
<font class=campo>
<font class="campo">
<input type="hidden" name="tipo" value="CP" />
</font>
<font>
<input type="hidden" name="moeda" value="BRL" />
<input type="hidden" name="item_id_1" value="1" />
<input type="hidden" name="item_descr_1" value="<%=x171 %>" />
<input type="hidden" name="item_quant_1" value="1" />
<input type="hidden" name="item_valor_1" value="<%=x1712 %>" />
<input type="hidden" name="cliente_nome" value="<%=x00001 %> <%=x00004 %>" />
<input type="hidden" name="cliente_cep" value="<%= x74 %>" />
<input type="hidden" name="cliente_end" value="<%=x00008 %>" />
<input type="hidden" name="cliente_num" value="<%=x00005 %>" />
<input type="hidden" name="cliente_bairro" value="<%=x00007 %>" />
<input type="hidden" name="cliente_cidade" value="<%=x00009 %>" />
<input type="hidden" name="cliente_uf" value="<%=x000010 %>" />
<input type="hidden" name="cliente_compl" value="<%=x00006 %>" />
<input type="hidden" name="cliente_pais" value="BRA" />
<input type="hidden" name="cliente_ddd" /> <!-- FALTA O VALUE - RENAN -->
<input type="hidden" name="cliente_tel" value="<%=x00003 %>" />
<input type="hidden" name="cliente_email" value="<%=x00002 %>" />
</font>
<input type="submit" name="Submit" value="Clique aqui para efetuar o pagamento" style="width: 250px;" />
</div>
</form>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</div>
</div>
</body>
</html> <!-- INCLUIDO PQ NÂO TEM O FECHAMENTO DO MESMO FORA DO CONDICIONAL "IF" - RENAN -->
<%
Else
%>
<html>
<head>
<title>Achei Oferta</title>
<link href="estilos/index.css" rel="stylesheet" type="text/css">
<link href="estilos/paginas_caixa_cadastro_pedidos.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="topo.asp"-->
<body leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0">
<div align="center">
<br>
<table width="781" border="0" cellspacing="3" class="tabelas" align="center">
<tr class="texto">
<td class="texto"> <span class="titulos_inicio">Atenção!</span> </td>
</tr>
<tr class="texto">
<td width="50%" class="texto"> Para sua maior segurança, você precisa estar logado em nosso site <br>
para poder visualizar seu boleto de pagamento. <br>
<br>
<strong><a href="login_pedidos.asp" class="texto">Clique aqui</a></strong> para efetuar login<br>
</td>
</tr>
<tr class="texto">
<td class="texto"> </td>
</tr>
<tr class="texto">
<td class="texto"> </td>
</tr>
</table>
</div>
</body>
</html>
<br><br>
<!--#include file="rodape.asp"-->
<%
End If
Function Cript(texto)
Dim vCript
vCript = ""
chave = Application("te_chave")
For i = 1 To Len(texto)
If vCript = "" Or i > Len(chave) Then x = 1 Else x = x + 1
vCript = vCript & Chr(255 - (Asc(Mid(texto, i, 1))) + Int(Mid(chave,x,1)) )
Next
Cript = vCript
End Function
%>
[/codebox]
A sintaxe está correta! Agora o que realmente está me deixando com a pulga atrás da orelha é o "FormataValor".
Essa função está incluída no "funcoes.asp" ?
Caso não inclua a mesma, ou retire da linha o chamado dela.
Procure por RENAN no código, tem algumas considerações.
[codebox]
<%
If Session("id_cliente") <> "" Then
%>
<!--#include file="funcoes.asp"-->
<html>
<head>
<title><%=Application("te_titulo_browser")%></title>
<link href="estilos/index.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.Estilo3 {color: #003366}
.Estilo6 {color: #FF0000}
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<div align="center">
<div align="center">
<span class="cp">
<p>
<%
'Enumeradores
feeSMTPBoletoHTML = 0
feeSMTPMensagemBoletoHTMLAnexo = 1
feeSMTPMensagemBoletoPDFAnexo = 2
feeSMTPMensagemLinhaDigitavelURLCobreBemECommerce = 3
feeSMTPMensagemURLCobreBemECommerce = 4
feeSMTPMensagemLinhaDigitavel = 5
feeOutlookBoletoHTML = 6
feeOutlookMensagemBoletoHTMLAnexo = 7
feeOutlookMensagemBoletoPDFAnexo = 8
feeOutlookMensagemLinhaDigitavelURLCobreBemECommerce = 9
feeOutlookMensagemURLCobreBemECommerce = 10
feeOutlookMensagemLinhaDigitavel = 11
scpExecutar = 0
scpOK = 1
scpInvalido = 2
scpErro = 3
'Prencha aqui os dados fixos nao mexa no resto
cedente = "Nome do Cedente" 'Geralmente é o nome da loja e o nome do cedente no banco
CNPJ= "000.000.000/0001-00" 'CNPJ ou CPF
carteira= "CNR" 'código da carteira
convenio= "000000" 'numero do seu convenio (não é necessário para alguns bancos)
agencia = "0278" 'agencia
DV_agencia= "0" 'digito da agencia (não é necessário para alguns bancos)
Conta_Corrente= "55304" 'conta (não é necessário para alguns bancos)
DV_Conta_Corrente= "5" 'digito da conta (não é necessário para alguns bancos)
'Não mexer daqui pra baixo
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open Application("conexao")
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
strQ = "SELECT * FROM clientes Where id = " & Session("id_cliente")
objRS.Open strQ, objCon, , , &H0001
'Monta dados do sacado
if Len(objRS("cpf")) = 11 Then
CPFSacado = Cript(objRS("cpf"))
Else
CPFSacado = Cript(objRS("cnpj"))
End If
nome_sacado = objRS("nome") & " " & objRS("sobrenome") & " - " & CPFSacado
endereco_sacado = objRS("endereco") & ", " & objRS("numero") & ", " & objRS("complemento")
x109 = nome_sacado
x70 = endereco_sacado
x79 = objRS("bairro")
x74 = objRS("cep")
x67 = objRS("cidade")
x28 = objRS("estado")
x00001 = objRS("nome")
x00002 = objRS("email")
x00003 = objRS("telefone1")
x00004 = objRS("sobrenome")
x00005 = objRS("numero")
x00006 = objRS("complemento")
x00007 = objRS("bairro")
x00008 = objRS("endereco")
x00009 = objRS("cidade")
x000010 = objRS("estado")
objRS.Close
Set objRS = Nothing
DataDocumento = FormataData(Date())
DataProcessamento = FormataData(Date())
x33 = FormataData(Date()+5)
n = 0
peso_produtos = 0
total = 0
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
strQ = "SELECT * FROM pedidos Where id = " & Request("id")
objRS.Open strQ, objCon, , , &H0001
Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
XMLDoc.loadXML objRS("produtos")
Set XMLItems = XMLDoc.documentElement
texto = ""
texto = texto &"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
texto = texto & "<HTML><HEAD>"
texto = texto & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"
texto = texto & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>"
texto = texto & "<BODY><FONT face=Arial size=2>"
texto1 = texto1 & "Referente ao pedido Nº " & Right("000000"&objRS("id"),6) & ", efetuado em nossa loja no dia " & FormataData(objRS("data")) & " ás " & FormataHora(objRS("data")) & "."
For Each item in XMLItems.childNodes
sub_total = ccur(item.attributes.getNamedItem("valor").text) * ccur(item.text)
total = total + sub_total
n = n + 1
texto2 = texto2 & "" & item.text & ""
Next
ComandoSQL = "SELECT * FROM vale_descontos WHERE pedido = " & Request("id") & " AND cliente = " & Session("id_cliente")
Set objRS_desconto = Server.CreateObject("ADODB.Recordset")
objRS_desconto.CursorLocation = 2
objRS_desconto.CursorType = 0
objRS_desconto.LockType = 1
objRS_desconto.Open ComandoSQL, objCon,,, &H0001
If Not objRS_desconto.EOF Then
vale_desconto = objRS_desconto("valor_desconto")
Else
vale_desconto = 0
End If
objRS_desconto.Close
Set objRS_desconto = Nothing
total = ccur(total)-ccur(vale_desconto)
'Inclui a uma variavel texto o total da operação FORMATADA PELA FUNCAO FormataValor - RENAN
texto3 = texto3 &""& FormataValor( ( total*objRS("cotacao_dia") ) + ccur( objRS("valor_frete") ) ) &""
texto = texto & "</tr>"
If objRS("cotacao_dia") <> "" Then
If Application("te_moeda_pagamento_cotacao") <> "" Then
If Ccur(objRS("cotacao_dia")) > 0 AND Ccur(Application("te_moeda_pagamento_cotacao")) > 0 Then
diferenca = ccur(objRS("cotacao_dia")) / ccur(Application("te_moeda_pagamento_cotacao"))
Else
diferenca = 1
End If
Else
If Ccur(objRS("cotacao_dia")) > 0 Then
diferenca = ccur(objRS("cotacao_dia"))
Else
diferenca = 1
End If
End If
total = total * ( diferenca )
Else
If Application("te_moeda_pagamento_cotacao") <> "" Then
If Ccur(Application("te_moeda_pagamento_cotacao")) > 0 Then
diferenca = ccur(Application("te_moeda_pagamento_cotacao"))
total = total / ( diferenca )
End If
End If
End If
texto = texto & "</table>"
texto = texto & "</FONT></BODY>"
texto = texto & "</HTML>"
If Application("te_descriminar_boleto") = False Then
texto = ""
texto = texto &"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
texto = texto & "<HTML><HEAD>"
texto = texto & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"
texto = texto & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>"
texto = texto & "<BODY><FONT face=Arial size=2>"
texto = texto & "Referente ao pedido Nº " & Right("000000"&objRS("id"),6) & ", efetuado em nossa loja no dia " & FormataData(objRS("data")) & " ás " & FormataHora(objRS("data")) & ".<br><br>"
texto = texto & "</FONT></BODY>"
texto = texto & "</HTML>"
End If
numero = Request("id")
If len(numero) < 7 Then
For i = 1 to (7-len(numero))
numero = "0" & numero
Next
End If
Response.Write(id)
'Monta dados do documento de cobrança
x101 = (ccur(total)*objRS("cotacao_dia"))+ccur(objRS("valor_frete"))
x81 = numero
x89 = x81
x12= "Não receber após vencimento."
x20= texto
x48= " "
x21= " "
x1= " "
x80= "Não receber após vencimento."
x171= texto1
x1711= texto2
x1712= texto3
x130= " "
x97= " "
x73= " "
x136= cedente
x49 = CNPJ
x10 = carteira
x154 = convenio
x83 = agencia
x121 = DV_agencia
x64 = Conta_corrente
x72 = DV_Conta_Corrente
x163="" ' Uso do Banco
x98="" ' Quantidade
x34= "R$" ' Especie
x174= "N" ' Aceite
x128 = "341" ' Banco
x19 = "9" ' Moeda
x160="R$" ' Especie 2
objRS.Close
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
Function x32(x126, x13)
Dim x51, x27, x122, x150, x151, cnum
x126 = RTrim(LTrim(x126))
For x150 = 1 To Len(x126)
x151 = Mid(x126, x150, 1)
If IsNumeric(x151) Then
cnum = cnum & x151
End If
Next
x126 = cnum
x122 = "0000000000000000000000000000": x51 = CInt(x51)
If Len(x126) < x13 Then
x51 = Abs(x13) - Abs(Len(x126)): x27 = Mid(x122, 1, x51) & CStr(x126)
x32 = x27
ElseIf Len(x126) > x13 Then
x32 = Right(x126, x13)
Else
x32 = x126
End If
End Function
Function x16(x15, x36, x94)
Dim x87, x69, x45
x45 = x36 + 1
x87 = ""
Do
If IsNumeric(Mid(x15, (x45), 1)) Then
x87 = x87 & Mid(x15, (x45), 1)
x45 = x45 + 1
End If
Loop While IsNumeric(Mid(x15, (x45), 1))
For x69 = 1 To x87
x94 = x94 & (x91(53))
Next
x36 = x36 + 2
x16 = x94
End Function
Function x14(x15)
Dim x36, x78, x60, x94
x94 = ""
For x36 = 1 To Len(x15)
x78 = 0
If Mid(x15, (x36), 1) = "¹" Then
x94 = x16(x15, x36, x94)
x78 = 0
End If
x78 = InStr(1, x135, Mid(x15, (x36), 1), vbBinaryCompare)
If x78 > 0 Then
If x78 <= 113 Then
x94 = x94 & (x91(x78 + 1))
Else
x94 = x94 & (x91(1))
End If
End If
Next
x14 = x94 : response.write x14
End Function
Function x23(x15)
For x18 = 1 To Len(x15) Step 3
x78 = 0 : x78 = Mid(x15, (x18), 3) : x94 = x94 & x91(x78)
Next
x23 = x94
End Function
Function x31(x36)
Dim x59, x30, x173, x68, x82, x120, x113
x68 = 2
For x59 = 1 To 43
x113 = Mid(Right(x36, x59), 1, 1)
If x68 > 9 Then
x68 = 2: x30 = 0
End If
x30 = x113 * x68: x173 = x173 + x30: x68 = x68 + 1
Next
x82 = x173 Mod 11
x120 = 11 - x82
If x120 = 0 Or x120 = 1 Or x120 > 9 Then
x31 = 1
Else
x31 = x120
End If
End Function
Function x102(x124)
Dim x59, x30, x173, x68, x82, x25
If Not IsNumeric(x124) Then
x102 = ""
Exit Function
End If
x68 = 2
For x59 = Len(x124) To 1 Step -1
x30 = CInt(Mid(x124, x59, 1)) * x68
If x30 > 9 Then
x30 = CInt(Left(x30, 1) + CInt(Right(x30, 1)))
End If
x173 = x173 + x30
If x68 = 2 Then
x68 = 1
Else
x68 = 2
End If
Next
x25 = (x173 / 10) * -1: x25 = Int([x25]) * -1: x25 = x25 * 10
x82 = x25 - x173: x102 = x82
End Function
Function x134(x124)
Dim x59, x30, x173, x68, x82, x170
If Not IsNumeric(x124) Then
x134 = ""
Exit Function
End If
x68 = 2
For x59 = Len(x124) To 1 Step -1
x30 = Mid(x124, x59, 1) * x68: x173 = x173 + x30
If x68 > 7 Then
x68 = 2
Else
x68 = x68 + 1
End If
If x68 = 8 Then x68 = 2
Next
x82 = x173 Mod 11
x134 = 11 - x82
If x82 = 1 Then
x134 = "P"
ElseIf x82 = 0 Then
x134 = "0"
End If
End Function
Function x77(x36, x66, x92, x142)
Dim x112, x55, x42, x65, x105, x87, x69, x45
x112 = Left(x36, 9): x55 = Mid(x36, 10, 10): x42 = Right(x36, 10)
x105 = CCur(x142): x65 = x32(x105, 10)
x87 = x102(x112): x69 = x102(x55): x45 = x102(x42)
x112 = Left(x112 & x87, 5) & "." & Right(x112 & x87, 5)
x55 = Left(x55 & x69, 5) & "." & Right(x55 & x69, 6)
x42 = Left(x42 & x45, 5) & "." & Right(x42 & x45, 6)
x77 = x112 & " " & x55 & " " & x42 & " " & x66 & " " & x92 & x65
End Function
Function x17(x108, x140, x106, x142, x58)
Dim x116, x146, x75, x46
If x106 <> "" Then
x75 = CDate("7/10/1997")
x146 = DateDiff("d", x75, CDate(x106))
Else
x146 = "0000"
End If
x142 = Int(x142 * 100)
x116 = x108 & x140 & x146 & x32(x142, 10) & x58: x46 = x31(x116)
x17 = (Left(x116, 4) & x46 & Right(x116, 39))
End Function
Function x147(x108, x140, x106, x142, x58)
Dim x116, x146, x75, x46
If x106 <> "" Then
x75 = CDate("7/10/1997")
x146 = DateDiff("d", x75, CDate(x106))
Else
x146 = "0000"
End If
x142 = Int(x142 * 100): x116 = x108 & x140 & x146 & x32(x142, 10) & x58
x46 = x31(x116): x147 = x77(x108 & x140 & x58, CStr(x46), x146, x32(x142, 10))
End Function
Function x138(x143, x36)
Dim x170
x170 = x134(x32(x143, 2) & x32(x36, 11))
x138 = x32(x143, 2) & x32(x36, 11)
End Function
Function x148(x143, x36)
Dim x170
x170 = x134(x32(x143, 2) & x32(x36, 11))
x148 = x32(x143, 2) & "/" & x32(x36, 11) & "-" & x170
End Function
Function x91(x78)
x91 = Mid(x135, x78, 1)
End Function
Function x4(x15)
For x18 = 1 To Len(x15) Step 3
x78 = 0 : x78 = Mid(x15, (x18), 3) : x94 = x94 & x91(x78)
Next
x4 = x94 : response.write x4
End Function
x11= x136
x81 = x32(x81, 11)
x101 = FormatNumber((x101), 2,-2,-2,-2)
x83 = x32(x83, 4)
x121 = x32(x121, 1)
x103 = x83 & "-" & x121
x64 = x32(x64, 7)
x72 = x32(x72, 1)
x100 = x64 & "-" & x72
x127 = x103 & "/" & x100 : x119 = x138(x10, CStr(x81))
x5 = x83 & x119 & x64 & "0" : x123 = x17(x128, x19, CDate(x33), CCur(x101), x5)
x57 = x147(x128, x19, CDate(x33), CCur(x101), x5)
x104 = x148(x10, CStr(x81))
%>
</p>
</span>
<div align="center">
<style type="text/css">
<!--
.cp { font: bold 10px Arial; color: black}
.ti { font: 9px Tahoma}
.ld { font: bold 15px Arial; color: #000000}
.ct { FONT: 9px "Tahoma"; COLOR: #000033}
.cn { FONT: 9px Tahoma; COLOR: black }
.bc { font: bold 22px Arial; color: #000000 }
-->
</style>
<strong>
<font size="3" face="Arial, Helvetica, sans-serif">
<span class="Estilo3">Formas de pagamento</span>
</font>
<font color="#990000" size="3" face="Arial, Helvetica, sans-serif">
<br>
</font>
</strong>
<br>
</div>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="700" colspan="2">
<table width="750" border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="7" height="20" valign="top" bgcolor="#CCCCCC" class=ct><img height=13 src=imagens/Boletos/1.gif width=1 border=0></td>
<td width="750" height=13 valign="middle" bgcolor="#CCCCCC" class=ct><strong class="titulos_inicio">Comprador:</strong></td>
</tr>
<tr>
<td width="7" height="12" valign="top" class="cp"><img height="12" src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="12" valign="top" class="cp"><%=x109 %> <br><br></td>
</tr>
</tbody>
</table>
<table width="750" border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="7" height="20" valign="top" bgcolor="#CCCCCC" class=ct><img height=13 src=imagens/Boletos/1.gif width=1 border=0></td>
<td width="750" height=13 valign="middle" bgcolor="#CCCCCC" class=ct><strong class="titulos_inicio">Endereço de entrega:</strong></td>
</tr>
<tr>
<td width="7" height="12" valign="top" class="cp"><img height="12" src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="12" valign="top" class="cp"><%=x70 & " - " & x79 %><br> <%= x74 & " - " & x67 & " - " & x28 %><br> <br></td>
</tr>
</tbody>
</table>
<table width="750" border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="7" height="20" valign="top" bgcolor="#CCCCCC" class=ct><img height=13 src=imagens/Boletos/1.gif width=1 border=0></td>
<td width="750" height=13 valign="middle" bgcolor="#CCCCCC" class=ct><strong class="titulos_inicio">Pedido:</strong></td>
</tr>
<tr>
<td width="7" height="12" valign="top" class="cp"><img height="12" src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="12" valign="top" class="cp"><%response.write x80 & "<br>" : response.write x171 & "<br>" response.write x130 & "<br>" : response.write x97 & "<br>" : response.write x73%> <br><br> </td>
</tr>
</tbody>
</table>
<table width="100%" border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="7" height=18 valign="top" bgcolor="#CCCCCC" class=ct><img height=13 src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="20" valign="middle" bgcolor="#CCCCCC" class=ct><strong class="titulos_inicio"> Formas de pagamento:</strong></td>
</tr>
<tr>
<td width="7" height="12" rowspan="6" valign="top" class="cp"><img height="12" src=imagens/Boletos/1.gif width=1 border=0></td>
<td height="12" valign="top" class="cp">
<br>
<strong>
<font color="#003366" size="2" face="Arial, Helvetica, sans-serif">
Depósito ou transferência bancária
</font>
</strong>
<br>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="53"><div align="center"><img src="http://www.spaacesso...if"></div></td>
<td><div align="center"><img src="http://www.spaacesso...if"></div></td>
<td><div align="center"><img src="http://www.spaacesso...if"></div></td>
</tr>
<tr>
<td height="53">
<span class="barra_busca">
<strong>Bradesco:</strong><br>
<strong>Agência:</strong>
2497-0<br>
<strong>Conta Corrente:</strong>
6692-3
</span>
<br>
<span class="barra_busca">
<strong>Nome:</strong>
Francisco de Paulo Alves da Silva
</span>
<br>
<span class="barra_busca">
<strong>CPF:</strong>
269460648-28
</span>
<br>
<span class="barra_busca">
<strong>Valor: R$ </strong>
<span class="Estilo6">
<%=x1712 %>
</span>
</span>
<BR>
</td>
<td>
<span class="barra_busca">
<strong>Banco do Brasil:</strong><br>
<strong>Agência:</strong> 1810-4<br>
<strong>Conta Corrente:</strong> 20955-4
</span><br>
<span class="barra_busca">
<strong>Nome:</strong>
Francisco de Paulo Alves da Silva
</span><br>
<span class="barra_busca">
<strong>CPF:</strong>
269460648-28
</span>
<br>
<span class="barra_busca">
<strong>Valor: R$ </strong>
<span class="Estilo6"><%=x1712 %></span>
</span>
<br>
</td>
<td>
<span class="barra_busca">
<strong>Itaú:<br> Agência:</strong>
6996<br>
<strong>Conta Corrente:</strong>
02709-7<br>
<strong>Nome:</strong>
Francisco de Paulo Alves da Silva<br>
<strong>CPF:</strong>
269460648-28
</span>
<br>
<span class="barra_busca">
<strong>Valor: R$ </strong>
<span class="Estilo6"><%=x1712 %></span>
</span>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height=0 valign="top" class="cp"> </td>
</tr>
<tr>
<td height=0 valign="top" class="cp"><div align="center"><a href="http://www.spaacesso...o.asp?id="><img src="http://www.spaacesso...e_imprimir.gif" width="53" height="40" border="0"></a></div></td>
</tr>
<tr>
<td valign="top" class="cp"> </td>
</tr>
<tr>
<td height=2 valign="top" class="cp"><hr></td>
</tr>
<tr>
<td height=3 valign="top" class="cp">
<br>
<strong>
<font color="#003366" size="2" face="Arial, Helvetica, sans-serif">
Sistema PagSeguro UOL
</font>
</strong>
<br><br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="26"><div align="center"><img src="http://www.spaacesso...if"></div></td>
</tr>
<tr>
<td height="27"> </td>
</tr>
<tr>
<td height="53">
<div align="center">
<span class="barra_busca">
<strong>Valor: R$ </strong>
<span class="Estilo6"><%=x1712 %></span>
</span>
</div>
<form action="https://pagseguro.uo.../webpagto.aspx" method="post">
<div align="center">
<font Class="campo">
<input type="hidden" name="email_cobranca" value="contato@spaacessorios.com.br" />
<font class=campo>
<font class="campo">
<input type="hidden" name="tipo" value="CP" />
</font>
<font>
<input type="hidden" name="moeda" value="BRL" />
<input type="hidden" name="item_id_1" value="1" />
<input type="hidden" name="item_descr_1" value="<%=x171 %>" />
<input type="hidden" name="item_quant_1" value="1" />
<input type="hidden" name="item_valor_1" value="<%=x1712 %>" />
<input type="hidden" name="cliente_nome" value="<%=x00001 %> <%=x00004 %>" />
<input type="hidden" name="cliente_cep" value="<%= x74 %>" />
<input type="hidden" name="cliente_end" value="<%=x00008 %>" />
<input type="hidden" name="cliente_num" value="<%=x00005 %>" />
<input type="hidden" name="cliente_bairro" value="<%=x00007 %>" />
<input type="hidden" name="cliente_cidade" value="<%=x00009 %>" />
<input type="hidden" name="cliente_uf" value="<%=x000010 %>" />
<input type="hidden" name="cliente_compl" value="<%=x00006 %>" />
<input type="hidden" name="cliente_pais" value="BRA" />
<input type="hidden" name="cliente_ddd" /> <!-- FALTA O VALUE - RENAN -->
<input type="hidden" name="cliente_tel" value="<%=x00003 %>" />
<input type="hidden" name="cliente_email" value="<%=x00002 %>" />
</font>
<input type="submit" name="Submit" value="Clique aqui para efetuar o pagamento" style="width: 250px;" />
</div>
</form>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</div>
</div>
</body>
</html> <!-- INCLUIDO PQ NÂO TEM O FECHAMENTO DO MESMO FORA DO CONDICIONAL "IF" - RENAN -->
<%
Else
%>
<html>
<head>
<title>Achei Oferta</title>
<link href="estilos/index.css" rel="stylesheet" type="text/css">
<link href="estilos/paginas_caixa_cadastro_pedidos.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="topo.asp"-->
<body leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0">
<div align="center">
<br>
<table width="781" border="0" cellspacing="3" class="tabelas" align="center">
<tr class="texto">
<td class="texto"> <span class="titulos_inicio">Atenção!</span> </td>
</tr>
<tr class="texto">
<td width="50%" class="texto"> Para sua maior segurança, você precisa estar logado em nosso site <br>
para poder visualizar seu boleto de pagamento. <br>
<br>
<strong><a href="login_pedidos.asp" class="texto">Clique aqui</a></strong> para efetuar login<br>
</td>
</tr>
<tr class="texto">
<td class="texto"> </td>
</tr>
<tr class="texto">
<td class="texto"> </td>
</tr>
</table>
</div>
</body>
</html>
<br><br>
<!--#include file="rodape.asp"-->
<%
End If
Function Cript(texto)
Dim vCript
vCript = ""
chave = Application("te_chave")
For i = 1 To Len(texto)
If vCript = "" Or i > Len(chave) Then x = 1 Else x = x + 1
vCript = vCript & Chr(255 - (Asc(Mid(texto, i, 1))) + Int(Mid(chave,x,1)) )
Next
Cript = vCript
End Function
%>
[/codebox]
Especialidade: Desenvolvimento e Banco de Dados.
Este post lhe ajudou? Agradeça:
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
