Avatar billede lenn Nybegynder
10. april 2002 - 09:52 Der 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...
Avatar billede coltau Juniormester
10. april 2002 - 10:29 #1
Hvormange tilfældige bannerid skal den vælge. ?
Avatar billede lenn Nybegynder
10. april 2002 - 10:34 #2
1 og kun 1
Avatar billede coltau Juniormester
10. april 2002 - 11:25 #3
Jeg har brugt denne til at vælge en tilfældig record i en tabel:

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")
set RS = Server.CreateObject("ADODB.Recordset")
RS.CursorLocation = 3 ' adUseClient
RS.CursorType = 3 ' adOpenStatic
RS.Open "select bannerid from banner", Conn, , , &H0001 ' adCmdText

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.
Avatar billede lenn Nybegynder
10. april 2002 - 11:40 #4
jeg prøver lige...
Avatar billede lenn Nybegynder
10. april 2002 - 11:48 #5
takker mange gange - jeg har brugt oseaner af tid på det - dit forslag ser ud til at virke...
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester