problema al enviar e-mail seleccionados

[pedami]

Este es el codigo del recorset y aun sigue sin funcionar, por favor te agradecería que le echaras un vistazo.


<%
Dim rsusuarios__MMUSERSE
rsusuarios__MMUSERSE = "0"
If (Request.Form("ENVIAREM") <> "") Then
rsusuarios__MMUSERSE = Request.Form("ENVIAREM")
End If
%>
<%
Dim rsusuarios
Dim rsusuarios_cmd
Dim rsusuarios_numRows

Set rsusuarios_cmd = Server.CreateObject ("ADODB.Command")
rsusuarios_cmd.ActiveConnection = MM_dscruz88_STRING
rsusuarios_cmd.CommandText = "SELECT UserID, concat(usuarios.NOMBRE, ' ', usuarios.APELLIDO1, ' ',usuarios.APELLIDO2) AS NOMBRE, bandos.NOMBRE_CORTO_B AS BANDO_C, grupos.NOMBRE_CORTO AS GRUPO_C, cargo.CARGO AS CARGO_C, categorias.CATEGORIA_HONOR AS CAT_C, UserEmail FROM (((data_fiestascruz88.usuarios LEFT JOIN data_fiestascruz88.bandos ON usuarios.BANDO_C = bandos.ID_BANDO) LEFT JOIN data_fiestascruz88. grupos ON usuarios.GRUPO_C = grupos.ID_GRUPO) LEFT JOIN data_fiestascruz88.cargo ON usuarios.CARGO_C = cargo.ID_CARGO) LEFT JOIN data_fiestascruz88.categorias ON usuarios.CAT_C = categorias.ID_CATEG_HONOR WHERE UserID IN(" & ? & ")"
rsusuarios_cmd.Prepared = true
rsusuarios_cmd.Parameters.Append rsusuarios_cmd.CreateParameter("param1", 5, 1, -1, rsusuarios__MMUSERSE) ' adDouble

Set rsusuarios = rsusuarios_cmd.Execute
rsusuarios_numRows = 0
%>