Skriva aspkod i javascriptkod - hur?

Jag har en javascriptkod som gör att nyheter scrollas. Nu vill jag få in en vanlig aspkod som skriver ut de senaste nyheterna... hur gör jag det?

javascriptkod

//SET SCROLLER APPEARANCE AND MESSAGES
var myScroller1 = new Scroller(0, 0, 480, 17, 0, 0); //(xpos, ypos, width, height, border, padding)
myScroller1.setColors("#000000", "#FFFFFF", "#FFFFFF"); //(fgcolor, bgcolor, bdcolor)
myScroller1.setFont("Trebuchet MS,Arial,Helvetica", 1);
myScroller1.addItem("<b> Text 1</b>");
myScroller1.addItem("<b> Text 2</b>");
myScroller1.addItem("<b> Text 3</b>");
myScroller1.addItem("<b> Text 4</b>");
myScroller1.setSpeed(20);

Aspkod

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("sockdb/sockan.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
    Visa = "SELECT top 5 * FROM sockor where Visa = 'Ja' ORDER BY TEXTID DESC"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic 
Do Until RecSet.EOF
%>
<a href="sidval.asp?textid=<% = RecSet("TextID") %>"><% =RecSet("Rubrik") %></a>

//SET SCROLLER APPEARANCE AND MESSAGES
var myScroller1 = new Scroller(0, 0, 480, 17, 0, 0); //(xpos, ypos, width, height, border, padding)
myScroller1.setColors("#000000", "#FFFFFF", "#FFFFFF"); //(fgcolor, bgcolor, bdcolor)
myScroller1.setFont("Trebuchet MS,Arial,Helvetica", 1);
<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("sockdb/sockan.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
    Visa = "SELECT top 5 * FROM sockor where Visa = 'Ja' ORDER BY TEXTID DESC"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic 
Do Until RecSet.EOF
%>
myScroller1.addItem("<a href='sidval.asp?textid=<% = RecSet("TextID") %>'><% =RecSet("Rubrik") %></a>");
<% loop %>
myScroller1.setSpeed(20);

Typ så?

Tackar! Fungerar perfekt!