recuperare querystring nell'sql (vbscript)

[maxx02]

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

<%
Dim ConnImmagini__MMColParam
ConnImmagini__MMColParam = "1"
If (Request.QueryString("IdCat") <> "") Then 
  ConnImmagini__MMColParam = Request.QueryString("IdCat")
End If
%>

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.

[Roby_72]

WHERE ((Immagini.IdCat)=" + ConnImmagini__MMColParam + ")

La replace non serve in questo caso.

Roby

[maxx02]

Costante String senza terminazione

WHERE ((Immagini.IdCat)=" + ConnImmagini__MMColParam + ")

[Roby_72]

Ovvio ma nella query come l'hai scritto??

Roby

[maxx02]

era un problema di apici e l'ho risolto però il campo idcat non viene filtrato infatti mostra tutti i record

[maxx02]

Tutto bene grazie.