Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 CDONTS, Mails y la rep............
 Foro Bloqueado  Tema Bloqueado


Autor Temas
pablodiloreto
Starting Member

Argentina
27 Posts
Mensajes - 19 Jan 2006 :  22:38:30  Ver Perfil  Enviar Email
Hola. Tengo un problema que me esta arrancando los pelos. Estoy haciendo este codigo:


<%@ Language=VBScript %>
<HTML>
<HEAD>
<%
sqltxt="select * from usuarios"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cp/bd/cp.mdb"))
set rs=createobject("ADODB.Recordset")
set rsr=createobject("ADODB.Recordset")
rs.open sqltxt,conn
Do While NOT rs.EOF
contrasena = rs("contrasena")
usuario = rs("usuario")
rs.MoveNext
Loop
rs.Close
conn.close

Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")

HTML = "<html>"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Untitled Document</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & contrasena
HTML = HTML & "<p>" & usuario
HTML = HTML & "</body>"
HTML = HTML & "</html>"


myMail.From="pdiloreto@estudiomartin.com"
myMail.To="pablodiloreto@gmail.com"
myMail.Subject="Sample CDONTS HTML Message"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
Response.Write "Message Sent"
%>
</HEAD>
<BODY>
</BODY>
</HTML>

Ahora bien, como pueden notar, es una página que me sirve para enviar mails de unos datos que recupero de una base de datos... esto SALE BIEN! anda perfecto. Ahora bien... lo que necesito es enviar VARIAS FILAS... ya que en este ejemplo que pongo solo puedo enviar UN DATO. ¿Como hago? Porque si pongo las instrucciones ASP en el HTML del mail, cuando se encuentra con el código "%>" genera errores... existe algo que me guarde como variable una gran tabla con resultados y luego yo ponga:


HTML = HTML & grantabla

y todo salga en el mail??????

AYUDAAAAAAAAAAAA! si no se entendió diganme que lo explico mejor.

GRACIAS AMIGOS!

Pablo.-

Pablo Ariel Di Loreto

jbarra
Junior Member

Chile
192 Posts
Posted - 20 Jan 2006 :  13:35:54  Ver perfil  Enviar e-mail
Me parece que quieres poder enviar varias veces un email con el usuario y su clave, la forma puede ser está:

<%
Sub Email(ByRef Contrasena, ByRef Uusuario)
Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")
HTML = "<html>"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Untitled Document</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & contrasena
HTML = HTML & "<p>" & usuario
HTML = HTML & "</body>"
HTML = HTML & "</html>"
myMail.From="pdiloreto@estudiomartin.com"
myMail.To="pablodiloreto@gmail.com"
myMail.Subject="Sample CDONTS HTML Message"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
Response.Write "Message Sent"
End Sub

sqltxt="select * from usuarios"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cp/bd/cp.mdb"))
set rs=createobject("ADODB.Recordset")set rsr=createobject("ADODB.Recordset")
rs.open sqltxt,connDo
While NOT rs.EOF
contrasena = rs("contrasena")
usuario = rs("usuario")

Email contrasena, usuario
rs.MoveNext
Loop
rs.Close
conn.close%>
</HEAD>
<BODY>
</BODY>
</HTML>

Inicio Pagina

Alexis_m20
Senior Member

Chile
1021 Posts
Posted - 20 Jan 2006 :  13:55:01  Ver perfil  Enviar e-mail  Visit Alexis_m20's Homepage
Por lo que veo es mejor hacer lo siguiente
<%
sqltxt="select * from usuarios"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cp/bd/cp.mdb"))
set rs=createobject("ADODB.Recordset")
set rsr=createobject("ADODB.Recordset")rs.open sqltxt,connDo
Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")
HTML = "<html>"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Untitled Document</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
While NOT rs.EOF
contrasena = rs("contrasena")
usuario = rs("usuario")
HTML = HTML & contrasena
HTML = HTML & "<p>" & usuario & "<br>"
rs.MoveNext
Loop
rs.Close
conn.close
HTML = HTML & "</body>"
HTML = HTML & "</html>"
myMail.From="pdiloreto@estudiomartin.com"
myMail.To="pablodiloreto@gmail.com"
myMail.Subject="Sample CDONTS HTML Message"
myMail.BodyFormat=0 myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing Response.Write "Message Sent"
%>

