<% Dim myid myid=request.querystring("code") Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") conn.Open myConn Dim rs set rs=Server.CreateObject("adodb.recordset") Dim come come=request.querystring("like") if come="default" then Dim mysql mySQL="select url from banner where utente='default'" rs.open mySQL, Conn Dim destinazione destinazione = rs("url") rs.close set rs=nothing conn.close set conn=nothing response.redirect destinazione else mySQL="select * from banner where id="&myid rs.open mySQL, Conn, 3, 3 destinazione=rs("url") Dim clickattuali clickattuali = rs.Fields("totclick")+ 1 rs.Fields("totclick")= clickattuali rs.update rs.close set rs=nothing conn.close set conn=nothing response.redirect(destinazione) end if %>