<% enviar = request.querystring("enviar") nombre = request("nombre") apellidos = request("apellidos") email= request("email") departamento = request("departamento") poblacion = request("poblacion") codpostal = request("codpostal") provincia = request("provincia") telefono = request("telefono") comentarios = request("comentarios") correcto = 0 on error resume next if enviar =1 then fichero = request("fichero") Set ObjMail = Server.CreateObject ("SMTPsvg.Mailer") 'definimos y configuramos sus propiedades basicas... ObjMail.FromName = "Galeria de Arte Victoria Hidalgo" ObjMail.FromAddress = "galeriadearte@victoriahidalgo.com" ObjMail.Subject = "Formulario de peticion de informacion de la Web Victoria Hidalgo.com" 'a quien enviamos el mail... (1 destinatario) ObjMail.AddRecipient "Victoria Hidalgo", "galeriadearte@victoriahidalgo.com" 'y una copia oculta para Motiva ObjMail.AddBCC "motiva", "a.rodriguez@motiva2.net" ObjMail.Priority = 1 'aqui configuramos el servidor SMTP que usamos... ObjMail.RemoteHost = "correoms.acens.net" 'formamos el cuerpo del mail cadena = "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "" cadena = cadena & "

" cadena = cadena & "FORMULARIO DE PETICION DE INFORMACION DE LA WEB" cadena = cadena & "

" cadena = cadena & "

" cadena = cadena & "Nombre : " & nombre cadena = cadena & "

" cadena = cadena & "Apellidos : " & apellidos cadena = cadena & "

" cadena = cadena & "Email : " &" " & email &"" cadena = cadena & "

" cadena = cadena & "Direccion : " & departamento cadena = cadena & "

" cadena = cadena & "Poblacion : " & poblacion cadena = cadena & "

" cadena = cadena & "Codigo Postal : " & codpostal cadena = cadena & "

" cadena = cadena & "Provincia : " & provincia cadena = cadena & "

" cadena = cadena & "Telefono : " & telefono cadena = cadena & "

" cadena = cadena & "Informacion que desea recibir : " & comentarios cadena = cadena & "

" 'cadena = cadena &"Nombre y apellidos: " & nombre &" " & apellidos & VbCrLf 'cadena = cadena &"E-Mail: " & email & VbCrLf 'cadena = cadena &"Centro de trabajo ING CarLease: " ¢ro & VbCrLf 'cadena = cadena &"Departamento: " &departamento & VbCrLf 'cadena = cadena &"Teléfono: " &telefono & VbCrLf 'cadena = cadena &"Fax: " &fax & VbCrLf 'cadena = cadena &"¿Qúe mejorarías?: " & comentario & VbCrLf 'cadena = cadena &"¿Qué sugerencias nos propones?: " &sugerencias & VbCrLf ObjMail.ContentType = "text/html" ObjMail.BodyText = cadena 'Envio del mail con chequeo... if ObjMail.SendMail then correcto = 1 set oFSO = server.createObject ("scripting.FileSystemObject") oFSO.DeleteFile server.mappath("\descargas\"&fichero), true set oFSO = nothing enviar = 0 nombre = "" apellidos = "" email= "" departamento = "" poblacion = "" codpostal = "" provincia = "" telefono = "" comentarios = "" else correcto = 2 'response.write "El correo no ha podido enviarse correctamente, vuelve a intentarlo." end if else if enviar=2 then set oFSO = server.createObject ("scripting.FileSystemObject") oFSO.DeleteFile server.mappath("\descargas\"&fichero), true if err.Number <> 0 then Response.write "Han surgido problemas. Por favor vuelva a intentarlo. " & err.Description response.End end if set oFSO = nothing fichero="" end if end if %>

Con nuestro formulario Ud. podrá requerirnos información referente a nuestra Galería, así como a cualquier exposición pasada o futuras exposiciones que se vayan a realizar en nuestras instalaciones, estaremos encantados de atenderle y recibirá nuestra contestación a la mayor brevedad.

* Nombre
* Apellidos
* E-mail
Dirección
Población
Provincia
Código Postal	Teléfono
Información que desea

(*) campos obligatorios