Qualcosa così?

<a title="<%=Presenta(rsNews.Fields.Item("subject_new ").Value)%>" href=<%=site_address&"/Display_news.asp?id="&rsNews.Fields.Item("ID").Val ue%> target="NewWindow" onclick="window.open('<%=site_address&"/Display_news.asp?id="&rsNews.Fields.Item("ID").Val ue%>', '', 'width=........')"><% END IF %><% News = rsNews.Fields.Item("data_inserimento").Value&"
"&Presenta(rsNews.Fields.Item("subject_new").Value )%><% News = Replace(News,"'","\'",1,-1,1)%><%=News%></a>