<% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% dim xId dim xvoto dim xvolver xId = request.querystring("id") xvoto = request.querystring("v") if len(xId)=0 then response.redirect("http://www.laconexionusa.com") end if CadenaConexion="Provider=SQLNCLI11;Server=184.107.19.212;Database=LaConexion; Uid=hr2m;Pwd=Lifeisx1980;Persist security info=true;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open CadenaConexion if xvoto=1 then txtSQL = "update be_articulo set v1 = v1 + 1 where id = " & xid end if if xvoto=2 then txtSQL = "update be_articulo set v2 = v2 + 1 where id = " & xid end if if xvoto=3 then txtSQL = "update be_articulo set v3 = v3 + 1 where id = " & xid end if if xvoto=4 then txtSQL = "update be_articulo set v4 = v4 + 1 where id = " & xid end if if xvoto=5 then txtSQL = "update be_articulo set v5 = v5 + 1 where id = " & xid end if Set RS = Conn.Execute(txtSQL) %> Noticias de interés <% conn.close set conn = nothing response.redirect("resultados.asp?id="&xId) %>