error '80040e10'

[fedestar]

Salve a tutti,

dopo aver aggiunto end if e ) mancanti mi si presenta questo bel messaggio:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1

Non riesco a capire cosa voglia visto che ho fatto come tutte le altre volte ed ha sempre funzionato...

Comunque ecco il codice incriminato:

<%
Dim iMonth, iYear, giorno, archivio, data_post

iMonth = Request("month")
iYear = Request("year")
If iMonth = "" Then iMonth = Month(Now)
sMonth = NameFromMonth(iMonth)
If iYear = "" Then iYear = Year(Now)
giorno = Request.QueryString("giorno")
archivio = Request.QueryString("archivio")
data_post = giorno & "/" & iMonth & "/" & iYear


Dim rsblog
Dim rscommenti
Dim blog_id
Dim rscommenticount
Dim commenti_presenti

If isNull(Request.QueryString("blog_id")) = True Or isNumeric(Request.QueryString("blog_id")) = False Then
  Response.Redirect("../default.asp?month=" & iMonth & "&year=" & iYear & "&giorno=" & giorno & "&archivio=" & archivio & "")
Else
  blog_id = CLng(Request.QueryString("blog_id"))
End If

Set rsblog = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT blog.* FROM blog "
strSQL = strSQL & "WHERE blog_id=" & blog_id

rsblog.Open strSQL, adoCon

If NOT rsblog.EOF Then
  commenti_presenti = CBool(rsblog("commenti"))
  Set rscommenticount = Server.CreateObject("ADODB.Recordset")
  
  strSQL = "SELECT Count(commenti.blod_id) AS numerocommenti "
  strSQL = strSQL & "FROM commenti "
  strSQL = strSQL & "WHERE commenti.blog_id=" & CLng(blog_id) & ";"
  
  rscommenticount.Open strSQL, adoCon
%>

[fedestar]

Opppssssss... mi sono accorto solo ora di aver dimenticato una riga del messaggio di errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/public/blog_commento.asp, line 47

quindi la riga incriminata è la seguente:

  rscommenticount.Open strSQL, adoCon

[optime]

----------------------------------------------------
impariamo a fare un po' di debug

*subito* dopo la composizione della stringa SQL metti

Response.Write "maGGica SQL...: " & strSQL
Response.Flush

poi posta quello che viene a video
----------------------------------------------------

[fedestar]

Non è necessario, dopo un migliaio di volte, l'ha accettato senza problemi...

Comunque grazie!!!