Comenta esta nota
% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %>
<% if len(session("LogOk"))=0 then session("LogOk")=0 end if %> <% Dim LcIdArticulo LcIdArticulo = 551060 CadenaConexion="Provider=SQLNCLI11;Server=67.205.101.180;Database=LaConexion; Uid=hr2m;Pwd=Lifeisx1980;Persist security info=true;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open CadenaConexion txtSQL = "select v1,v2,v3,v4,v5,v6,intlecturas from be_articulo where id = " & LcIdArticulo Set RS = Conn.Execute(txtSQL) %><%response.write(RS("v1"))%> Me alegra | <%response.write(RS("v2"))%> Me gusta | <%response.write(RS("v3"))%> Me enoja | <%response.write(RS("v4"))%> No me gusta |