Traduzione...

[schizzorl86]

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

[Mems]

<% 
Response.Buffer = true
set Cn = server.createObject("ADODB.Connection")
Cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/menu.mdb")
testo = Server.HTMLEncode(Request.Form("cerca")) 
r_testo = replace(testo,"'","''")

cerca = split(r_testo," ") ' Tutte le parole chiave devono essere separate da uno spazio vuoto 
sql = "SELECT * FROM sinistra WHERE " 
for i = 0 to uBound(cerca) 
if i > 0 then
sql = sql & " AND"
end if
sql = sql & " Descrizione LIKE '%" & cerca(i) & "%'" 
next
sql = sql & " ORDER BY Titolo" 
set Mostra = Cn.Execute(sql) 
%>