<% if Request.QueryString()="" then %> FUNCIONAMIENTO DEL FORMMAIL.ASP Se tienen que enviar los siguiente parametros utilizando el metodo GET.
  • email = direccion de correo de quien envia el correo
  • recipient = direccion de correo donde se envia el correo
  • subject = titulo del correo
  • redirect = direccion URL de la pagina que se tiene que mostrar una vez enviado el correo.

    • Cualquier otra informacion recibida, aparecera en el cuerpo del correo.





    Direccion de correo
    <% else if len(Request.QueryString("email"))>0 then if Request.QueryString("recipient")="jlopez@jtmsac.com" or Request.QueryString("recipient")="mcarlin@jtmsac.com" or Request.QueryString("recipient")="jlopez@jtmsac.com" or Request.QueryString("recipient")="jlopez@jtmsac.com" or Request.QueryString("recipient")="jlopez@jtmsac.com" or Request.QueryString("recipient")="jlopez@jtmsac.com" then 'recoge los valores For Each item In Request.QueryString() if item<>"recipient" and item<>"subject" and item<>"redirect" then txtcuerpo = txtcuerpo & item & " = " & Request.QueryString(item) & vbcrlf & vbcrlf end if Next Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = Request.QueryString("email") objMail.To = Request.QueryString("recipient") objMail.Subject = Request.QueryString("subject") objMail.Body = txtcuerpo objMail.Send Set objMail = nothing if Request.QueryString("redirect")="" then Response.Redirect("http://www.lawebdelprogramador.com") else Response.Redirect(Request.QueryString("redirect")) end if else Response.Redirect("http://www.lawebdelprogramador.com") end if else if Request.QueryString("recipient")="niunafoto@hotmail.com" then Response.Redirect("http://orbita.starmedia.com/~niunafoto/opinion.htm") else Response.Redirect("http://www.lawebdelprogramador.com") end if end if end if %>