<% 'Creo un array di appoggio per le lingue Dim ArLan(3) ArLan(0) = "ita; Italiano" ArLan(1) = "eng; English" ArLan(2) = "deu; Deutsche" ArLan(3) = "fra; Francais" 'Creo un array di appoggio per i contenuti Dim ArCont(8) ArCont(0) = "2;General information" ArCont(1) = "3;Last minute" ArCont(2) = "4;News" ArCont(3) = "7;Events" ArCont(4) = "8;What to do once there" ArCont(5) = "9;Tour" ArCont(6) = "10;Focus on" ArCont(7) = "11;About us" j=0 do while j <= 3 ArSingleLang = split(ArLan(j), ";") lan = ArSingleLang(0) LanTitle = ArSingleLang(1) %>

<% i=0 do while i <= 7 ArSingleCont = split(ArCont(i), ";") idT = ArSingleCont(0) ContTitle = ArSingleCont(1) 'response.Write(idT) 'response.End() if idT <> "" then strSql = "select * from content where iCat = " & idT & " and cLang = '_" & lan & "'" 'response.Write(strSql) 'response.End() set rsCont = conn.execute(strSql) if not rsCont.eof then %>

<% while not rsCont.eof strTitolCont = rsCont("title") strSubTitolCont = rsCont("subtitle") strTitle = rsCont("htmlTitle") strDescr = rsCont("htmlDescr") strKey = rsCont("htmlKey") strContent = rsCont("Content") cLang = rsCont("cLang") iCat = rsCont("iCat") idCorrelata = rsCont("idCorrelata") PostiLetto = rsCont("PostiLetto") BassaStagione = rsCont("BassaStagione") MediaStagione = rsCont("MediaStagione") AltaStagione = rsCont("AltaStagione") WeekEnd = rsCont("WeekEnd") if lan = "ita" then strId = rsCont("idCont") else strId = rsCont("idCorrelata") end if %> <%=strTitolCont%> <%=strDescr%> <% rsCont.movenext wend end if rsCont.close set rsCont = nothing end if i = i + 1 loop j = j + 1 loop %>