<%@ 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%>
www.hifran.com está optimizada para monitores de 17", con una resolucion de 1024 x 768 pixeles |