%@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
%>