<% usadoclick = Request.QueryString("cod") 'clicktmp = Request.QueryString("click") clickok = Request.QueryString("click") Sqltext1238 = "SELECT * FROM TB_USADOS_BORTOLOTTO WHERE CD_USADO_BORTOLOTTO = "&usadoclick&" " Set rs1238 = conn.Execute(sqlText1238) Session("USADOSEL") = rs1238("CD_USADO_BORTOLOTTO") data = date array_data = split(data,"/") dia = array_data(0) mes = array_data(1) ano = array_data(2) dataclick = ano + "-" + mes + "-" + dia horaclick = time ipclick = Request.ServerVariables("REMOTE_ADDR") SQLtext81292 = "INSERT INTO TB_CLICKS_BORTOLOTTO (CD_USADO_BORTOLOTTO,DATA_CLICK_BORTOLOTTO,HORA_CLICK_BORTOLOTTO,IP_CLICK_BORTOLOTTO) VALUES('"&usadoclick&"','"&dataclick&"','" & horaclick & "','" & ipclick & "')" Set rs81292 = conn.Execute(SQLtext81292) clickusado = rs1238("CLICKS_USADO_BORTOLOTTO") clicksusadok = clickusado + clickok Sqltext1241 = "UPDATE TB_USADOS_BORTOLOTTO SET CLICKS_USADO_BORTOLOTTO = '"&clicksusadok&"' WHERE CD_USADO_BORTOLOTTO = "&rs1238("CD_USADO_BORTOLOTTO")&" " ' response.Write(sqltext1241) Set rs1241 = conn.Execute(sqlText1241) %> <% conn.Close() Set conn = Nothing %> <% usadob = Session("USADOSEL") Response.redirect "exibir.asp?cod="&usadob&"" %>