<% If Request("enviar") = "OK" Then 'Response.Write "sendcorreo" 'Response.End SendCorreo ELSE %>
QUIENES SOMOS
CONTACTO
   inicio>contacto
         CONTACTO  
 
 
  Estamos ubicados en Palencia en C/ Tejedores N9, CP 34004, Palencia
  • C.P.: 34004
  • Localidad: PALENCIA
  • Provincia: PALENCIA
  • Tlf: 979 713 571 , móvil :610 477 123
  • Fax: 979 713 571
  • Correo eletrónico: cercapal@cercapal.es

Si lo prefiere puede contactar con nosotros a traves del siguiente formulario:

*Nombre y Apellidos:
* Teléfono:
* Provincia:
e-mail:
Comentarios:
*debe introducir dichos campos
Le informamos que los datos personales obtenidos mediante este formulario, así como su dirección de correo electrónico, han sido incorporados en un fichero del cual es responsable CERCAS Y CERRAMIENTOS PALENCIA S.L., con la finalidad de atender sus consultas y enviarle información relacionada con la entidad que pudiera ser de su interés.

CERCAS Y CERRAMIENTOS PALENCIA S.L. se compromete a usar los datos recogidos mediante este formulario, únicamente para la finalidad antes mencionada.

El interesado declara tener conocimiento del destino y uso de los datos personales recogidos mediante la lectura de la presente cláusula.

El envío de este e-mail implica la aceptación de las cláusulas expuestas.

Si desea ejercer los derechos de acceso, rectificación, cancelación u oposición en los términos establecidos en la Ley Orgánica 15 / 1999, puede hacerlo a la siguiente dirección CERCAS Y CERRAMIENTOS PALENCIA S.L.; C/ TEJEDORES Nº 9, 34004 PALENCIA.
 
<% End If Sub SendCorreo 'Dim objCDO 'Set objCDO = Server.CreateObject("CDONTS.NewMail") 'objCDO.From = "cercapal@cercapal.com" 'objCDO.To = "cercapal@cercapal.com, alfredoval@geriatricas.com" 'objCDO.Subject = "Contacto desde Cercapal" 'aux = "datos:" 'for each var in Request.Form ' if var <>"enviar" and var <> "submit" then ' aux=aux +var + "="+ request.Form(var) + vbCrlf ' end if 'next 'objCDO.Body = aux 'objCDO.Send() 'Set objCDO = Nothing Dim Mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.viasolar.net" Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto. Mail.Username = "ocf199c" Mail.Password = "Sebas1991" Mail.From = "envio@viasolar.net" Mail.FromName = "Desde www.cercapal.es" ' Opcional Mail.Subject = "Contacto desde la web" aux = "inscripcion" for each var in Request.Form if var <>"enviar" and var <> "submit" then aux=aux & var & "=" & request.Form(var) & "
" end if next Mail.Body = aux Mail.IsHTML = True Mail.AddAddress "cercapal@cercapal.es" Mail.AddBcc "kelo@khn.es" 'On Error Resume Next Mail.Send ' Mail.SendToQueue If Err <> 0 Then Response.Write "An error occurred: " & Err.Description End If Response.Redirect("contacto_correcto.htm") End Sub %>