Ver Mensaje Individual
  #3 (permalink)  
Antiguo 25/06/2003, 04:52
Avatar de emajesus
emajesus
 
Fecha de Ingreso: abril-2003
Mensajes: 278
Antigüedad: 21 años, 7 meses
Puntos: 1
CDONTS + Plantilla.htm

De HMTL sí sé algo. Lo que deseo es dar respuesta a la siguiente pregunta formulada en foro ASP y que quizá debiera haber ubicado aquí.

CDONTS + Plantilla en .htm

Estimados amigos,

Deseo haceros la siguiente pregunta. Recibo un suscripción a una lista de correo vía Web. Quisiera enviar al suscrito un mensaje de agradecimiento basado en una plantilla, donde en cada ocasión se sustituya el mail y el nombre del individuo para hacerlo si cabe más personal.

Mi duda es: ¿cómo debo confeccionar la página plantilla.htm para que me reconozca los campos Nombre y Mail y los sustituya por el correspondiente en cada ocasión?

He probado esto y creo que el problema puede estar en el código de plantilla.htm que no sé cómo hacerlo.

Gracias,

Emajesus

<%

strPhysicalPath = "/pruebas/plantilla.htm" ' Mappen med filerne

set mfso=Server.CreateObject("Scripting.FileSystemObje ct")
set marchivo=mfso.OpenTextFile(Server.MapPath(strPhysi calPath))

strBody=marchivo.readall
set marchivo=nothing

remitente=request.form("mail")
nombre=request.form("nombre")

strBody=replace(strBody,"mail",remitente)

'mail es el campo a sustituir en plantilla.htm

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "[email protected]"
objMail.From = remitente
objMail.Bcc = ""
objMail.Subject = "Prueba"
objMail.Body = strBody
objMail.BodyFormat= 0
objMail.MailFormat= 0

objMail.Importance = 2
objMail.Send
Set objMail = Nothing
response.redirect ("http://www.midominio.com")

%>