Problemilla

[agm19]

Salu2 a tod@s.

Creo que mi problemilla no es muy complicado pero me he quedado algo estancao en él( tengo tanto que aprender y tan poco tiempo).
Les cuento:
Tengo una página en asp que muestra 50 registros recogidos de una BD y que corresponden a medios de comunicación. Cada registro aparece en pantalla con un checkbox y deseo que, al seleccionar uno o varios y darle al botón de enviar, les llegue un correo a la dirección del email que tienen asignado en la BD.

No sabía si colocar este mensaje aquí o en el foro de javascript, pero espero que me puedan contestar igual.

Muchas gracias de antemano. :)

[nazkatuta]

Hola,

Yo lo que haría es poner el mismo valor en todos los checkbox (por ejemplo "seleccionados"), y como nombre del checkbox ponemos el id (autonumerico) en la base de datos de cada medio.

algo así.

<input type="checkbox" name="<%=RS("id")%>" value="seleccionados" checked>

Al hacer un submit, en la página siguiente podras ir recogiendo los id de los registros seleccionados, e ir leyendo de la bd la direccion de correo correspondiente y crear así el correo.

Sería algo así...

Código:

  
<%For each Item In Request.Form
  if request(item) ="id" then 
  strSQL = "SELECT email FROM tabla_medios WHERE id = " & item 

  RS.Open strSQL, ConexionP
  email = RS("email")

 'Aquí iria el codigo para enviar el mail
 
 RS.Close
Loop
%>

Espero que te sirva

[nazkatuta]

perdona, hay una lina mal...

donde pone
if request(item) ="id" then

deberia ser...
if request(item) ="seleccionados" then

[agm19]

hola,

ahora cuando tenga un rato libre lo miro y te cuento, gracias. :)

[agm19]

hola ,

nazkatuta, intenté lo que me dijiste pero no consigo que llegue el correo.Gracias otra vez :).
A ver si con el código me podeis echar una mano

<form name="formulario" action="envia.asp" method="post" >
<%dim i=1
dim concepto
concepto="ninguno"
Set ObjConn=Server.CreateObject("ADODB.Connection ")
ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\usr\home\sgortega\website\webdocs\ bases datos\cines_alta.mdb;UID=admin"
sql="SELECT DISTINCT nombre_medio,concepto FROM prensa GROUP BY nombre_medio,concepto ORDER BY concepto"
Set tabla=server.createobject("adodb.recordset&qu ot;)
tabla.open sql,objconn,1,3%>


<%do if tabla.eof=false then
if concepto<>tabla.fields("concepto") then%>
<tr>
<td colspan="2"><br>
<font color="ffffff"><%=tabla.fields(&qu ot;concepto")%></font></td>
</tr>
<%end if%>
<tr>
<td width="5%" valign="top">
<input type="checkbox" name="check<%=i%>" value="<%=tabla.fields("nombre_medio& quot;)%>" >
</td>
<td width="46%" valign="top"><%=tabla.fields(&quot ;nombre_medio")%> </td>
<%concepto=tabla.fields("concepto")ta bla.movenext
i=i+1
if tabla.eof=false then
if concepto<>tabla.fields("concepto") then%>
<tr>
<td colspan="2"><br>
<font color="ffffff"><%=tabla.fields(&qu ot;concepto")%></font></td>
</tr>
<%end if%>
<td width="5%" valign="top">
<input type="checkbox" name="check<%=i%>" value="<%=tabla.fields("nombre_medio& quot;)%>" >
</td>
<td width="38%" valign="top"> <%=tabla.fields("nombre_medio")%&g t; </td>
<%concepto=tabla.fields("concepto")ta bla.movenext
i=i+1
else%>
<%end if%> </tr>
<%end if
loop while not tabla.eof%>
</table>

<input type="button" name="button" value="Seleccionar todos" onclick="todos('<%=i%>')">
<input type="reset" name="borrar" value="Eliminar">
<input type="submit" name="submit" value="Enviar"> etc..

podeis ayudarme?
qué pongo en la página dónde envio los datos?
Muchas gracias por vuestra ayuda y por vuestro tiempo

[agm19]

Por favor, necesito una ayudita! ;)

Estoy de prácticas y me han dejao solo pa resolver esta duda(mi jefe está de vacaciones)

Gracias por su ayuda y su tiempo