al intentar pasar la variable me da error

[LinosINK]

Hola a todos, tengo el siguiente código:

Código:

strText=rs.fields("Contenido")
CuantosCaracteres = Len(strText)
if CuantosCaracteres > 110 then
strText = left(strText,100) & "... "_
& "<span class=""txt_granate"">[</span><a href=""http://www.dominio.com/PRUEBA/es/noticias.asp"" class=""txt_granate"" title=""Leer la noticia entera"">leer+</a><span class=""txt_granate"">]</span>"
end if

estoy intentando en la línea del href pasarle una variable y cuando lo hago siempre me dice que se esperaba un final de instrucción y no sé que hago mal, lo que intento es:

Código:

strText=rs.fields("Contenido")			
CuantosCaracteres = Len(strText)
if CuantosCaracteres > 110 then
strText = left(strText,100) & "... "_
& "<span class=""txt_granate"">[</span><a href=""http://www.dominio.com/PRUEBA/es/noticias.asp?H="Response.Write rs.Fields ("ID")""" class=""txt_granate"" title=""Leer la noticia entera"">leer+</a><span class=""txt_granate"">]</span>"
end if

Gracias.

[LinosINK]

alguien me puede ayudar?? es que no encuentro que comilla pongo de más o de menos.

Graciasss.

[Adler]

Prueba así

Código:

<%
strText=rs.fields("Contenido")
CuantosCaracteres = Len(strText)
if CuantosCaracteres > 110 then
strText = left(strText,100) & "... "
%>

<span class="txt_granate">[</span><a href="http://www.dominio.com/PRUEBA/es/noticias.asp" class="txt_granate" title="Leer la noticia entera">leer+</a><span class="txt_granate">]</span>

<%
end if
%>

Suerte