Prova così:

primo = false
Response.Write """" & "<a href='" & newsRS("newsbar_link") & "'>"
Response.Write newsRS("newsbar_testo")
Response.Write "</a>" & """"
newsRS.MoveNext

L'errore che notavi era che """" deve stare all'inizio ed alla fine del response.write

Ciao,
Banda Bassotti