<% Response.Buffer = True Dim nombre, asunto, comentarios, correo, error, msg error=0 msg="" if Request.Form("empresa") <> "" then empresa=Request.Form("empresa") else msg="Debe poner el nombre de la empresa
" error=1 end if if Request.Form("nombre") <> "" then nombre=Request.Form("nombre") else msg=msg&"Debe poner el nombre de contacto
" error=1 end if if error=0 then if Request.Form("direccion") <> "" then direccion=Request.Form("direccion") else direccion="sin dirección" end if if Request.Form("localidad") <> "" then localidad=Request.Form("localidad") else localidad="sin localidad" end if if Request.Form("codigo") <> "" then codigo=Request.Form("codigo") else codigo="sin codigo" end if if Request.Form("provincia") <> "" then provincia=Request.Form("provincia") else provincia="sin provincia" end if if Request.Form("telefono") <> "" then telefono=Request.Form("telefono") else telefono="sin telefono" end if if Request.Form("email") <> "" then email=Request.Form("email") else email="info@glengarrylimpiezas.com" end if if Request.Form("m2") <> "" then m2=Request.Form("m2") else m2="sin m2" end if respuesta=Request.Form("rresp") if Request.Form("Comentarios") <> "" then comentarios=Request.Form("Comentarios") else comentarios="sin comentarios" end if if Request.Form("correo") <> "" then correo=Request.Form("correo") else correo="desconocido" end if if Request.Form("Asunto") <> "otro" then asunto=Request.Form("Asunto") else if Request.Form("Otro") <> "" then asunto=Request.Form("Otro") else asunto="sin asunto" end if end if tmp = "Solicitud de información de: " & VbCrLf & VbCrLf & _ "Empresa : "& empresa & VbCrLf & _ "Nombre de contacto: " & nombre & VbCrLf & _ "Dirección : " & direccion & VbCrLf & _ "Localidad : " & localidad & VbCrLf & _ "Código postal : " & codigo & VbCrLf & _ "Provincia : " & provincia & VbCrLf & _ "Teléfono : " & telefono & VbCrLf & _ "e-mail : " & email & VbCrLf & _ "m2 : " & m2 & VbCrLf & _ "Rec. respuesta por: " & respuesta & VbCrLf & _ "Información sobre : " & VbCrLf & _ Request.Form("inf1") & VbCrLf & _ Request.Form("inf2") & VbCrLf & _ Request.Form("inf3") & VbCrLf & VbCrLf & _ "Otro tipo de inf. : " & VbCrLf & _ Request.Form("otro") & VbCrLf & VbCrLf & _ "Observaciones : " & VbCrLf & _ Request.Form("observaciones") & VbCrLf tmpasunto = "SOLICITUD INFO desde glengarrylimpiezas.com " Set objNewMail = Server.CreateObject("Persits.MailSender") objNewMail.Host = "localhost" objNewMail.From = email objNewMail.AddAddress "info@glengarrylimpiezas.com" objNewMail.Subject = tmpasunto objNewMail.Body = tmp On Error Resume Next objNewMail.Send If Err <> 0 Then msg="Se ha producido un error: "& Err.Description else msg="MENSAJE ENVIADO CORRECTAMENTE, muchas gracias." End If set objNewMail = Nothing else msg=msg&"MENSAJE NO ENVIADO

Volver al formulario" end if %> Seriedad - Garantía Glengarry Limpiezas, S.L.

Presupuestos

<%=msg%>
Aviso Legal - Protección de datos

GLENGARRY LIMPIEZAS, S.L.
C/ Cuenca 115-bajo 46007-Valencia
Tfno.: 96-341.41.46 Fax: 96-310.72.49
Móvil oficina: 676-49.00.03
Móvil Alicante-Castellón-Murcia: 629-68.84.91
e-mail: info@glengarrylimpiezas.com

última actualización: 28/04/2012

Diseño web: EmpresaWWW.com