<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Option Explicit%> <% Dim Conn,rs,sql,lang,lng,anno,titolo_1,titolo_2,titolo_3,footer,sinistra lng = Request.QueryString("lng") 'Dim Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dati/vilsmart.mdb;Persist Security Info = False") Set RS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * From testo" RS.Open SQL, Conn, adOpenStatic, adLockOptimistic If Not RS.EOF Then titolo_1 = RS("titolo_1"&lng) titolo_2 = RS("titolo_2"&lng) titolo_3 = RS("titolo_3"&lng) sinistra = RS("left"&lng) footer = Replace(RS("footer"&lng), vbCrLf, "
" ) End If RS.Close Set RS = Nothing Set RS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * From tariffe" RS.Open SQL, Conn, adOpenStatic, adLockOptimistic 'If Not RS.EOF Then %> Villa San Martino - Barberino Mugello, Toscana.
<%If lng = "it" Then%>
<%Else%>
<%End If%>


<%=sinistra%>


<%=titolo_1%>
<%=titolo_2%>

<%=titolo_3%>

<%Do While Not RS.EOF%> <% RS.MoveNext Loop RS.Close Set RS = Nothing %>
<%=RS("mese")%><%'=anno%>
<%=RS("g1")%>. <%=RS("t1")%>
<%=RS("g2")%>. <%=RS("t2")%>
<%=RS("g3")%>. <%=RS("t3")%>
<%=RS("g4")%>. <%=RS("t4")%>
<%=RS("g5")%>. <%=RS("t5")%>


<%=footer%>