|
PRODEX
CONTACTAR / TO CONTACT / CONTACTER
|
<%If rtrim(Request.QueryString("acc")) <> "Env" then%>
<%else%>
<%if request.form("txtNom") <> "" then%>
<%
mBody = "Nombre :" & Request.Form("txtNom") & " " & Request.Form("txtApel") & Chr(13) & Chr(10)
mBody = mBody & "Email :" & Request.Form("txtMail") & Chr(13) & Chr(10)
mBody = mBody & "Asunto :" & Request.Form("txtAsun") & Chr(13) & Chr(10)
mBody = mBody & "Fecha Envio :" & date & Chr(13) & Chr(10)
dim sch, cdoConfig, cdoMessage
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "localhost"
.Item(sch & "smtpserverport") = "25"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "web@prodex.org"
.To = "info@prodex.org"
.CC = ""
.Subject = "Pedido informacion Prodex"
.TextBody = mBody
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
'strHost = "93.93.112.27"
'Set ObjMail = CreateObject("Persits.MailSender")
'ObjMail.FromName = "Web Prodex"
'ObjMail.Username = "info@prodex.org"
'ObjMail.Password = "prodex11"
'ObjMail.Host = strHost
'ObjMail.From = "info@prodex.org"
'ObjMail.AddAddress "info@prodex.org"
'ObjMail.AddAddress "j.mena@celdas.com"
'ObjMail.Subject = "Pedido Información Prodex"
'ObjMail.Body = mBody
'ObjMail.Send
'Set objMail = Nothing
%>
Se ha recibido su correo correctamente.
Le contestaremos a la mayor brevedad posible.
<%end if%>
<%end if%>
|
|