links
jeg har fået lavet følgende kode her på eksperten. men den virker ikke med alle links?<%
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>")
%>
hvordan kan det være ?
