10. april 2002 - 09:52Der er
4 kommentarer og 1 løsning
HJÆLP!
Hej Jeg er ikke særlig hård til arrays - derfor søger jeg lige lidt hjælp... Jeg skal have et array der indeholder noget data fra en tabel - derefter skal der laves noget random, der returnere en af tallene i arrayet.
Koden ser, indtil nu, ud som følger:
<% @Language = VBScript %>
<!--#INCLUDE FILE="../database/include.asp" --> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"> <% Dim SQL, RS SQL = "SELECT bannerid FROM banner " Set RS = Conn.Execute(SQL) %> <HTML> <HEAD> < <TITLE>[RS i arrays]</TITLE> </HEAD> <BODY>
<% Dim bannerArray(), i, start, slut WHILE NOT RS.EOF
bannerArray() = RS("bannerid") start = Lbound(bannerarray) slut = Ubound(bannerarray) for i = start to slut response.write bannerArray(i) & "<BR>" next RS.MoveNext WEND %>
Håber én eller anden kan rette det lidt til - for det virker i hvert fald ikke nu...
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
if not RS.EOF then randomize P = int(RS.RecordCount * rnd) RS.Move(P) response.write("Valgt:" & RS("bannerid")) else response.write("der er ikke noget at vælge i mellem. !") end if %>
Den læser ikke bannerne ind i et array da det er unødvendigt.
takker mange gange - jeg har brugt oseaner af tid på det - dit forslag ser ud til at virke...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.