<%
'NOTA: Aqui estas declarando una variable, en ningun momento
'estas recuperando un valor
Dim destino 'Aqui supuestamente recupero el valor
'.form lee un parametro de un formulario con post
destino = Request.form("correo")
'QueryString es para leer un parametro del URL
Recipient = Request.QueryString("destino")
'NOTA:
'
'Como estas pasando estos parametros, con POST o por URL ?
'
'Lo mas seguro es que la linea de QueryString este mal, entonces
'es asi
Recipient = Request.form("destino")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "CONTACTO"
Mailer.FromAddress= "
[email protected]"' Correo del remitente
Mailer.RemoteHost = "mail.server.com"
'Aqui le tienes que poner la variable que ya pediste,
'Response.write lo que intenta es enviar el valor de la variable a
'la pantalla del usuario, response.write no te escribira el valor
'de la variable en tu propio codigo, entonces esto esta mal
'Mailer.AddRecipient "Name", Response.write"[" & Recipient & "]"
'Debe ser:
Mailer.AddRecipient "Name", Recipient
Mailer.Subject = "CONTACTO Pagina Web"
Mailer.ContentType="text/html"
Intentalo y Suerte!!