risolto così...anche se forse è grezzo

<div align="center">

<script type="text/javascript">
var messages=new Array()
var j
j=0
<%
Dim vettore_stringhe=new ArrayList()

dim testo as string


cn.open()
cmd = new Sqlcommand("select * from quicklinks where attivo=1 and lingua='" + session("lingua") +"' order by id desc",cn)
res=cmd.executereader

while (res.Read())
testo="<font face='Verdana' >" & res(2) & "</font>"


%>

messages[j]="<%response.write(testo)%>"
j=j+1

<%

end while
cn.close()

%>