<%@LANGUAGE="VBSCRIPT"%> <% Dim ID, Banner, Link ID = 0 ID = ID + Request("ID") if ID <> 0 then set contador = Server.CreateObject("ADODB.Recordset") contador.ActiveConnection = MM_iabsp_STRING contador.Source = "SELECT Clique_Banner, Link_Banner FROM Banner WHERE ID_Banner = "& ID & "" contador.Open() contador_numRows = 0 ' atualiza contagem de cliques sql = "update Banner set Clique_Banner = '" & (1+ (contador.Fields.Item("Clique_Banner").Value)) &"' where ID_Banner = "&ID&" " Set conn = Server.CreateObject("ADODB.Command") conn.ActiveConnection = MM_iabsp_STRING conn.CommandText = sql conn.Execute conn.ActiveConnection.Close Link = "http://"&(contador.Fields.Item("Link_Banner").Value) contador.Close() set contador = nothing set conn = nothing response.redirect (Link) end if %>