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