Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_ae_STRING
Recordset1.Source = "SELECT * FROM Clienti WHERE Codice_cliente = " + Replace(Recordset1__MMColParam, "'", "''") + ""

response.write(Recordset1.Source = "SELECT * FROM Clienti WHERE Codice_cliente = " + Replace(Recordset1__MMColParam, "'", "''") + "")
response.end()

cmq non usare il codice di dreamweaver, molto + semplice l'asp normale :-)