Select 3 random fra database

hæver læige point

det var da pænt af dig! :o)

Prøv følgende:
<%
'//åbning af db
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../datab.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * From DB"
rs.Open strSQL, Conn, 3, 1

If rs.eof = false then
    '//hent dine poster ind i array
    arrayRS = rs.GetRows()

    '//find 3 poster
    tot_unik = 3 'antallet af unikke tal
    top_number = Ubound(arrayRS, 2)

    dim random_number, counter, check, unique_numbers

    Redim random_number(tot_unik)
    Randomize

    For counter = 1 to tot_unik
        random_number(counter) = Int(Rnd * top_number)+1
        for check = 1 to counter - 1
            if random_number(check)= random_number(counter) then
            counter = counter - 1
            end if
        next
    next

    For counter = 1 to tot_unik
        response.write "<li>" & arrayRS(1, random_number(counter)) & " >" & arrayRS(2, random_number(counter)) & "</li>"
    next
End if
%>

/hiks

'så lidt ;)
Nu er det noget med arrays, kan jeg se.. det er jeg ikke skarp til..
Kan du indflette dette (det er det enkeltsteånde modul, der gerne skulle hentes random 3 gange):

<table width="160" border="0" cellpadding="0" cellspacing="0" class="default" background="./images/Offer_BG.gif">
  <tr><td class="tdDesign"><div class="OfferHeader"><%=RS("OfferTitle")%></div></td></tr>
  <tr><td class="tdDesign"><img src="./images/Offer_Top.gif"></td></tr>
  <tr><td align="center"><% if rs("OfferPict") <> "" then%><img src="http://www.fotokaeden.dk/upload/variable/<%=rs("OfferPict")%>" width="130"><%end if%></td></tr>
  <tr><td class="Offer"><%=rs("OfferDescr")%></td>
  <tr><td class="tdDesign"><img src="./images/Offer_Bottom.gif"></td></tr>
  <tr><td class="tdDesign" background="./images/spacer_grey.gif"><div class="OfferPrePrice"><%=rs("OfferPrePrice")%>&nbsp;<Span class="OfferPrice"><%=formatnumber(rs("OfferPrice"),2)%></Span></div></td></tr>
  <tr><td class="tdDesign" background="./images/spacer_grey.gif"><img src="./images/spacer_grey.jpg" height="10"></td></tr>
</table>

hvis du lige kan skrive hvilke felter der er i dit udtræk (alle) i samme orden som i din tabel.

/hiks

hæhæ -. jeg er ved at få det til at du - skal bare lige have hver tabel ved siden af hinanden i stedet for under.. så er den der vist :)

Det var sgu et lækkert lille script .. skulle bare lige finde ud af at tallet i arrayet angav kolonnenr. - læg et svar :o)

ok - det styrer du jo helt så! :o)

svar fra mig her!

/hiks

tak for hjælpen

du kunne vel ikke lige lokkes til at kigge på koden igen.. c",)

Når der præcis ligge 3 tilbud i databasen looper scriptet uendeligt (?)

jeg er lidt tidspresset pt. men kan du ikke lave een if statement omkring det hele der siger at hvis

    tot_unik = 3 'antallet af unikke tal
    top_number = Ubound(arrayRS, 2)

If tot_unik = top_number + 1 then
  'brug hele arrayet
Else
  'brug tilfældighed
End If

- tror ikke det looper uendeligt - jeg tror bare at den er uendelig lang tid om at finde lige de 3.

/hiks