<%@LANGUAGE=VBScript%> <% Dim hotel(50): dim categoria(50): dim plazas(50): dim direccion(50): dim telefono(50) dim contacto(50): dim url(50): dim mail(50): dim BanoIndiA (50): dim BanoIndiB(50): dim LavaboIndiA(50) dim LavaboIndiB(50): dim BanoDobleA(50): dim BanoDobleB(50): dim LavaboDobleA(50): dim LavaboDobleB(50) dim LavaboDobleC(50): dim Desayuno(50) Set miconexion = Server.CreateObject("ADODB.Connection") miconexion.ConnectionString = "DSN=servidoraguilas.com.agturismo" miconexion.Open Set rs= Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = miconexion rs.source="Hoteles" rs.CursorType = adOpenKeySet rs.open rs.MoveFirst x=0 do while not rs.eof x=x+1 categoria(x)=rs("Categoria") hotel(x)=rs("Hotel") plazas(x)=rs("Plazas") direccion(x)=rs("Direccion") telefono(x)=rs("Telefono") contacto(x)=rs("Contacto") url(x)=rs("URL") mail(x)=rs("Mail") BanoIndiA(x)=rs("BanoIndiA") BanoIndiB(x)=rs("BanoIndiB") LavaboIndiA(x)=rs("LavaboIndiA") LavaboIndiB(x)=rs("LavaboIndiB") BanoDobleA(x)=rs("BanoDobleA") BanoDobleB(x)=rs("BanoDobleB") LavaboDobleA(x)=rs("LavaboDobleA") LavaboDobleB(x)=rs("LavaboDobleB") LavaboDobleC(x)=rs("LavaboDobleC") Desayuno(x)=rs("Desayuno") rs.movenext loop rs.close miconexion.Close %> Oficina de Turismo de Águilas

      

 

 

 

 
     
   

* * * *

    
                 

CALA REAL                          Web

C/ Aire, 99 – Telf. 968 414 562

DON JUAN                            Web

Avda. Polideportivo, 1. Telf. 968 493493
 
 
   

* * *

    
 

CARLOS III                           Web

Rey Carlos III, 22-Tlf.968 411650

EL PASO                                 Web

C/ Cartagena, 13-Tlf.968 447125

 

   

* *

    

MADRID

Pza.Robles Vives ,4- Tlf. 968 41 11 09

EL PARAISO                           Web

Ctra.Cope Calabardina, 13  Tlf. 968 419444

AL SUR

Torre de Cope,24-Tlf.968 41 94 66

DON MIGUEL                        Web

Paraje Las Canteras, s/n.Tlf. 968 49 30 15