<% session("pagamento") = Request.Form("pagamento") session("AUTHENTTYPE") = request.form("AUTHENTTYPE") session("ambiente") = Request.Form("ambiente") Tid = GerarTid("1019373900",session("pagamento")) varProd = Session("varProd") 'Descrição do Pedido varQtd = Session("varQtd") 'Quantidade varId = Session("varId") 'ID do Produto varPreco = Session("varPreco") 'Preco Unitário varValor = Session("varValor") 'Valor Total varPacote = Session("varPacote") 'Numero do Pacote varTotalFrete = Session("varTotal") 'Total com Frete varFrete = Session("varFrete") 'Valor do Frete 'TIPO DA TRANSAÇÃO Session("tipo") = "VBV" ' COLETAR DADOS DAS SESSIONS VarConsumidor = Session("Nome_Comprador") VarEmail = Session("Email_comprador") VarTel = Session("Tel_comprador") VarNome = Session("Nome") VarEndereco = Session("Endereco") VarBairro = Session("Bairro") VarCidade = Session("Cidade") VarUF = Session("Estado") VarCep = Session("Cep") VarMsg = Session("Msg") varDtEntrega = Session("DtEntrega") item = Session("varId") qty = 1 produto = Session("varProd") puni = Session("varPreco") subtotal = Session("varPreco") frete = Session("varFrete") total = subtotal+cint(frete) pedido = "Dados do consumidor:" & "
" pedido = pedido & "Nome: " & VarConsumidor & " - " & VarEmail & " - " & VarTel & "
" pedido = pedido & " " & "
" pedido = pedido & "Dados de entrega:" & "
" pedido = pedido & "Nome: " & VarNome & " - " & VarEndereco & " - " & VarBairro & " - " & VarCidade & " - " & VarUF & " - " & VarCep & "

" pedido = pedido& "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
Quant.ItemDescriçãoPreçoSub-Total:
" & qty & "" & item & "" & produto & "" & moeda(puni) & "" & moeda(subtotal) & "
" Session("order") = pedido FUNCTION Moeda(valor) if trim(valor) <> "" then Valor1= mid(valor, 1, len(valor) - 2) Decima = mid(valor, len(valor) - 1, 2) end if Moeda = Valor1 & "," & Decima END FUNCTION %> <% 'Rotina para criar um arquivo de texto por onde será passado o valor da transação. 'Importante : Para que o componente receba o valor da transação através do arquivo Txt, é necessário configurar o arquivo cfglojavisa.ini como parâmetro FILEMODE = 1 'Na linha abaixo, está sendo criado um objeto FileSystemObject, 'para permitir a criação de um diretório para os arquivos de mensagens. O valor da transação será informado ao componente através deste arquivo, 'para melhoria da segurança. Lembrando apenas que essa é uma solução para ASP. Para outras linguagens, como PHP, CGI, Coldfusion, etc, 'favor consultar a documentação da linguagem sobre criação de arquivos. ' Set fso = CreateObject("Scripting.FileSystemObject") 'Muito importante observar o endereço onde o arquivo está sendo criado. Obrigatoriamente, os arquivos devem ser direcionados 'para o diretório onde estão os componentes, no subdiretório "messages". Nas linhas abixo, verificamos se o diretório existe. Caso não exista, será criado. ' If not fso.FolderExists("https://ssl.pocos-net.com.br/paulaart/componentes_vbv") Then ' Set diretorio = fso.CreateFolder("https://ssl.pocos-net.com.br/paulaart/componentes_vbv") ' End If ' Set arquivo = fso.CreateTextFile("http://www.paulaart.com.br/lojavbv/requests/" & tid &".xml", True) ' Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho, 8, True, False) ' arquivo.WriteLine(""&total&""& session("AUTHENTTYPE") &"") ' arquivo.Close ' Set arquivo = Nothing ' Set fso = Nothing 'Declaração das variáveis Dim ObjAbreArq, ObjFso, Var_Caminho 'Atribui caminho do arquivo(txt) a variável Var_Caminho 'Lembre-se que a função Server.MapPath localiza o arquivo 'no mesmo nível de diretórios, se precisar fazer a pesquisa 'em outro nível precisará especificar. Ex: (../texto.txt) ' var_Caminho = Server.MapPath ("../componentes_vbv/requests/" & tid &".xml") var_Caminho = Server.MapPath ("componentes_vbv/requests/" & tid &".xml") 'Atribui a variável ObjFso uma instância do 'objeto criado em CreateObject("Scripting.FileSystemObject") 'Entenda que agora a variável ObjFso seja um Objeto e tenha suas 'propriedades, onde nos poderemos acessa-las. Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") 'Conforme o comentário acima utilizaremos a propriedade 'OpenTextFile (do objeto ObjFso), onde poderão ser aplicadas 'três argumentos após o nome. 'ObjFso.OpenTextFile( 'nome_do_arquivo, modo_de_abertura, cria_outro?, formato_de_abertura) 'o argumento nome_do_arquivo é o caminho físico e o nome do arquivo 'Já o argumento cria_outro? se True e o arquivo procurado não for achado 'será criados um com o nome procurado, se False e não achado, não será 'criado. O formato_de_abertura como o próprio exemplo diz, aqui se determina 'em que formato será aberto o arquivo ASCII ou Unicode, são eles: '1 = ForReading, 2 = ForWriting, 8 = ForAppending '1 = Apenas leitura, 2 = Apelas inclusão de dados sendo que o anterior 'será deletado e o atual incluído, 8 = Apenas inclui, não deletando os dados 'anteriores. Você também pode estar escrevendo, por exemplo, 'ForAppending ao invés de 8. Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho, 8, True, False) 'Escreve dentro do arquivo ObjAbreArq.Writeline(""&total&""& session("AUTHENTTYPE") &"") 'Atribuimos Nothing aos objetos para limparmos 'da memória as instâncias criadas Set ObjCaminho = Nothing Set ObjAbreArq = Nothing Set ObjFso = Nothing %> Loja de exemplo para pagamentos VISA  
"> "> "> ">