Avendo Questo script
mi visualizza questo errore
Microsoft JScript compilation error '800a03ec'
Expected ';'
/cerca/risultati3.asp, line 23
Set objRs = Server.createObject("ADODB.Recordset")
----^
Conseiderando che ho provato a fare un mix di due script che ho trovat in rete non riesco a farlo funzionare.
Qualcuno ha qualche suggerimento?
Thx
Codice:
<%@ LANGUAGE = JScript %>
<%
var testo = String(Request.Form("keywords"));
if (testo=="" || testo=="undefined") Response.Redirect("cerca3.htm");
var keywords = testo.split(" ");
var ris = conn.Execute(sql);
var stringaDiConnessione = "driver={Microsoft Access Driver (*.mdb)};dbq=";
stringaDiConnessione += Server.MapPath("d:\inetpub\webs\mdb-database\archivio.mdb");
var conn = new ActiveXObject("ADODB.Connection");
conn.Open(stringaDiConnessione);
var sql = "SELECT * FROM pagineweb WHERE";
for (i=0;i<keywords.length;i++) {
if (i>0) sql += " AND";
sql += " keywords LIKE '%" + keywords[i] + "%'";
strSQL = "select COUNT(id) AS totaleRecord FROM pagineweb"
Set objRs = Server.createObject("ADODB.Recordset")
}
if (ris.EOF) Response.Write("<b>NESSUN DOCUMENTO TROVATO</b>");
else while (!ris.EOF) {
Response.Write("<p><a href='" + ris("url") + "'>");
Response.Write(ris("titolo"));
Response.Write("</a><br>");
Response.Write(ris("keywords"));
Response.Write("</p>");
ris.MoveNext();
' Esegui la query
objRs.Open strSQL, objConn
' Stampa il risultato
Response.Write("Nel database sono presenti ")
' Ecco il risultato del conteggio
Response.Write(objRs("totaleRecord"))
Response.Write(" record in totale.")
' Chiudi e distruggi oggetti
objRs.Close
Set objRs = Nothing
}
conn.Close();
%>
mi visualizza questo errore
Microsoft JScript compilation error '800a03ec'
Expected ';'
/cerca/risultati3.asp, line 23
Set objRs = Server.createObject("ADODB.Recordset")
----^
Conseiderando che ho provato a fare un mix di due script che ho trovat in rete non riesco a farlo funzionare.
Qualcuno ha qualche suggerimento?
Thx