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
%>
Hace mas de dos años que somos clientes de Hosting Bahia y la verdad es que estamos muy conformes en todo sentido. Atencion, funcionalidad,etc. Muy recomendables !! Abrazo CHENQUEANUNCIOS.COM
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!!!
El mejor servicio!!!!
Impecable el servicio y la rapidez en solucionar nuestros problemas! Gracias por ayudarnos!!
Que puedo decir, hace años que trabajo con ellos y sin dudas son los mejores...RESPONSABILIDAD, CORDIALIDAD, SERIEDAD, PUNTUALIDAD son solo algunas cosas para destacar. Hoy en día eso no se consigue en ningún lado. 100% CONFIABLES y RECOMENDABLES!!! GRACIAS TOTALES
Arte Marcial kimugan ( www.kimugan.com - www.gabrielgagliardini.com ) Estoy muy conforme con el servicio. Lo recomiendo ampliamente.
Gran servicio, rápida respuesta y buena atención sigan así!
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
Excelente servicio y soporte tecnico, damos fe que por lejos es el mejor servicio de hosting con atencion personalizada que hay en Bahia Blanca, muchas gracias!
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!!!
Impecable el servicio y la rapidez en solucionar nuestros problemas! Gracias por ayudarnos!!
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!
Felicitaciones por su nueva web! Siempre un placer trabajar con uds. y usar sus servicios con todos nuestros clientes.
Gran servicio, rápida respuesta y buena atención sigan así!
Siempre puedo contar con su asesoramiento para cualquier duda o consulta, estoy muy conforme con el servicio. Gracias!
Excelente servicio y pronta respuesta ante cualquier tipo de consulta o problema. Los conozco desde el comienzo, nunca un inconveniente. Gracias!!
Que puedo decir, hace años que trabajo con ellos y sin dudas son los mejores...RESPONSABILIDAD, CORDIALIDAD, SERIEDAD, PUNTUALIDAD son solo algunas cosas para destacar. Hoy en día eso no se consigue en ningún lado. 100% CONFIABLES y RECOMENDABLES!!! GRACIAS TOTALES
Excelente nivel en el servicio, igual en la atencion...felicitaciones!!! desde www.mcdigitalmarketing.com.ar
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!
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.
Somos clientes desde hace 5 años y la verdad que el servicio es impecable. Saludos y felicidades. REVIN SA.-
Muy buen servicio, 100% recomendable !! Gracias por todo.
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
Hace años que usamos su servicios y como estamos muy coformes lo hemos recomendado a mucha gente. 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!
Ya hace dos años que somos clientes y la atención ha sido excelente. El servicio es muy bueno y han resuelto las dificultades que se han presentado. Totalmente recomendable.
El mejor servicio!!!!
Tuve un problema con el espacio en disco apenas subi mi página web y mis consultas fueron respondidas inmediatamente. Muy buena atención!
Excelente atencion!! un servicio impecable! las consultas son respondidas al momento!!
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.
