% 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
%>