Contatore di Record per DB

M

mike1.9jtd

Nuovo Alfista
23 Febbraio 2004
3,051
0
36
43
Bologna
www.paroleingiaccablu.it
Avendo Questo script

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
 
Codice: 
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")
}

Ammesso che Server.createObject() lanci lo statement e restituisca il result set (non conosco Access) ... non dovrebbe essere dopo il for() che costruisce lo statement SQL ?

Inoltre - come fa a capire che "sql" e "strSql" contengono gli statement da lanciare ?
 
alla fine l'ho rifatto da capo ma non gira:

Codice: 
<html>
<body>	
<%
var stringaDiConnessione = "driver={Microsoft Access Driver (*.mdb)};dbq=";
stringaDiConnessione += Server.MapPath("/mdb-database/archivio.mdb");
var conn = new ActiveXObject("ADODB.Connection");
conn.Open(stringaDiConnessione);
strSQL = "select COUNT(id) AS totaleRecord FROM pagineweb"
Set objRs = Server.createObject("ADODB.Recordset")
objRs.Open strSQL, objConn
Response.Write("Nel database sono presenti ")
Response.Write(objRs("totaleRecord"))
Response.Write(" record in totale.")
objRs.Close
Set objRs = Nothing
conn.Close();
%>
</body>
</html>

Codice: 
Microsoft VBScript compilation  error '800a0401'

Expected end of statement

/conta.asp, line 4

var stringaDiConnessione = "driver={Microsoft Access Driver (*.mdb)};dbq=";

NOn riesco a trovare l'errore!! :member)
 
Devi accedere o registrarti per rispondere qui.
Top