Ejemplo para crear un formulario de envío de correos en ASP:
<%@LANGUAGE="VBSCRIPT" %>
<!– Ejemplo de Formulario de envio de correos utilizando ASP –>
<!– Este codigo debe ser colocado en un archivo de extension .asp –>
<!–METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" –>
<!– Formulario para completar con los datos –>
<form action="test_mail.asp" method="POST">
E-mail destinatario: <input type="text" name="destinatario" width="50"></input><br/>
Titulo Consulta: <input type="text" name="TituloConsulta" width="50" ></input><br/>
Texto Consulta: <TEXTAREA NAME="Consulta" ROWS="10" COLS="50"> </TEXTAREA> <br/>
<input type="submit" value="Enviar e-mail" /><input type="hidden" name="enviar" value="1"/>
</form>
<!– Fin Formulario para completar con los datos –>
<%
‘ Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP
DestinatarioCorreo = Request("destinatario")
CuentaDesdeDondeSeEenvia = "CuentaDeCorreo" ‘debe ser una creada desde el panel de control nombre@dominio
TextoConsulta= Request("Consulta")
TituloConsulta= Request("TituloConsulta")
If Request("enviar") = 1 Then
If Not Request("usuario") = "" And Not Request("destinatario") = "" Then
‘ Se crean los objetos necesarios para el envío del correo
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
‘ Se configuran los parametros necesarios para el envío
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields.Update
‘ Se asignan las propiedades de configuración al objeto
Set oMail.Configuration = iConf
oMail.To = DestinatarioCorreo
oMail.From = CuentaDesdeDondeSeEenvia
oMail.Subject = TituloConsulta
oMail.TextBody = TextoConsulta
‘ Se envía el correo
oMail.Send
‘ Se destruyen los objetos
Set iConf = Nothing
Set Flds = Nothing
Else
‘ Respuesta en caso de que no se completen todos los datos
Response.Write("Complete todos los campos para ejecutar el ejemplo")
End If
End If
%>
Desde ya felicitamos su crecimiento como también agradecemos el servicio, responsabilidad y trabajo que nos brindan día a día. Lejos el servicio numero 1 Saludos y los mejores deseos.
Uso el servicio desde hace tiempo con muy buenos resultados y con un buen asesoramiento. recomendable.
Muy satisfecha con el servicio brindado y la atención día a día.
Excelente el servicio que dan la asistencia al cliente y todo el soporte de ayuda con el que cuentan. son los mejores de bahía. muchas gracias por todos. !!!
Gran servicio, rápida respuesta y buena atención sigan así!
Excelente atención y asistencia al cliente. Soporte de 10!!! Me alegra contar con uds para mi empresa!!!
Chicos! excelente servicio! la verdad que muy conforme porque ademas siempre estan para resolverme todos los problemas :) muchas gracias! Desde ya super confiables, responsables y recomendables... Felicitaciones!!!
Gran servicio, rápida respuesta y buena atención sigan así!
Excelente atención, servicio y resultados. Muchas gracias!
Excelente calidad y atención... Más que recomendables! Supieron ayudarme y asesorarme en todo y estuvieron siempre disponibles... Buenísimo que podamos contar con un servicio así en Bahía... Muchísimas gracias y ojalá mucha gente más se sume porque el servicio lo vale! EXCELENTE!
Excelente atención y servicio, incomparable.
Tuve un problema con el espacio en disco apenas subi mi página web y mis consultas fueron respondidas inmediatamente. Muy buena atención!
muy buen servicio de hosting, siempre al servicio del cliente la verdad que muy atentos!!!
Muy buen servicio, nunca he tenido ningún problema
Excelente nivel en el servicio, igual en la atencion...felicitaciones!!! desde www.mcdigitalmarketing.com.ar
Excelente el apoyo que me dieron con los tramites en nic.ar - La calidad y calidez en la atención es de destacar!! Gracias Martín!!
Excelente servicio y atención. Muchas Gracias HB. http://gomces.com/
Excelente el apoyo que me dieron con los tramites en nic.ar La calidad y calidez en la atención es de destacar!! Gracias Martín!!
Excelente servicio y atencion! nunca un problema
Muy satisfecha con el servicio brindado y la atención día a día.
muy buen servicio de hosting, siempre al servicio del cliente la verdad que muy atentos!!!
Excelente servicio y muy buena atencion! Satisfecho 100%
Hará año y medio que trabajo con ellos. La web no es mi palo específico, ellos siempre lo supieron interpretar y me han atendido de diez. Rápido, seguro, con onda. Excelente! #GoodShow!
Increíble servicio, gran soporte y excelente relación calidad/precio. Gracias Chicos!
Excelente atención y asistencia al cliente. Soporte de 10!!! Me alegra contar con uds para mi empresa!!!
Chicos!! después de todos estos años, hoy distanciado de las webs, hoy solo como cliente, aprovecho para felicitarlos por la seriedad y dedicación que los caracteriza. En aquellos años había que recurrir a hostings en capital, por suerte uds se animaron y hoy contamos con un excelente servicio. Les mando un fuerte abrazo y espero alguna vez conocerlos en persona. Fer Vega / Underweb Design
Excelente y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Increíble servicio, gran soporte y excelente relación calidad/precio. Gracias Chicos!
Gente de primera, excelente respuesta, SUMAMENTE CONFIABLES! A seguir para adelante! Tauro Computación
Felicitaciones Hosting por su nueva pagina y gracias por sus servicios. Saludos
