Código:
pero no me devuelve nada, donde esta el error? <% 'realitzam la consulta Dim num_coment Dim num_coment_numRows Set num_coment = Server.CreateObject("ADODB.Recordset") num_coment.ActiveConnection = MM_Esporlesbc_STRING num_coment.Source = "SELECT * FROM Comentaris_nov WHERE Id = " & Novetats.Fields("id") & "" num_coment.CursorType = 0 num_coment.CursorLocation = 2 num_coment.LockType = 1 num_coment.Open() num_coment_numRows = 0 num_coment_registros = num_coment.RecordCount Response.Write(num_coment_registros) %>