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:

codice:


<%
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
%>