Da JScript a VBScript

[Luca1317]

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

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();
%>

[Sypher]

na cosa del genere:

<%
testo = "" & Request.Querystring("Cerca")

If testo = "" Or testo = "undefined" Then
     Response.redirect ("../Mess/nontrovato.asp")
End If


trova = Split(testo, " ")

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

sql = "SELECT * FROM caricoart WHERE"

For i = 0 To UBound(trova)
    If i > 0 Then
        sql = sql & " AND"
    End If
    sql = sql & " modello1 LIKE '%" + trova(i) + "%'"
Next
sql = sql & " order by ID DESC"

Set Rec = conn.Execute(sql)

If Rec.EOF Then
    Response.redirect ("../Mess/Nontrovato.asp")
Else
    While Not Rec.EOF
        Response.Write (Rec("cod1"))
        Rec.MoveNext
    Wend
End If

conn.Close
%>