<%@LANGUAGE="VBSCRIPT" LCID="1034"%> <% cSQL = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\..\DB\carabelas.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open cSQL Dim cadSQL Dim errTxt Set rsTipos = Server.CreateObject("ADODB.Recordset") rsTipos.ActiveConnection = conn rsTipos.Source = "SELECT tip_ms.tip_cod, tip_des FROM tip_ms INNER JOIN apart_tip ON tip_ms.tip_cod = apart_tip.tip_cod WHERE apart_cod = 2" rsTipos.CursorType = 1 rsTipos.LockType = 3 rsTipos.Open() if Request.QueryString("Error") <> "" then select case Request.QueryString("Error") case "errNomApe" errTxt = "El Nombre/Apellido es obligatorio" case "errFormatoFechaInicio" errTxt = "La fecha de inicio no es una fecha válida" case "errFormatoFechaFin" errTxt = "La fecha de fin no es una fecha válida" case "errFormatoFechaInicio" errTxt = "La fecha de inicio no es una fecha válida" case "errTelefono" errTxt = "Por favor, introduzca su número de teléfono o corrija el formato" case "errCorre" errTxt = "Por favor, introduzca una dirección de e-mail correcta" end select end if %> Ver_apartamentos
 
Si quiere contactar con nosotros puede hacerlo utilizando los datos que les facilitamos a continuación.



Avda. Filipinas, 9
03503 Benidorm (Alicante)
España

Tlf.: 00 34 96 586 30 69

Fax: 00 34 96 586 20 65



©2003, Apartmentos Trébol. Todos los derechos reservados.
Página optimizada para una resolución de 800x600 pixels.