<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim news__MMColParam news__MMColParam = "1" If (Request.QueryString("id") <> "") Then news__MMColParam = Request.QueryString("id") End If %> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_flashcat_STRING news.Source = "SELECT * FROM news WHERE id = " + Replace(news__MMColParam, "'", "''") + "" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %>

<%if Request.QueryString("lang")="it" then%> <%if news.Fields.Item("immagini1")<> "" then%>"><%else%><%end if%> <%if news.Fields.Item("immagini2")<> "" then%> "> <%else%> <%end if%> <%if news.Fields.Item("immagini3")<> "" then%> "> <%else%> <%end if%> <%= DoDateTime((news.Fields.Item("data").Value), 1, 1040) %> - <%=(news.Fields.Item("news").Value)%> <%=(news.Fields.Item("messaggio").Value)%>   chiudi X | stampa <%elseif Request.QueryString("lang")="en" then%> <%if news.Fields.Item("immagini1")<> "" then%> "> <%else%> <%end if%> <%if news.Fields.Item("immagini2")<> "" then%> "> <%else%> <%end if%> <%if news.Fields.Item("immagini3")<> "" then%> "> <%else%> <%end if%> <%= DoDateTime((news.Fields.Item("data").Value), 1, 1033) %> - <%=(news.Fields.Item("eng_news").Value)%> <%=(news.Fields.Item("eng_messaggio").Value)%>   chiudi X | stampa <%else%> <%if news.Fields.Item("immagini1")<> "" then%> "> <%else%> <%end if%> <%if news.Fields.Item("immagini2")<> "" then%> "> <%else%> <%end if%> <%if news.Fields.Item("immagini3")<> "" then%> "> <%else%> <%end if%> <%= DoDateTime((news.Fields.Item("data").Value), 1, 1040) %> - <%=(news.Fields.Item("news").Value)%> <%=(news.Fields.Item("messaggio").Value)%>   chiudi X | stampa <%end if%>

<% news.Close() Set news = Nothing %>