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