<% 'Usamos o Dynu.HTTP para ler o XML remoto Set objDynu = Server.Createobject("Dynu.HTTP") 'Abaixo atribuímos o cabeçalho objDynu.SetHeader "user-agent","DynuHTTP" objDynu.SetURL Application("URLVisanetXMLVBV") & Request.QueryString("TID") & ".xml" ResultadoVisanet = objDynu.GetURL() Set objDynu = Nothing set objFSO = Server.CreateObject("Scripting.FileSystemObject") set CriarArquivo = objFSO.CreateTextFile(Application("DiretorioResultsVBV") & Request.QueryString("TID") & ".xml") CriarArquivo.Close set CriarArquivo = nothing set EditaArquivo = objFSO.OpenTextFile(Application("DiretorioResultsVBV") & Request.QueryString("TID") & ".xml", 8) EditaArquivo.WriteLine(ResultadoVisanet) EditaArquivo.close set EditaArquivo = nothing set objFSO = nothing Set objSrvHTTP = Nothing Set objXML = Server.CreateObject("MSXML2.DOMDocument") objXML.async = False caminho = Application("DiretorioResultsVBV") & Request.QueryString("TID") & ".xml" objXML.load(caminho) If CStr(objXML.parseError.errorCode) <> "0" Then Response.Write(Application("DiretorioResultsVBV") & Request.QueryString("TID") & ".xml
") Response.Write (Application("FestrTxtErroTratXML") & "Erro>" & CStr(objXML.parseError.errorCode)) Response.end End If Set varTID=objXML.getElementsByTagName("TID") Set varLR = objXML.getElementsByTagName("LR") Set varARP = objXML.getElementsByTagName("ARP") Set varPRICE = objXML.getElementsByTagName("PRICE") Set varORDERID = objXML.getElementsByTagName("ORDERID") Set varFREE = objXML.getElementsByTagName("FREE") Set varPAN = objXML.getElementsByTagName("PAN") Set varBANK = objXML.getElementsByTagName("BANK") Set varARS = objXML.getElementsByTagName("ARS") Set varAUTHENT = objXML.getElementsByTagName("AUTHENT") TID = varTID.item(0).text session("TID") = TID LR = varLR.item(0).text session("LR") = LR ARP = varARP.item(0).text session("ARP") = ARP PRICE = varPRICE.item(0).text session("PRICE") ORDERID = varORDERID.item(0).text session("ORDERID") = ORDERID FREE = varFREE.item(0).text session("FREE") = FREE PAN = varPAN.item(0).text session("PAN") = PAN BANK = varBANK.item(0).text session("BANK") = BANK ARS = varARS.item(0).text session("ARS") = ARS AUTHENT = varAUTHENT.item(0).text session("AUTHENT") = AUTHENT Set objSrvHTTP = Nothing Session("codigo_pedido") = ORDERID If Cdbl(LR) <> Cdbl(00) And Cdbl(LR) <> Cdbl(11) Then compra = "Negada" cod_erro = LR msg_erro = ARS End If identificacao_pedido = TID If compra = "Negada" Then MSGSTATUS = "Não autorizada" MSGRET = Replace(msg_erro, "ç", "") Else If Request("tid") <> "" Then 'Atualiza dados da transação Redecard no banco de dados connStr = Application("StringConexaoODBC") Set objConnection = CreateObject("ADODB.Connection") objConnection.Open connStr Set RS_PedidoRevistaG = CreateObject("ADODB.Recordset") RS_PedidoRevistaG.CursorLocation = 3 RS_PedidoRevistaG.CursorType = 0 RS_PedidoRevistaG.LockType = 3 SQLCmd = "SELECT * FROM AssinantesRevistaG WHERE CodigoPedido=" & Session("OrderIDRecibo") RS_PedidoRevistaG.Open SQLCmd, connStr RS_PedidoRevistaG("PagtoConfirmado") = "S" RS_PedidoRevistaG("AutenticacaoVISA") = autent RS_PedidoRevistaG.Update RS_PedidoRevistaG.Close Set RS_PedidoRevistaG = Nothing Set objConnection = Nothing ' Exibe as váriaveis de retorno Response.write Application("RecTxtCodigoTrans") & ": " & session("TID") & "
" Response.write Application("RecTxtCodigoResposta") & ": " & session("LR") & "
" Response.write Application("RecTxtCodigoAutorizacao") & ": " & session("ARP") & "
" If session("ARS") <> "" Then Response.write Application("RecTxtMsgTransacao") & ": " & session("ARS") & "
" End If If session("AUTHENT") <> "" Then Response.write Application("RecTxtTipoAutent") & ": " & session("AUTHENT") & "
" End If Response.write "
" End If End If '**************************************************************************************************************** %> Revista Virtual
Como funciona:

Primeiro você escolhe o tipo de assinatura você quer fazer: 12 meses, 6 meses, 3 meses ou até mesmo comprar uma única edição. Feito isso, você marca qual ou quais edições você deseja. Pode ser edições passadas ou as que ainda vão ser lançadas. Isso mesmo... a escolha é toda sua.

Quer ver o "BAM BAM" do BBB ? então marque a edição de janeiro de 2007. Quer ter uma surpresa agradável ? então marque uma das 12 edições futuras.

Agora basta seguir em frente, escolher como quer pagar, se quer ou não parcelar e pronto! Note que você não precisa nem mesmo informar seu nome, sua privacidade e seu anonimato é garantido.

SUPER IMPORTANTE !!!

1) INFORME SEU E-MAIL CORRETAMENTE.

Após efetuar o pagamento, será enviado para o seu e-mail, a chave de desbloqueio do programa "Revista Online", sem a qual você não terá como ativar o programa, e não verá suas revistas.

2) "BAIXE" E INSTALE NO SEU COMPUTADOR O PROGRAMA "REVISTA ONLINE".

Só assim você poderá ver suas revistas virtuais. Se você quiser, "baixar" e instalar este programa agora, clique aqui.

3) O PROGRAMA SÓ FUNCIONA EM UM ÚNICO COMPUTADOR

Depois de instalado, o programa "Revista Online" só funcionará no computador em que foi ativado. você poderá, entretanto, desativá-lo de um computador e depois ativá-lo em outro sem problemas. Só não será possível ter o programa instalado e ativado em dois computadores diferentes ao mesmo tempo.

4) SUAS REVISTAS SÓ SERÃO VISUALIZADAS NO SEU COMPUTADOR

Cada assinante recebe um código que não permite que suas revistas sejam visualizadas no computador de outro assinante. Você pode até tirar back-up (Copiar) as suas revistas para guardá-las em CD por exemplo, mas elas só serão visualizadas no seu computador

5) SE FOR FORMATAR SEU COMPUTADOR DESATIVE O PROGRAMA "REVISTA ONLINE"

Antes de formatar seu computador, utilize a opção de desativar seu programa. Só assim você conseguirá instalá-lo novamente.

6) NO CASO DE DÚVIDAS OU PROBLEMAS ENTRE EM CONTATO CONOSCO.

Estaremos sempre prontos a atendê-lo da melhor maneira possível. Para entrar em contato vá até nosso site ou clique aqui.