Potreste convertirmi questa parte di codice da JScript a VBScript? Ci sto uscendo matto

codice:
var testo = String(Request.querystring("Cerca"));

if (testo=="" || testo=="undefined") Response.redirect("../Mess/nontrovato.asp");

var trova = testo.split(" ");

var stringaDiConnessione = "driver={Microsoft Access Driver (*.mdb)};dbq=";
stringaDiConnessione += Server.MapPath("../../../db/carico.mdb");
var conn = new ActiveXObject("ADODB.Connection");
conn.Open(stringaDiConnessione);

var sql = "SELECT * FROM caricoart WHERE";
for (i=0;i<trova.length;i++) {
  if (i>0) sql += " AND";
 sql += " modello1 LIKE '%" + trova[i] + "%' order by ID DESC";

}
var rec = conn.Execute(sql);


if (rec.EOF) Response.redirect ("../Mess/Nontrovato.asp") ;
else 
while (!rec.EOF) {


  Response.Write(rec("cod1"));

 rec.MoveNext();
}


conn.Close();
%>