%@LANGUAGE="VBSCRIPT"%> <% Dim mostra2005__MMColParam mostra2005__MMColParam = "1" If (Request.QueryString("IdRecord") <> "") Then mostra2005__MMColParam = Request.QueryString("IdRecord") End If %> <% Dim mostra2005 Dim mostra2005_numRows Set mostra2005 = Server.CreateObject("ADODB.Recordset") mostra2005.ActiveConnection = MM_amici_STRING mostra2005.Source = "SELECT * FROM artista WHERE IdRecord = '" + Replace(mostra2005__MMColParam, "'", "''") + "' ORDER BY titoloquadro ASC" mostra2005.CursorType = 0 mostra2005.CursorLocation = 2 mostra2005.LockType = 1 mostra2005.Open() mostra2005_numRows = 0 %>
" alt="<%=(mostra2005.Fields.Item("titoloquadro").Value)%>" />
<%=(mostra2005.Fields.Item("tecnica").Value)%>
<%=(mostra2005.Fields.Item("anno").Value)%>
<%=(mostra2005.Fields.Item("nome").Value)%>
<%=(mostra2005.Fields.Item("citt�").Value)%>
<%=(mostra2005.Fields.Item("testo1").Value)%>
<%=(mostra2005.Fields.Item("testo2").Value)%>
<%=(mostra2005.Fields.Item("premi").Value)%>