Mira mis comentarios...
Dim destino
destino = Request.form("correo")
'Aqui dices QeryString ¿¿??, estas seguro, revisa esto...
Recipient = Request.QueryString("destino")
'Luego que arregles la linea anterior, escribe el contenido para que
'lo verifiques, solo ahorita que estas haciendo pruebas.
Response.write "[" & Recipient & "]"
'Luego nos dices que paso con eso.
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "CONTACTO"
Mailer.FromAddress= "
[email protected]"' Correo del remitente
Mailer.RemoteHost = "mail.server.com"
Mailer.AddRecipient "Name", Recipient
Mailer.Subject = "CONTACTO Pagina Web"
Mailer.ContentType="text/html"