Affitta da noi l'imbarcazione che hai sempre desiderato,per una vacanza da sogno.

La Century Holiday, è in grado di offrirti una vastissima scelta di modelli di imbarcazioni.Da noi potrai trovare il natante che meglio risponde alle tue esigenze, con oppure senza equipaggio, da due posti letto a quanti posti vuoi tu, a vela o a motore. Siamo in grado di offrirti un servizio di altissima qualità a costi competitivi. Chiamaci per avere un preventivo gratuito, ed intanto dai un'occhiata alle offerte sotto elencate...

Barche a vela    Catamarani     Barche a motore     House boat     Kayak





<% 'predisposizione per la lettura dal db dim rs, conn, sql Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString ="driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("../../../../db/easyholiday.mdb") conn.Open sql = "select * from yacht where area ='italia' order by localita" set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, conn '------------------------------------ if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------- Do while Not rs.EOF localita = rs("localita") if (localita <> localitaprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una localita response.write ("") response.write localita response.write ("") localitaprima = localita else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop if rs.EOF then rs.MoveFirst end if response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") 'response.write rs("codint") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
") response.write rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if '--------- rs.close %>
---> torna alla Cartina generale














<% 'predisposizione per la lettura dal db sql = "select * from yacht where area ='europa' order by stato" rs.Open SQL, conn if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ Do while Not rs.EOF stato = rs("stato") if (stato <> statoprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una regione response.write ("") response.write stato response.write ("") statoprima = stato else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop rs.MoveFirst response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
" & "") response.write rs("stato") & " - " & rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if rs.close %>
---> torna alla Cartina generale














<% 'predisposizione per la lettura dal db sql = "select * from yacht where area ='mediterraneo' order by stato" rs.Open SQL, conn if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ Do while Not rs.EOF stato = rs("stato") if (stato <> statoprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una regione response.write ("") response.write stato response.write ("") statoprima = stato else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop rs.MoveFirst response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
" & "") response.write rs("stato") & " - " & rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if rs.close %>
---> torna alla Cartina generale
















<% 'predisposizione per la lettura dal db sql = "select * from yacht where area ='nordamerica' order by stato" rs.Open SQL, conn if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ Do while Not rs.EOF stato = rs("stato") if (stato <> statoprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una regione response.write ("") response.write stato response.write ("") statoprima = stato else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop rs.MoveFirst response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
" & "") response.write rs("stato") & " - " & rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if rs.close %>
---> torna alla Cartina generale
















<% 'predisposizione per la lettura dal db sql = "select * from yacht where area ='caraibi' order by stato" rs.Open SQL, conn if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ Do while Not rs.EOF stato = rs("stato") if (stato <> statoprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una regione response.write ("") response.write stato response.write ("") statoprima = stato else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop rs.MoveFirst response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
" & "") response.write rs("stato") & " - " & rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if rs.close %>
---> torna alla Cartina generale
















<% 'predisposizione per la lettura dal db sql = "select * from yacht where area ='sudamerica' order by stato" rs.Open SQL, conn if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ Do while Not rs.EOF stato = rs("stato") if (stato <> statoprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una regione response.write ("") response.write stato response.write ("") statoprima = stato else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop rs.MoveFirst response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
" & "") response.write rs("stato") & " - " & rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if rs.close %>
---> torna alla Cartina generale
















<% 'predisposizione per la lettura dal db sql = "select * from yacht where area ='africa' order by stato" rs.Open SQL, conn if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ Do while Not rs.EOF stato = rs("stato") if (stato <> statoprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una regione response.write ("") response.write stato response.write ("") statoprima = stato else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop rs.MoveFirst response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
" & "") response.write rs("stato") & " - " & rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if rs.close %>
---> torna alla Cartina generale
















<% 'predisposizione per la lettura dal db sql = "select * from yacht where area ='oceania' order by stato" rs.Open SQL, conn if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ Do while Not rs.EOF stato = rs("stato") if (stato <> statoprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una regione response.write ("") response.write stato response.write ("") statoprima = stato else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop rs.MoveFirst response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
" & "") response.write rs("stato") & " - " & rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if rs.close %>
---> torna alla Cartina generale
















<% 'predisposizione per la lettura dal db sql = "select * from yacht where area ='australia' order by stato" rs.Open SQL, conn if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ Do while Not rs.EOF stato = rs("stato") if (stato <> statoprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una regione response.write ("") response.write stato response.write ("") statoprima = stato else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop rs.MoveFirst response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
" & "") response.write rs("stato") & " - " & rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if rs.close %>
---> torna alla Cartina generale
















<% 'predisposizione per la lettura dal db sql = "select * from yacht where area ='asia' order by stato" rs.Open SQL, conn if not (rs.eof and rs.bof) then ' mi controlla se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ Do while Not rs.EOF stato = rs("stato") if (stato <> statoprima ) then pippo = 1 ' mi serve solo per sapere se ho aggiunto il nome di una regione response.write ("") response.write stato response.write ("") statoprima = stato else pippo = 2 end if rs.MoveNext if ( pippo = 1 ) then response.write (" - ") end if Loop rs.MoveFirst response.write (" ") Do while Not rs.EOF ' incomincio a intabellare response.write ("") ' fine di intabellare rs.MoveNext Loop response.write ("

Basi di imbarco	Nome dell'imbarcazione	Caratteristiche dell'imbarcazione	Noleggio	Equipaggio	dettaglio
" & "") response.write rs("stato") & " - " & rs("localita") response.write ("	") response.write rs("imbarcazione") response.write ("	") response.write rs("caratteristiche") response.write ("	") response.write rs("permin") response.write ("	") response.write rs("equipaggio") response.write ("	") response.write ("") response.write ("") response.write ("

") ' fine controllo se ci sono campi '------------------------------------------------------------------------------------------------------------------------------------ end if rs.close '-------------------------------------------------------------------------------------------------- set rs = nothing set conn = nothing %> ---> torna alla Cartina generale