<%@LANGUAGE="VBSCRIPT"%> <% Dim immagini__MMColParam immagini__MMColParam = "1" If (Request.QueryString("ID") <> "") Then immagini__MMColParam = Request.QueryString("ID") End If %> <% Dim immagini Dim immagini_numRows Set immagini = Server.CreateObject("ADODB.Recordset") immagini.ActiveConnection = MM_torreggiani_STRING immagini.Source = "SELECT ID, titolo, foto, css01, sezione, sottosezione, data FROM news WHERE ID = " + Replace(immagini__MMColParam, "'", "''") + "" immagini.CursorType = 0 immagini.CursorLocation = 2 immagini.LockType = 1 immagini.Open() immagini_numRows = 0 %> :: Torreggiani.it :: Arte : Antiquariato : Artigianato : Arredo : Montefeltro ::
:: <%=(immagini.Fields.Item("titolo").Value)%>
[ <%=(immagini.Fields.Item("data").Value)%> ]
:: sezione [ <%=(immagini.Fields.Item("sezione").Value)%> ]
:: sottosezione <%=(immagini.Fields.Item("sottosezione").Value)%>  ]
<%if (immagini.Fields.Item("css01").Value) = "Grigio" then%>
    
<%elseif (immagini.Fields.Item("css01").Value) = "Azzurro" then%>
    
<%elseif (immagini.Fields.Item("css01").Value) = "Verde" then%>
    
<%else%>
   
<%end if%>
<<%=(immagini.Fields.Item("foto").Value)%> align=center border=0">

<%if (immagini.Fields.Item("css01").Value) = "Grigio" then%>
    
<%elseif (immagini.Fields.Item("css01").Value) = "Azzurro" then%>
    
<%elseif (immagini.Fields.Item("css01").Value) = "Verde" then%>
    
<%else%>
   
<%end if%>

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