<% mydbstring="DBQ=" & Server.Mappath("/db/hotel.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" ' stringa DB Set rs1= Server.CreateObject("ADODB.Recordset") strSQL= "SELECT * FROM tipologie order by ordine" rs1.Open StrSQL,mydbstring,1,2,1 if not rs1.eof then ctipologie=0+rs1.recordcount session("ctipologie")=ctipologie redim tipologie(6,ctipologie) c1=0 do while not rs1.eof ' controlare esplozione array, routine di ridimensionamento c1=c1+1 tipologie(1,c1)=0+rs1("idtipologia") tipologie(2,c1)=rs1("tipologia" & session("lang")) tipologie(3,c1)=rs1("desc" & session("lang")) tipologie(4,c1)=rs1("bambino") tipologie(5,c1)=rs1("adulto") tipologie(6,c1)=0+rs1("costo") rs1.movenext loop rs1.close end if strSQL= "SELECT * FROM qstanze order by ordine asc" rs1.Open StrSQL,mydbstring,1,2,1 if not rs1.eof then cstanze=0+rs1.recordcount session("cstanze")=cstanze redim stanze(7,cstanze) c1=0 do while not rs1.eof ' controlare esplozione array, routine di ridimensionamento c1=c1+1 stanze(1,c1)=0+rs1("idcamere") stanze(2,c1)=rs1("idtipologia") stanze(3,c1)=rs1("dal") stanze(4,c1)=rs1("al") stanze(5,c1)=0+rs1("bambino") stanze(6,c1)=0+rs1("adulto") stanze(7,c1)=0+rs1("costo") rs1.movenext loop rs1.close end if strSQL= "SELECT * FROM offerte" rs1.Open StrSQL,mydbstring,1,2,1 if not rs1.eof then cofferte=0+rs1.recordcount session("cofferte")=cofferte redim offerte(6,cofferte) c1=0 do while not rs1.eof ' controlare esplozione array, routine di ridimensionamento c1=c1+1 stanze(1,c1)=0+rs1("idofferta") stanze(2,c1)=rs1("idtipologia") stanze(3,c1)=0+rs1("lastminute") stanze(4,c1)=0+rs1("dal") stanze(5,c1)=rs1("al") stanze(6,c1)=rs1("prezzopromo") rs1.movenext loop rs1.close end if strSQL= "SELECT * FROM prenotazionistanze" rs1.Open StrSQL,mydbstring,1,2,1 if not rs1.eof then cprenotazioni=rs1.recordcount redim prenotazioni(9,cprenotazioni) c1=0 do while not rs1.eof c1=c1+1 prenotazioni(1,c1)=rs1("idprenotazione") prenotazioni(2,c1)=rs1("idglobalprenotazione") prenotazioni(3,c1)=rs1("dal") prenotazioni(4,c1)=rs1("al") prenotazioni(5,c1)=rs1("prezzo") prenotazioni(6,c1)=rs1("promo") prenotazioni(7,c1)=rs1("giornipromo") prenotazioni(8,c1)=rs1("adulto") prenotazioni(9,c1)=rs1("bambino") rs1.movenext loop end if rs1.close %> Hotel Champagne
Home Presentazione Galleria Prenotazione Dove siamo Contattaci  


 
Titolo
Cognome
Nome
Azienda**
Indirizzo
Codice postale
Città
Provincia/stato**
Paese
e-mail
Telefono
Fax
 
 
Camera singola+ bambino
262 Euro
Single-standard/
doppia standard
Camera doppia+ letto aggiuntivo
546 Euro
Aria condizionata
Sveglia
Prima colazione inclusa
Giornale
Linea diretta
Asciuga capelli
Accesso internet
Lavanderia
Frigo bar
Bagno privato
Cassaforte
TV satellitare
Totale 808 Euro  
Prezzo:IVA inclusa
Prima colazione inclusa
 
Condizioni di contratto  
 
 
            italiano
            english
           français
           deutsch
           español