Qlcn può tradurre in Vbscript questo codice:

<%
Response.Buffer = true;
var Cn = new ActiveXObject("ADODB.Connection");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("mdb-database/menu.mdb"));
var testo = new String(Server.HTMLEncode(Request.Form("cerca")));
var r_testo = testo.replace(/'/g,"''");
var cerca = r_testo.split(" "); // Tutte le parole chiave devono essere separate da uno spazio vuoto
var sql = "SELECT * FROM sinistra WHERE ";
for (var i=0; i<cerca.length; i++)
{
if (i > 0) sql += " AND";
sql += " Descrizione LIKE '%" + cerca[i] + "%'";
}
sql += " ORDER BY Titolo";
var Mostra = Cn.Execute(sql);
%>


Grazie ma devo assolutamente tradurre questo script