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 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. !!!
El mejor servicio!!!!
Excelente servicio y respuesta inmediata! Muy atentos!
Gran servicio, rápida respuesta y buena atención sigan así!
El mejor servicio!!!!
Increíble servicio, gran soporte y excelente relación calidad/precio. Gracias Chicos!
Sin duda son los mejores de la ciudad y la zona. La relación precio/producto es excelente y además de la altísima calidad y su gran variedad de servicios, cuentan con personal altamente calificado para dar soporte a sus clientes. Su trayectoria los avala. Gracias por todo!
Excelente atención, servicio y resultados. Muchas gracias!
Excelente servicio y muy buena atencion! Satisfecho 100%
Excelente y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Genios, excelente servicio, muy personalizado, de 10!!
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.
Excelente servicio y atencion! nunca un problema
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!
Muy buena atención, excelente respuesta a los pocos problemas encontrados!! Gracias por la atencón y felices fiestas!!
Felicitaciones por sus excelentes servicios, responsabilidad y rapidez, les deseamos lo mejor... MN PARTICIPACIONES (www.mnparticipaciones.com.ar)
Arte Marcial kimugan ( www.kimugan.com - www.gabrielgagliardini.com ) Estoy muy conforme con el servicio. Lo recomiendo ampliamente.
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
EXCELENTEEEEEEEE!! servicios y atención que son para aplaudir! siempre disponibles y dedicados. Muchas gracias!
Increíble servicio, gran soporte y excelente relación calidad/precio. Gracias Chicos!
Hace mas de una década que somos clientes, siempre al lado de nuestra empresa apoyándonos y asesorándonos de forma activa. Un equipo del mas alto nivel!
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!!!.
La verdad es que el servicio está a la altura de lo que se puede esperar de un hosting en Buenos Aires. Manejo las comunicaciones del Helados Jet, Restaurante Pizza Jet, Pronto Jet en Monte Hermoso y Cabañas La Felicidad en Sierra de la Ventana y estamos muy satisfechos.
Excelente atención, servicio y resultados. Muchas gracias!
Excelente servicio y pronta respuesta ante cualquier tipo de consulta o problema. Los conozco desde el comienzo, nunca un inconveniente. Gracias!!
muy buen servicio de hosting, siempre al servicio del cliente la verdad que muy atentos!!!
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
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
Tengo contratados dos Planes Empresa Anuales y estoy muy conforme con el servicio brindado, totalmente recomendables.