Si puedo ayudar lo hare
Entren a mi web y registrense y participen http://www.ofistar.cl/foro/Default.aspInicio Pagina

pablodiloreto
Starting Member

Argentina
27 Posts
Posted - 20 Jan 2006 :  15:37:23  Ver perfil  Enviar e-mail
Hola, Gracias a ambas respuestas! Pero quizás me expreseé mail. No quiero enviar varios mails, sino un solo mail, pero con VARIOS REGISTROS. Es decir, en mi primer ejemplo, hago un "Select * from usuarios" pero a modo de EJEMPLO. Allí solo envio vía mail UN registro. Ahora bien, que pasa si quiero realizar una consulta más completa con resultados en una tabla con VARIOS REGISTROS, por ejemplo:


Select * from movimientos where id_movimiento=3

A esta consulta saldrían TODOS LOS REGISTROS con el código de movimiento 3. Con esos resultados yo quiero armar una tabla y enviarla por mail automáticamente, tal como lo hago en el primer ejemplo que pongo arriba de todo (el que es motivo de mi consulta aquí), pero en DICHO PRIMER EJEMPLO solo envio UN DATO!! y yo necesito enviar muchos, muchos datos resultado de una consulta.

Por eso era mi pregunta original. ¿Existe la posibilidad de guardar TODO ESTE RESULTADO CON VARIOS REGISTROS en una variable (por ejemplo "gran_tabla") y cuando yo quiero enviar el mail ponga:

HTML = HTML & gran_tabla

No se si esto daría error o no... pero existirá forma de solucionarlo?

GRACIAS!! y espero su ayuda. Igualmente GRACIAS A jbarra y ALEXIS.

Pablo.-

Pablo Ariel Di LoretoInicio Pagina

Alexis_m20
Senior Member

Chile
1021 Posts
Posted - 20 Jan 2006 :  16:10:34  Ver perfil  Enviar e-mail  Visit Alexis_m20's Homepage
te he puesto lo que pedias
entremedio del while
y solo manda un mail
con hartos datos de usuarios y contraseñas


algo asi quierees hacer??

Si puedo ayudar lo hare
Entren a mi web y registrense y participen http://www.ofistar.cl/foro/Default.aspInicio Pagina

pablodiloreto
Starting Member

Argentina
27 Posts
Posted - 20 Jan 2006 :  16:35:38  Ver perfil  Enviar e-mail
Si!! es verdad, ahora que lo decís, lo probé y anda, funciona! GRACIAS!!!!!!!!!! ALEXIS!!!! te agradezco mucho, un capo!

Pablo Ariel Di LoretoInicio Pagina

jbarra
Junior Member

Chile
192 Posts
Posted - 20 Jan 2006 :  17:55:32  Ver perfil  Enviar e-mail
Pense que desebas enviar varias veces el email....sorry

Inicio Pagina

pablodiloreto
Starting Member

Argentina
27 Posts
Posted - 20 Jan 2006 :  18:23:04  Ver perfil  Enviar e-mail
NOO!! GRACIAS JBARRA! yo consiero que aquí lo que vale es el esfuerzo y la ayuda que quieren brindar. Ojalá yo alguna vez pueda ayudar a alguien y tenerla clara como para enviar alguna respuesta. Es algo que les "envidio". Gracias amigo.

Pablo.-

Pablo Ariel Di LoretoInicio Pagina

Alexis_m20
Senior Member

Chile
1021 Posts
Posted - 20 Jan 2006 :  18:36:12  Ver perfil  Enviar e-mail  Visit Alexis_m20's Homepage
Lo que debemos saber que esto no es una competenciasi no un medio de ayudar a los demas a poder comprender mejor los codigos y sus dificultades.

en ningun caso pensar que dimos una ayuda mal, ya que pudimos solo mal interpretar las cosas.

asi que a darle a la tecla

Si puedo ayudar lo hare
Entren a mi web y registrense y participen http://www.ofistar.cl/foro/Default.aspInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar