codice:
Set rs_a = Server.CreateObject("ADODB.Recordset")
rs_a.ActiveConnection = MM_conn_STRING
rs_a.Source = "SELECT * FROM a,b WHERE Home = " + Replace(rs_a__MMColParam, "'", "''") + " and a.codiceproduttore = b.codiceproduttore
AND a.codiceproduttore='" &rs_a("codiceproduttore")& "'" ORDER BY ID DESC"
rs_a.CursorType = 0
rs_a.CursorLocation = 2
rs_a.LockType = 1
rs_a.Open()