Vis 6 forskellige fra DB. ASP

Sql = "SELECT * FROM premiere LIMIT 6"

Og så skal den selvfölgelig ind i en loop, ellers får du kun den förste post.

Tror ikke access accepterer LIMIT, så har du access går den ikke.

Det er access. Andre forslag?

en do while loop.

Prøver. Vender tilbage :-)

poster=0
while (not rs.eof) and (poster<=5) ...
  poster=poster+1
  ..
  rs.movenext

OBS er ikke testet

Jeg har leget lidt med din kode, og fundet denne løsning på dit problem:
------------------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open Application("Provider")
Sql = "SELECT * FROM premiere"
rs.Open Sql, Conn, 1

antalRandom = 6
inDB = rs.RecordCount
If inDB > antalRandom then
  Randomize timer
  newId = Int (rnd*inDB)
  strIndex = "," & newid & ","
  indexFound = 1
  Do while indexFound < antalRandom
    Do
      Newid = Int (rnd*inDB)
    Loop while inStr(strIndex,"," & newid & ",") > 0
    strIndex = strIndex & newid & ","
    indexFound = indexFound + 1
  Loop
  strIndex = mid (strIndex,2,len(strIndex)-2)
  myArr=split(strIndex,",",-1)

For i = Lbound(myArr) to Ubound(myArr)
    rs.move myArr(i),1


Response.Write("<td valign='top'>")
Response.Write("<div align='center'>")
Response.Write("<a href='trailer.asp?id=" & rs("link") & "'><img border='0' src='pics/" & rs("pic") & "' width='95' height='138' alt='" & rs("titel") & "'></a>")
Response.Write("</div>")
Response.Write("</td>")

  next
 
  end if


Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
------------------------------------------------------
Skal lige siges at jeg har fundet meget hjælp i dette spørgsmål:
http://www.eksperten.dk/spm/217390

/Hans

hansdam

Virker som en drøm :-)

Super :-D -> husk at acceptere :P

Åhh ja...Man skal huske at markere den.. Har nemlig trykket på accepter. :-)

takker for points :-D