no me gusta el código que genera macromedia... no estoy seguro, pero parecería que la conexión es
num_votes.ActiveConnection. De ser así, intentá con el siguiente código
Código:
<%
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
num_votes.ActiveConnection.Execute("update fotogatti.top_artists set voto=voto+1 WHERE order_name="&Replace(num_votes__MMColParam, "'", "''")&")
%>