Links

med andre ord, b1...b4 skal "pege" på tilfældige links hentet fra DB?

kan man vel godt sige &:-D

jeg brygger lige et svar - hang on 5 min.

ok, lyder snildt =)

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

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

antal_links=10

for i=1 to antal_links
randomize
tal=Int((ubound(myarray,2) + 1) * Rnd)
response.write("<a href="&myarray(0,tal)&">"&myarray(0,tal)&"</a><br>")
next

%>

derudover skal du have lavet en DB med en tabel som hedder links, som skal indeholde et felt ved navn URL, hvori du skrive linket's URL (husk at sætte http:// foran)

kan du forklare lidt om hvordan jeg skal få det lidt op at køre *SS*

hvad mener du? Selve koden kopierer du over i en fil (f.eks. links.asp) og så smide du bare db-filen (som skal hedde db.mdb) i samme bibliotek

oaky, hvordan afgører jeg så hvormange links der skal være ?

eller kan den selv finde ud af det ??

ja der ændrer du jo så antal_links til noget andet end 10 (som giver .... 10 links) ;)

okay, det virker:
http://www.questis.dk/eksperten/links.asp

men der er et mindre problem, den skriver hvad linket er, istedet for eks. b1

tilføj et ekstra felt i tabellen links, kald det f.eks. navn, så fikser jeg lige lidt mere kode til dig

<%
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=3

for i=1 to antal_links
randomize
tal=Int((ubound(myarray,2) + 1) * Rnd)
response.write("<a href="&myarray(0,tal)&">"&myarray(1,tal)&"</a><br>")
next

%>

kanont ikke dårligt, men undskylder lige over at jeg spørger om en lille ting mere &:-D

hvad skal jeg skrive hvis jeg vil have dem til at stå i 3 kolonner ? du skal bare sige hvis du skal have fler point for det =)

jeg siger da aldrig nej til flere point.. :)

Here goes;

for i=1 to antal_links
randomize
tal=Int((ubound(myarray,2) + 1) * Rnd)
response.write("<a href="&myarray(0,tal)&">"&myarray(1,tal)&"</a><br>")
next

ændres til;
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 3=0 then response.write("</tr><tr>")
next
response.write("</table>")

for hver gang der er 3 links skiftes der nu linie, altså;

link1 link2 link3
link4 link5

osv.

virkeligt kanont arbejde, og hutigt udført, du fortjener dine point &:-D

hehe - takker :)

Hjælp, det virker jo ikke &:-(

bla bla... http://www.bent.dk!!!