<%
codass = request.querystring("a")
codigo = request.querystring("b")
sum = 0
urlpieces = split(Request.ServerVariables("URL"), "/")
edicao = urlpieces(Ubound(urlpieces)-1)
primes = array(179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409)
codassCopy = codass
count = 0
do while len(codassCopy) > 0
letter = Mid(codassCopy, 1, 1) 'pegamos primeiro caracter
codassCopy = right(codassCopy, len(codassCopy) -1) 'retiramos o primeiro caracter do codassCopy
ascii = asc(letter) 'Pegamos o codigo ascii do caracter
sum = sum + ascii*(primes(count)+(-1*count mod 2)) 'somamos
count = count +1 'adicionamos um ao count (para pegar outro primo dps
'response.write("Letter: "&letter&"
new codass: "&codassCopy&"
ascii: "&ascii&"
sum: "&sum&"
current prime: "&primes(count-1)&"
count: "&count&"
")
loop 'Este metodo nao eh seguro, mas nao precisamos de muita seguranca mesmo.
'response.write("Hello. codigo = "&codigo&" and codass = "&codass&" and sum = "& sum&"
Server Url: "&Request.ServerVariables("URL")&"
")
sum = sum + edicao*409
'response.write("Hello. codigo = "&codigo&" and codass = "&codass&" and sum = "& sum&"
Server Url: "&Request.ServerVariables("URL")&"
")
if cstr(sum) = codigo then 'ok! gravar na tabela
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open EW_DB_CONNECTION_STRING
Set rs0 = Server.CreateObject("ADODB.Recordset")
rs0.CursorLocation = 3
Session("IP") = Request.ServerVariables("REMOTE_ADDR")
if codass = "cort" then
sql = "INSERT INTO rv_visitas (IP, Status, Email, Obs) VALUES ('"&Session("IP")&"','Usuario de cortesia leu revista "&edicao&"', '"&codass&"', 'Cortesia');"
else
sql = "INSERT INTO rv_visitas (IP, Status, Email, Obs) VALUES ('"&Session("IP")&"','Usuario de cortesia leu revista "&edicao&"', '"&codass&"', 'Cortesia Publi');"
end if
rs0.Open Sql, conn, 1, 2
else
response.write("Algo esta errado no endereço da página. Por favor entrar em contato com a Cães & Cia.
")
response.end
end if
%>