<%@ language=vbscript %> <% option explicit '---------------------------------------------------------- 'INCLUSIONE FILE CON COSTANTI VB-ADO UTILIZZATE NEL SEGUITO '---------------------------------------------------------- %> <% Dim PAGINA, LINGUA, ALBUM_FOTO ALBUM_FOTO = "" PAGINA = "INDEX" LINGUA = Trim(Request("LINGUA")) if LINGUA = "" then if ( request.ServerVariables ("HTTP_ACCEPT_LANGUAGE") = "it-IT" ) or ( request.ServerVariables ("HTTP_ACCEPT_LANGUAGE") = "it-it" ) OR ( request.ServerVariables ("HTTP_ACCEPT_LANGUAGE") = "it-it" )then LINGUA = "IT" else if ( request.ServerVariables ("HTTP_ACCEPT_LANGUAGE") = "en-US") then LINGUA = "EN" else if ( request.ServerVariables ("HTTP_ACCEPT_LANGUAGE") = "ru-ru") then LINGUA = "RU" else LINGUA = "EN" end if end if end if end if Dim Q_PAGINA Dim StTmp set Q_PAGINA = server.createobject("ADODB.Recordset") StTmp = "SELECT * FROM TB_PAGINE " if PAGINA <> "" then StTmp = StTmp & " WHERE NOME_PAGINA='" & PAGINA & "' " if LINGUA <> "" then StTmp = StTmp & " AND COD_NAZIONE='" & LINGUA & "' " end if end if Q_PAGINA.CursorType =adOpenStatic Q_PAGINA.open StTmp, obj_conn %> Bagno Le Forbici, stabilimento balneare a Castiglioncello ... l'incontro tra il verde e il mare <% if LINGUA="RU" then %> <% else %> <% end if %>
...l'incontro tra il verde e il mare

Bagno le forbici