links

Jeg har fået lavet følgende kode her på eksperten. men den virker ikke. den skulle gå ned i en database og tage linksne tilfældigt i den angivede mængde. den sætter det dog også op, som det skal, men linksne virker ikke &:-(

her er koden så:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ=" & server.mappath(".") & "/db.mdb"
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti

SQL="SELECT url,navn FROM links;"
set rs=connect.execute(SQL)
myarray=rs.getrows()
set rs=nothing
connect.close

antal_links=168

response.write("<table><tr>")
for i=1 to antal_links
randomize
tal=Int((ubound(myarray,2) + 1) * Rnd)
response.write("<td><a href="&myarray(0,tal)&">"&myarray(1,tal)&"</a></td>")
if i mod 12=0 then response.write("</tr><tr>")
next
response.write("</table>")

%>

håber i kan finde problemet for mig.

mvh.
questis.dk