<% if InStr(Request.ServerVariables("http_user_agent"), "Chrome") then %> <% end if %> <% if InStr(Request.ServerVariables("http_user_agent"), "Chrome") then %> <% else %> <% end if %> <%////////////////////////////////// (Início) Verifica se visitante está autorizado a ver a revista //////////////////////////////////////%> <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open EW_DB_CONNECTION_STRING Set rs0 = Server.CreateObject("ADODB.Recordset") rs0.CursorLocation = 3 %> <% Dim Security Set Security = New cAdvancedSecurity %> <% If Not Security.IsLoggedIn() Then Call Security.AutoLogin() If Not Security.IsLoggedIn() Then Call Security.SaveLastUrl() Call Page_Terminate("../../revistavirtual.asp") End If n = request.querystring("n") if n="" or n=NULL then Call Page_Terminate("../../revistavirtual.asp") else 'response.write "n:"&n & ":end
" n = n - 1 'response.write "n:"&n & ":end
" n = n^0.5 'response.write "n:"&n & ":end
" n = n/42 'response.write "n:"&n & ":end
" n = n - 42 'response.write "n:"&n & ":end
" n = n^0.5 'response.write "n:"&n & ":end
" sql = "SELECT descricao FROM rv_produtos WHERE cod_produto = '"&n&"' ;" rs0.Open Sql, conn, 1, 2 edicao = rs0("descricao") '---------------------- Rv_Visitas Set rs0 = Server.CreateObject("ADODB.Recordset") rs0.CursorLocation = 3 Session("IP") = Request.ServerVariables("REMOTE_ADDR") sql = "INSERT INTO rv_visitas (Cod_Login, IP,email, Status) VALUES ('"&Session("UId")&"','"&Session("IP")&"','"&session("Uemail")&"','Leu revista "&edicao&"');" rs0.Open Sql, conn, 1, 2 '---------------------- Rv_Visitas End sql="SELECT * FROM rv_produtosautorizados WHERE cod_login = '"&Session("Uid")&"' AND (status = 'Pagamento Confirmado' OR status = 'PagamentoConfirmado' OR status = 'TransaçãoConcluída' OR status = 'Transação Concluída' OR status = 'Transação em Andamento' OR status = 'TransaçãoemAndamento' OR status = 'Assinante') AND cod_produto = '"&n&"' ;" rs0.Open Sql, conn, 1, 2 if rs0.BOF then Page_Terminate("../../revistavirtual.asp") elseif rs0.EOF then Page_Terminate("../../revistavirtual.asp") else '//////////////////////// visitante autorizado ///////////////////%> <%////////////////////////////////// (Fim) força abertura full screen page/////////////////// ///////////////////%> <% end if %> <% End If %> <%////////////////////////////////// (Fim) Verifica se visitante está autorizado a ver a revista /////////////////// ///////////////////%> <% Sub Page_Terminate(url) ' Page unload event, used in current page Call Page_Unload() ' Global page unloaded event (in userfn60.asp) Call Page_Unloaded() conn.Close ' Close Connection Set conn = Nothing Set Security = Nothing Set revistasAdquiridas = Nothing ' Go to url if specified If url <> "" Then Response.Clear Response.Redirect url End If ' Terminate response Response.End End Sub ' Page Load event Sub Page_Load() '***Response.Write "Page Load" End Sub ' Page Unload event Sub Page_Unload() '***Response.Write "Page Unload" End Sub %>