<%
'www.lawebdelprogramador.com
if Request.QueryString()="" then
%>
<html>
<head><title>FUNCIONAMIENTO DEL FORMMAIL.ASP</title></head>
<body>
<font face="Arial" size=2>
Se tienen que enviar los siguiente parametros utilizando el metodo GET.
<li>email = direccion de correo de quien envia el correo</li>
<li>recipient = direccion de correo donde se envia el correo</li>
<li>subject = titulo del correo</li>
<li>redirect = direccion URL de la pagina que se tiene que mostrar una vez enviado el correo.</li>
<P>Cualquier otra informacion recibida, aparecera en el cuerpo del correo.
<P><form method="GET" action="formmail.asp">
<br><input type="hidden" name="recipient" value="direccion de correo">
<br><input type="hidden" name="subject" value="TITULO DEL MENSAJE">
<BR><input type="hidden" name="redirect" value="pagina a mostrar al enviar el correo">
<br>Direccion de correo <input type="text" name="email">
<br><input type="submit" value="Enviar Correo">
<br></form>
<%
else
if len(Request.QueryString("email"))>0 then
if Request.QueryString("recipient")="[email protected]" or Request.QueryString("recipient")="[email protected]" or Request.QueryString("recipient")="[email protected]" or Request.QueryString("recipient")="[email protected]" or Request.QueryString("recipient")="[email protected]" or Request.QueryString("recipient")="[email protected]" 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")="[email protected].com" then Response.Redirect("http://orbita.starmedia.com/~niunafoto/opinion.htm") else
Response.Redirect("http://www.lawebdelprogramador.com") end if
end if
end if
%>
Crear cuenta
Tienes que modificar : [email protected], [email protected], .... por los correos que quieras permitir a traves de este archivo. Esto es para que nadie copie tu codigo, y lo utilice para enviar archivos a traves de el.