<%@ Language=VBScript%> <% mes = "" IsSuccess = false URL_OK = "http://www.hifran.com/mailb.asp" sTo = "informacion@hifran.com" sFrom = Trim(Request.Form("txtFrom")) sSubject = Trim(Request.Form("txtSubject")) sMailServer = "127.0.0.1" sBody = Trim( _ "Nombre: "+ Request.Form("txtCampo1")+ VBCrLf+ _ "Departamento: "+ Request.Form("textdepar")+ VBCrLf+ _ "Empresa: "+ Request.Form("txtCampo2")+ VBCrLf+ _ "Poblacion: "+ Request.Form("textpoblacion")+ VBCrLf+ _ "Pais: "+ Request.Form("textpais")+ VBCrLf+ _ "Telefono: "+ Request.Form("textfield")+ VBCrLf+ _ "Pregunta: "+ Request.Form("txtbody")+ VBCrLf _ ) if Request("__action")="TestEMail" then TestEMail() end if Sub TestEMail() Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = sFrom .To = sTo .Subject = sSubject .TextBody = sBody End With Err.Clear on error resume next objMail.Send if len(Err.Description) = 0 then mes = " Message sent to " + sTo mes= "" mes = mes + " DATOS ENVIADOS CORRECTAMENTE!" IsSuccess = true else mes = " " + Err.Description + " ERROR AL ENVIAR DATOS!" end if Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing End sub Sub Alert(html) if IsSuccess then Response.Write "Información enviada correctamente" else Response.Write "Fail: Rellene el campo E-mail" end if End Sub %>
<% if IsSuccess then Response.Write("") end if%>
<% if len(mes) > 0 then Alert(mes) end if %> Inicio
:
:
Departamento:
:
Teléfono:

 

 

Contacto: informacion@hifran.com

Juan XXIII. nº 9 bajo

09007 - BURGOS

Tlf: 947 22 34 90 - Fax: 947 22 34 90

www.hifran.com está optimizada para monitores de 17", con una resolucion de 1024 x 768 pixeles