tilfældigt billed med url

Hvis du har ID\'er på billederne, så hent MAX(id) til ASP og find et nummer med Rnd (Random).
Efterfølgende henter du billede og URL med det id.

kan du ikke lave noget kode??

Hedder billeder det samme som Autonummeret i database.

Find ud af hvormange recordt der er i database (=antalrec).

<%
randomize
nr=int(antalrec*rnd)

Response.Write \"<IMG SRC=\'pics/\"&nr&\".gif\'>
%>

Daddo

Det kan jeg ikke få til at virke

du skal jo også lige lave en count her kommer hele koden til havd du skal bruge:

<%

\' Laver connection til Access database!
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"databasenavn.mdb\")

\' Laver en Count!
SQL = \"SELECT COUNT(*) AS Antal from Tabelnavn\"
set count = conn.Execute(SQL)


\' Får Antallet ind i \'antalrec\'
antalrec = count(\"Antal\")

\'Lukker connection - Rydder op
set count = Nothing
set SQL = Nothing
set conn = Nothing

randomize
nr=int(antalrec*rnd)

Response.Write \"<IMG SRC=\'pics/\"&nr&\".gif\'>
%>

Det virker altså ikke, den væksler mellem 0 og 1

jeg skal jo også have linket med

jamen så skal du hente linket ned fra databasen!


Hvis den skriver 0 og du ikke vil have det så sæt denne sætning ind lige før Response.Write sætningen:

If nr = 0 then
nr = 1
end If

Det kan jeg ikke få den til kan du ikke komme med noget kode??

Jeg er noget frem til dette script:

<%
\' Laver en Count!
SQLstmt = \"SELECT COUNT(*) AS Antal from Billed\"
set count = conn.Execute(SQLstmt)

\' Får Antallet ind i \'antalrec\'
antalrec = count(\"Antal\")

randomize
nr=int(antalrec*rnd)
url=int(antalrec*rnd)

\'Hendt URL\'en i databasen.
SQLstmt = \"SELECT * FROM Billed\"
set count = conn.Execute(SQLstmt)

Response.Write \"<a href=\'\"&count(\"url\")&\"\'><IMG SRC=\'images/tip\"&nr&\".gif\' border=\'0\'></a> \"

\'Lukker connection - Rydder op
set count = Nothing
set SQLstmt = Nothing
set conn = Nothing

%>

Men den tager kun den første url med

Du skal havde count(\"url\") flyttet til den rigtig række i databasen.
Måske det her virker.

<%
\' Laver en Count!
SQLstmt = \"SELECT * FROM Billed\"
set count = conn.Execute(SQLstmt)

\' Får Antallet ind i \'antalrec\'
antalrec = count.RecordCount

randomize
nr=int(antalrec*rnd)

count.movefirst
for i=1 to nr
  count.movenext
next

Response.Write \"<a href=\'\"&count(\"url\")&\"\'><IMG SRC=\'images/tip\"&nr&\".gif\' border=\'0\'></a> \"

\'Lukker connection - Rydder op
set count = Nothing
set SQLstmt = Nothing
set conn = Nothing

%>

count(\"url\") betyer man hender værdien af feltet URL i den række man er kommet til.

Det er stadig kun den første url der kommer

Så skal der vist nr-1 på i for sætningen.

count.movefirst
for i=1 to nr-1
  count.movenext
next

Hvad med også at ligge fil navnet ind i databasen?
URL    Image
Link1 images/tip1.gif
Link2 images/tip2.gif

filnavnet er jo i databasen

nå hvad hedder det felt som indeholder filnavnet.

på billedet??

det er nr, men der kommer kun et tal

<%
\' Laver en Count!
SQLstmt = \"SELECT * FROM Billed\"
set count = conn.Execute(SQLstmt)

randomize
tipnr=int(count.RecordCount*rnd)

count.movefirst
for i=1 to tipnr
  count.movenext
next

Response.Write \"<a href=\'\"&count(\"url\")&\"\'><IMG SRC=\'images/tip\"&count(\"nr\")&\".gif\' border=\'0\'></a> \"

\'Lukker connection - Rydder op
set count = Nothing
set SQLstmt = Nothing
set conn = Nothing

%>

her er et svar.

Prøv med dette!


<%
\' Laver en Count!
SQLstmt = \"SELECT COUNT(*) AS Antal from Billed\"
set count = conn.Execute(SQLstmt)

\' Får Antallet ind i \'antalrec\'
antalrec = count(\"Antal\")

randomize
nr=int(antalrec*rnd)

\'Hendt URL\'en i databasen.
SQLstmt = \"SELECT * FROM Billed WHERE Id = \" & nr
set count = conn.Execute(SQLstmt)

Response.Write \"<a href=\'\"&count(\"url\")&\"\'><IMG SRC=\'images/tip\"&nr&\".gif\' border=\'0\'></a> \"

\'Lukker connection - Rydder op
set count = Nothing
set SQLstmt = Nothing
set conn = Nothing

%>

nå okay den var accepteret!