<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' Definizione Variabili anche per il file MENUPIATTI.ASP Dim cNomenu Dim cMessag Dim HitFile Dim HitName Dim HitTemp Dim cGenere Dim cPiatt1 Dim cPrezz1 Dim cPiatt2 Dim cPrezz2 Dim cPiatt3 Dim cPrezz3 Dim cPiatt4 Dim cPrezz4 Dim cPiatt5 Dim cPrezz5 Dim cPiatt6 Dim cPrezz6 Dim cPiatt7 Dim cPrezz7 Dim cPiatt8 Dim cPrezz8 Dim cPiatt9 Dim cPrezz9 Dim cPiatt0 Dim cPrezz0 %> <% ' File menu.txt HitFile="d:\wwwsc\locandadacondo\menu.txt" Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.OpenTextFile(HitFile) cNomenu=trim(a.ReadLine) 'cMessag=trim(a.ReadLine) cMessag=a.ReadAll a.Close Set a=Nothing Set fs=Nothing %> Documento senza titolo
locanda da condo

italianoinglese

Locanda da Condo
Piazza Fontana, 134
Tel 0438.898106 Fax 0438.989701
31010 Col S. Martino (Treviso)

Chiuso il martedì sera e tutto il mercoledì
i menù della stagione
<% Response.Write cNomenu %>
<% cGenere = 1 %>
<% cGenere = 2 %>
<% cGenere = 3 %>
<% cGenere = 4 %>
<% cGenere = 5 %>
<% cGenere = 6 %>
<% If trim( cMessag ) <> "" Then %> <% Response.Write cMessag %> <% End If %>