Usando las prestaciones del componente preinstalado Persits AspEmail.
Ej.
Página "consultas.htm"
<html>
<head>
<title>Consultas</title>
</head>
<body>
<form method="POST" name="Consultas" action="consultas.asp">
<input type="text" name="consulta">
<input type="text" name="nombre">
<input type="text" name="correoe">
<input type="text" name="telefono">
</form>
</body>
<html>
Página "consultas.asp"
<%
Response.Buffer = True
Dim Mail
Dim destinatario, motivo, servidor
Dim consulta, nombre, email, telefono, cuerpo
destinatario = informes@ejemplo.tld
motivo = "Consulta desde www.ejemplo.tld"
servidor = "mail.ejemplo.tld"
consulta = Request.Form("consulta")
nombre = Request.Form("nombre")
correoe = Request.Form("correoe")
telefono = Request.Form("telefono")
cuerpo = cuerpo & "Teléfono : " & telefono & VbCrLf
cuerpo = cuerpo & "Consulta : " & VbCrLf
cuerpo = cuerpo & consulta
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = servidor
Mail.From = correoe
Mail.FromName = nombre
Mail.AddAddress destinatario
Mail.Subject = motivo
Mail.Body = cuerpo
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If
Set Mail = nothing
Response.Redirect("gracias.htm")
%>
Página "gracias.htm"
<html>
<head>
<title>Gracias</title>
</head>
<body>
<p>
Gracias!
</p>
</body>
<html>
Consulte http://www.microsoluciones.net/resources/documentation/persits/aspemail/index.html para obtener más información.