<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim artista__MMColParam
artista__MMColParam = "1"
If (Request.QueryString("IdRecord") <> "") Then
artista__MMColParam = Request.QueryString("IdRecord")
End If
%>
<%
Dim artista
Dim artista_cmd
Dim artista_numRows
Set artista_cmd = Server.CreateObject ("ADODB.Command")
artista_cmd.ActiveConnection = MM_amici_STRING
artista_cmd.CommandText = "SELECT * FROM artista WHERE IdRecord = ?"
artista_cmd.Prepared = true
artista_cmd.Parameters.Append artista_cmd.CreateParameter("param1", 200, 1, 10, artista__MMColParam) ' adVarChar
Set artista = artista_cmd.Execute
artista_numRows = 0
%>
<%=(artista.Fields.Item("titoloquadro").Value)%>