Quizas me fale algun if o algo parecido pero creo que te puedes hacer una idea.
procesar.asp
Código:
<form name='contacto' method="get" action="procesar.asp">
<label>Nombre:<br/>
<input name="nombre" type="text" size="50" maxlength="200"/></label>
<br/>
<label>Mail:<br/>
<input name="mail" type="text" size="50" maxlength="200"/></label>
<br/>
<label>Comentario:<br/>
<textarea name="body" cols="40" rows="10"></textarea></label>
<br/>
<input type="submit" value="Enviar" class="boton"/>
<input name="enviado" type="hidden" id="enviado" value="1" />
</form>
<%
'Inicio del codigo asp.
enviado = request.querystring("enviado")
if enviado = "1" then
mensaje = "el mensaje o variable que te interese"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.ksanet.es"
Mail.Port = 25 ''//* Valor opcional. 25 es el puerto por defecto.
Mail.Username = "[email protected]" ' Este es el E-Mail desde donde se Envia
Mail.Password = "Tu_password" ' Esta es la contraseña del mail desde donde se envia
Mail.From = "[email protected]"
Mail.FromName = email ''//* Opcional
Mail.AddAddress "el@email" 'este es el correo a donde se envia
Mail.Subject = "Asunto del Email."
Mail.Body = mensaje ' esta es la variable que hemos declarado arriba que contiene el mensaje.
Mail.IsHTML = True
''//*Verificacion si el e-mail se ha enviado satisfactoriamente.
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Se ha producido un error al enviar el e-mail " & Err.Description
%>
<p><font face=arial size=2>Puedes cerrar esta ventana, e intentarlo de nuevo más tarde.</font></p>
<%
Else
Response.Write "Correo enviado satisfactoriamente..."
end if
else
'si no se ha enviado el formulario no hace nada.
end if