Salve a tutti, qualcuno che riesce a dare una mano? non riesco a veniene fuori da questo errore.

Errore di compilazione di Microsoft VBScript (0x800A0409)
Costante String senza terminazione

codice:
<%
Dim ConnImmagini__MMColParam
ConnImmagini__MMColParam = "1"
If (Request.QueryString("IdCat") <> "") Then 
  ConnImmagini__MMColParam = Request.QueryString("IdCat")
End If
%>
codice:
SELECT Immagini.idFoto, Immagini.IdCat, Immagini.IdStg, Immagini.thumbs,  Immagini.descrizione, Immagini.Data, Immagini.Ora, Count(Commenti.idfoto) AS ConteggioDiidfoto FROM Immagini LEFT JOIN Commenti ON Immagini.idFoto = Commenti.idfoto 
WHERE ((Immagini.IdCat)=" + Replace(ConnImmagini__MMColParam, "'", "''") + "'"") 
GROUP BY Immagini.idFoto, Immagini.IdCat, Immagini.IdStg, Immagini.thumbs, Immagini.descrizione, Immagini.Data, Immagini.Ora
ORDER BY Immagini.idFoto DESC
Grazie.