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
%>
Excelente servicio. Siempre a disposición, cualquier duda resuelta al instante. Muchas gracias!
Excelente y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
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 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 y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Como siempre, excelente servicio y asesoramiento y muy buena predisposición para dar una mano!!!! 100% recomendables!!
Tuve un problema con el espacio en disco apenas subi mi página web y mis consultas fueron respondidas inmediatamente. Muy buena atención!
Impecable el servicio y la rapidez en solucionar nuestros problemas! Gracias por ayudarnos!!
Arte Marcial kimugan ( www.kimugan.com - www.gabrielgagliardini.com ) Estoy muy conforme con el servicio. Lo recomiendo ampliamente.
Genios, excelente servicio, muy personalizado, de 10!!
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!!
Agradecemos el apoyo de Hosting Bahia por brindarnos el espacio virtual para que el proyecto Bahiarecicla.com.ar pueda hacerse realidad. Asi como Hosting Bahia brindó su apoyo, comprometemos por éste medio a los bahienses, para que entre todos podamos hacer del reciclado, un modo de vida!!!.
Mi negocio es cliente desde mas de 6 años, uno de los primeros, y siempre recibiendo un excelente servicio personalizado que es lo que mas vale. Saludos a Hosting Bahia y sigan asi :D
Tenía que hacer dos registros NIC. Gracias a la asistencia y predisposición de Martín, tanto en la oficina como la asistencia técnica telefónica, pude lograr mi objetivo. Excelente.
Muy buen servicio, 100% recomendable !! Gracias por todo.
Felicitaciones Hosting por su nueva pagina y gracias por sus servicios. Saludos
Muy buen servicio. Siempre me atendieron cordialmente y respondieron mis inquietudes. Además están dispuestos a satisfacer las necesidades de sus clientes, componiéndolos en los que necesiten y les sea más favorable. Nunca tuve inconvenientes, no me han cortado el servicio y mi página siempre anduvo desde el principio sin problemas. Además cuentan con una oficina en la ciudad, lo que hace todo más fácil y confiable.
Excelente atención, servicio y resultados. Muchas gracias!
Excelente la atención, hace pocos meses contraté Hosting Bahía y ante cada inconveniente y recibido una atención técnica espectacular. Muy buen servicio sin problemas
El mejor servicio!!!!
Hace poco abrimos nuestro comercio y estamos muy conformes, el servicio funciona de maravillas y el servidor ofrece todo tipo de prestaciones avanzadas, sumamente útiles a la hora de diseñar un sitio web.
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!
Gente de primera, excelente respuesta, SUMAMENTE CONFIABLES! A seguir para adelante! Tauro Computación
Excelente servicio, siempre que manifesté duda o consulta me respondieron al instante y resolvieron mis inquietudes.
EXCELENTEEEEEEEE!! servicios y atención que son para aplaudir! siempre disponibles y dedicados. Muchas gracias!
Uso el servicio desde hace tiempo con muy buenos resultados y con un buen asesoramiento. recomendable.
Excelente servicio y respuesta inmediata! Muy atentos!
Buen servicio, muy buena atencion.
Como siempre, excelente servicio y asesoramiento y muy buena predisposición para dar una mano!!!! 100% recomendables!!
Excelente, muy buena atención, son rápidos, el servicio funciona muy bien, y ante cualquier duda que hubiera surgido, siempre la respuesta fue muy rápida.
