<%@ Language=VBScript %> <% Response.Buffer = True Response.Clear If Request("accion") = "enviar" Then Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("../db/3223430485.mdb") strVisitantes = "SELECT * FROM visitantes" Set rsVisitantes = Server.CreateObject("ADODB.Recordset") rsVisitantes.Open strVisitantes, conn, 0, 2 rsVisitantes.AddNew rsVisitantes("nombres") = Request("nombres") rsVisitantes("apellidos") = Request("apellidos") rsVisitantes("direccion") = Request("direccion") rsVisitantes("ciudad") = Request("ciudad") rsVisitantes("provincia") = Request("provincia") rsVisitantes("pais") = Request("pais") rsVisitantes("telefono") = Request("telefono") rsVisitantes("email") = Request("email") rsVisitantes("motivo") = Request("motivo") If Request("servicio") <> "" Then rsVisitantes("servicio") = Request("servicio") End If rsVisitantes("comentarios") = Request("comentarios") rsVisitantes("fecha_registro") = FormatDateTime(Now) rsVisitantes.Update Set rsVisitantes=Nothing Set conn=Nothing Dim cdosmtp, mensaje Set cdosmtp = Server.CreateObject("CDONTS.NewMail") cdosmtp.From = "fishing@pescatours.com.ec" cdosmtp.To = Request("email") cdosmtp.Subject = "Pescatours.com.ec - Confirmación de envío de Contacto" mensaje = "Gracias por navegar en nuestro web y usar este servicio. Este mensaje de correo electrónico se ha generado automáticamente." & vbCrLf & vbCrLf mensaje = mensaje & "Por favor NO responda a este mensaje." & vbCrLf & vbCrLf mensaje = mensaje & "Los datos ingresados son:" & vbCrLf & vbCrLf mensaje = mensaje & "==============================================" & vbCrLf & vbCrLf mensaje = mensaje & "Nombres: " & Request("nombres") & vbCrLf mensaje = mensaje & "Apellidos: " & Request("apellidos") & vbCrLf mensaje = mensaje & "Dirección: " & Request("direccion") & vbCrLf mensaje = mensaje & "Ciudad: " & Request("ciudad") & vbCrLf mensaje = mensaje & "Provincia: " & Request("provincia") & vbCrLf mensaje = mensaje & "País: " & Request("pais") & vbCrLf mensaje = mensaje & "Teléfono: " & Request("telefono") & vbCrLf mensaje = mensaje & "Email: " & Request("email") & vbCrLf mensaje = mensaje & "Motivo: " & Request("motivo") & vbCrLf If Request("servicio") <> "" Then mensaje = mensaje & "Servicio: " & Request("servicio") & vbCrLf End If mensaje = mensaje & "Comentarios: " & Request("comentarios") & vbCrLf mensaje = mensaje & "Fecha de registro: " & FormatDateTime(Now) & vbCrLf & vbCrLf mensaje = mensaje & "==============================================" & vbCrLf cdosmtp.Body = mensaje On Error Resume Next cdosmtp.Send() Set cdosmtp=Nothing mensaje = "" Dim envio_emails Set cdosmtp = Server.CreateObject("CDONTS.NewMail") cdosmtp.From = "fishing@pescatours.com.ec" cdosmtp.To = "fishing@pescatours.com.ec, yalilag@hotmail.com" cdosmtp.Subject = "Pescatours.com.ec - Mensaje de Contacto: " & Request("nombres") & " " & Request("apellidos") mensaje = mensaje & "Los datos ingresados son:" & vbCrLf & vbCrLf mensaje = mensaje & "==============================================" & vbCrLf & vbCrLf mensaje = mensaje & "Nombres: " & Request("nombres") & vbCrLf mensaje = mensaje & "Apellidos: " & Request("apellidos") & vbCrLf mensaje = mensaje & "Dirección: " & Request("direccion") & vbCrLf mensaje = mensaje & "Ciudad: " & Request("ciudad") & vbCrLf mensaje = mensaje & "Provincia: " & Request("provincia") & vbCrLf mensaje = mensaje & "País: " & Request("pais") & vbCrLf mensaje = mensaje & "Teléfono: " & Request("telefono") & vbCrLf mensaje = mensaje & "Email: " & Request("email") & vbCrLf mensaje = mensaje & "Motivo: " & Request("motivo") & vbCrLf If Request("servicio") <> "" Then mensaje = mensaje & "Servicio: " & Request("servicio") & vbCrLf End If mensaje = mensaje & "Comentarios: " & Request("comentarios") & vbCrLf mensaje = mensaje & "Fecha de registro: " & FormatDateTime(Now) & vbCrLf & vbCrLf mensaje = mensaje & "==============================================" & vbCrLf cdosmtp.Body = mensaje On Error Resume Next cdosmtp.Send() If Err Then Set cdosmtp=Nothing Response.Redirect "contactos.asp?error=2" End If bguardar = true Set cdosmtp=Nothing End If %> Pescatours - Contáctenos

Las Embarcaciones

Nuestra flota
Le presentamos a nuestra flota de tres embarcaciones listas para tener un día de pesca excepcional. De click aquí

Sobre Pescatours

Historia
Pescatours fue fundado en el año 1968 por Knud Holst Dunn, danés aficionado a la pesca quién bajo el impulso de sus amigos transforma su hobby favorito en un negocio.
La empresa logró tener hasta doce embarcaciones de diferentes tamaños al servicio de sus clientes. Saber más
 
  <% If bguardar Then %>

Estimado(a) <% = Request("nombres") %>:

Pronto nos contactaremos con usted.

Lo invitamos a seguir navegando en nuestro sitio Web.

<% Else %> <% If Request("error") = 2 Then %>

Error: El formulario no pudo enviarse vía email por algún problema del servidor.

Le pedimos vuelva a intentar más tarde. Mil disculpas!

<% End If %>

Escribanos

Estamos para servirlo! A continuación usted encontrará un formulario en el cual puede enviarnos todas sus inquietudes, si necesita cotizar un servicio nuestro por favor Elija la Opción de Cotización y luego el Tipo de Servicio que desea cotizar. Al final de esta página encontrará nuestros teléfonos, estaremos gustosos en atenderlo!

Los campos con * son obligatorios.

Datos personales:
Nombres: *
Apellidos: *
Dirección: *
Ciudad: *
Provincia: *
País: *
Teléfono: *
Email: *
Elija una opción: *
Si es Cotización,
Elija el Tipo de Servicio;
Si es Queja,
Elija el Tipo de Queja:
Comentarios: *
       

<% End If %>

 
 

Salinas Ecuador
Las costas de Salinas son ideales para la pesca deportiva, no dude en viajar, nosotros le programamos todo para que usted sólo disfrute del viaje.

Destino diversión

Pescatours Ecuador
Guayaquil +593 (4) 2443365 · Salinas: +593 (4) 2772391
fishing@pescatours.com.ec