mmmm, entonces, ¿la linea 517 (la del error) corresponde a esta?:
rs.Source = sql
A ver, que me estoy volviendo loco 
Sustituye esto
Código:
set rs=Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_sumer_con_STRING
rs.Source = sql
rs.PageSize = numregistresmostrats
rs.CacheSize = numregistresmostrats
rs.CursorType = 3
rs.CursorLocation = 3
rs.LockType = 3
rs.open ()
por esto
Código:
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open MM_sumer_con_STRING
rs.PageSize=numregistresmostrats
rs.CacheSize=numregistresmostrats
rs.Open sql, oConn, 3, 3
Y deja lo otro igual
Un saludo