Hola a todos, estoy probando un codigo el cual me escribio otro usuario del foro (no logro contactarme con el para que me ayude).
Este codigo lo necesito para poder sumar un click en la columna "voto" de mi tabla cuando se ve una noticia determinada en el sitio. Para luego mas adelante tener un ranking de lo mas visto del sitio.
El codigo lo puse como esta abajo pero me da error, creo que es simple pero no se como arreglarlo, el error en el navegador es el siguiente:
Microsoft VBScript runtime error '800a01a8'
Object required: 'conn'
/artists3_v.asp, line 385
Debo definir conn ? Disculpen que mis conocimientos sean tan basicos, pero no se como seguir.
Los votos o clicks los guardo en una tabla que se llama "top_artists", el recordset se llama "num_votes", el campo numerico que quiero que registre el click se llama "voto". En vez de "id", el campo que define que registro se actualiza se llama "order_name".
Aqui debajo les adjunto el codigo del recordset "num_votes" y debajo el script modificado que me da error:
<%
Dim num_votes
Dim num_votes_numRows
Set num_votes = Server.CreateObject("ADODB.Recordset")
num_votes.ActiveConnection = MM_Eomtest_STRING
num_votes.Source = "SELECT * FROM fotogatti.top_artists WHERE order_name = '" + Replace(num_votes__MMColParam, "'", "''") + "'"
num_votes.CursorType = 0
num_votes.CursorLocation = 2
num_votes.LockType = 1
num_votes.Open()
num_votes_numRows = 0
%>
<%
sql="select voto From fotogatti.top_artists where order_name="&order_name&""
set rs=conn.execute(sql)
voto=rs(voto)+1
sql="update fotogatti.top_artists set order_name="&order_name&", voto="&voto&""
set rsupdate=conn.execute(sql)
%>
Agradezco mucho cualquier ayuda que me puedan dar...
