<%@ Language = "VBScript" %>
<%
Response.Buffer = True
Response.Expires = 0
'--- Relevando encabezado
Dim st
st = Request.Form("st")
If st = "enviar" Then
Dim valido
valido = True
'--- Verificando campos requeridos
Dim lReq, nReq
lReq = "nombre, direccion, localidad, email, comentarios"
nReq = "Nombre, Dirección, Localidad, e-mail, Comentarios"
lReq = Split(lReq, ", ", -1)
nReq = Split(nreq, ", ", -1)
Dim i
For i = 0 To UBound(lReq)
If IsEmpty(Request.Form(lReq(i))) Or Request.Form(lReq(i)) = "" Then
valido = False
strErr = strErr & nReq(i) & " "
End If
Next
If Request.Form("email") <> "" And InStr(Request.Form("email"), "@") = 0 Then
valido = False
strErr = strErr & "La dirección de e-mail no es válida"
Else
If Request.Form("email") <> "" And InStr(Request.Form("email"), ".") = 0 Then
valido = False
strErr = strErr & "La dirección de e-mail no es válida"
End If
End If
'--- Relevando datos del Formulario
If valido Then
dim lForm, nForm
lForm = "nombre, empresa, direccion, localidad, cp, pais, telefono, fax, email, comentarios"
nForm = "Nombre, Empresa, Dirección, Localidad, C.P., País, Teléfono, Fax, e-mail, Comentarios"
lForm = Split(lForm, ", ", -1)
nForm = Split(nForm, ", ", -1)
Dim j, cuerpo
cuerpo = "Formulario enviado por " & Request.Form("nombre") & " el día " &_
Day(date) & "/" & Month(date) & "/" & Year(date) & " a las " & Hour(now) & ":" & Minute(now) & " Hs.
" &_
"Los datos ingresados son los siguientes:
"
For j = 0 To UBound(lForm)
cuerpo = cuerpo & "" & nForm(j) & ": "
If Not IsEmpty(Request.Form(lForm(j))) And Request.Form(lForm(j)) <> "" Then
cuerpo = cuerpo & Request.Form(lForm(j))
Else
cuerpo = cuerpo & "---"
End If
cuerpo = cuerpo & " "
Next
'--- Enviando datos
Dim objMailer
Set objMailer = Server.CreateObject("CDONTS.NewMail")
objMailer.From = Request.Form("email")
objMailer.To = "sasa@sarasa.com"
objMailer.Subject = "Contacto FERCAM"
objMailer.Body = cuerpo
objMailer.BodyFormat = CdoBodyFormatHTML
objMailer.Importance = CdoNormal
objMailer.Send
Set objMailer = Nothing
End If
End If
%>
Grimaco - Ingeniería en Construcciones - Contáctenos
<% If st <> "enviar" Then %>
Si desea conocer más detalles, escríbanos.
Los campos marcados con (*)
son de ingreso obligatorio.
<% Else %>
<% If valido Then %>
El formulario ha sido enviado con éxito.
Gracias por su interés, <%= Request.Form("nombre") %>.
