Ecoalbergo "Modus Vivendi" - Abbateggio (Pe)

<% Set bannerfile1 = CreateObject("Scripting.FileSystemObject") Set bannerfile2 = bannerfile1.GetFolder(server.mappath("public/banner")) Set bannerfile3 = bannerfile2.Files i=0 For Each file in bannerfile3 i=i+1 NEXT Dim banneroggettoBSOa, banneroggettoFileBannera 'variabili identificative degli oggetti BSO e File Dim bannerNomeFileBannera Dim bannervarContBanna bannerNomeFileBannera = Server.Mappath(Request.ServerVariables("banner") & "public/counters/banner.cnt") Set banneroggettoBSOa = Server.CreateObject("Scripting.FileSystemObject") Set banneroggettoFileBannera = banneroggettoBSOa.OpenTextFile(bannerNomeFileBannera, 1, True) bannervarContBanna = CLng(banneroggettoFileBannera.ReadAll) If Not banneroggettoFileBannera.AtEndOfStream Then bannervarContBanna = CLng(banneroggettoFileBannera.ReadAll) END IF IF i < bannervarContBanna THEN bannervarContBanna = i END IF Set bannerfile1 = CreateObject("Scripting.FileSystemObject") Set bannerfile2 = bannerfile1.GetFolder(server.mappath("public/banner")) Set bannerfile3 = bannerfile2.Files i=0 For Each file in bannerfile3 i=i+1 IF bannervarContBanna = i THEN %> <% END IF NEXT banneroggettoFileBannera.Close Set banneroggettoFileBannera = Nothing IF bannervarContBanna = i THEN bannervarContBanna = 1 ELSEIF i = 0 THEN bannervarContBanna = 1 ELSE bannervarContBanna = bannervarContBanna + 1 END IF Set banneroggettoFileBannera = banneroggettoBSOa.CreateTextFile(bannerNomeFileBannera, True) banneroggettoFileBannera.Write bannervarContBanna banneroggettoFileBannera.Close Set banneroggettoFileBannear = Nothing Set banneroggettoBSOa = Nothing %>

chi siamo | contatti | come raggiungerci | prenotazioni | e-mail

<%=giorno%>, <%=dataGiorno%> <%=nomeMese%> <%=dataAnno%>

Modus

	Camere
	Appartamenti
	Ristorante
	Listino prezzi
	Servizi
	Contatti
	Dove siamo
	News
	Prenotazioni
	Last Minute
	Foto Gallery
	Gallery la casa ecologica

Attività

Educazione ambientale
"Visita la casa ecologica"

Territorio

Eventi e manifestazioni

Parco Naz. della Majella

Link

<% ' Get modus sqlString = " Select * " &_ "FROM testi " &_ "WHERE testi_tipo = 'modus' " SET homeRS = Con.Execute( sqlString ) %>

<% strVarDiary = homeRS("testi_desc") if Len(strVarDiary) > 610 then strVarDiary = left(strVarDiary,610) & "..." Response.Write strVarDiary homeRS.close set homeRS = nothing %>

continua

Ecoalbergo

<% ' Get ecoalbergo sqlString = " Select * " &_ "FROM testi " &_ "WHERE testi_tipo = 'ecoalbergo' " SET homeRS = Con.Execute( sqlString ) %>

<% strVarDiary = homeRS("testi_desc") if Len(strVarDiary) > 480 then strVarDiary = left(strVarDiary,480) & "..." Response.Write strVarDiary homeRS.close set homeRS = nothing %>

continua

Modus a tavola

<% ' Get a tavola sqlString = " Select * " &_ "FROM testi " &_ "WHERE testi_tipo = 'tavola' " SET homeRS = Con.Execute( sqlString ) %>

<% strVarDiary = homeRS("testi_desc") if Len(strVarDiary) > 440 then strVarDiary = left(strVarDiary,440) & "..." Response.Write strVarDiary homeRS.close set homeRS = nothing %>

continua

Last minute

Modus Vivendi - Via Colle della Selva, 5 - 65020 Abbateggio (Pe) - tel. e fax +39.085.8572136 - Cell. 393.7153548

Synapsi Edizioni 2006