Database med 10 punkter!!

sql="select top 5 from tabel"
er det nogen ala det??

Nope hvordan vil du så få de første 5 til at stå det ene sted og 5 andre et andet sted?

<%
Dim intCount

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dindb.mdb")

Set rs = objConn.Execute("SELECT * FROM DinTabel")
intCount = 5

if (rs.eof or rs.bof) then
Response.Write "Der er ingen records i databasen."
else
do while not (rs.eof or rs.bof) and intCount > 0
  Response.Write rs("DitFelt1")
  intCount = intCount - 1
  rs.MoveNext
loop
end if
%>

hehe....glemte noget ;)

MVH!
Mr.Meincke :D

Sig lige til hvis jeg skal lave et helt nøjagtigt eksempel på hvordan...regner med at du se kan kode resten...

//Mr.Meincke

<%
Dim intCount

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dindb.mdb")

Set rs = objConn.Execute("SELECT * FROM DinTabel")
intCount = 10

if (rs.eof or rs.bof) then
Response.Write "Der er ingen records i databasen."
else
Response.Write "<tr><td>"
do while not (rs.eof or rs.bof) and intCount > 0
  if intCount >= 6 then
  Response.Write rs("DitFelt1")
  else
  if intCount = 5 then
    Response.Write "</td></tr><tr><td>"
  end if
  Response.Write rs("DitFelt1")
  end if
  intCount = intCount - 1
  rs.MoveNext
loop
Response.Write "</td></tr>"
end if
%>

OKI, jeg prøver!!!

Når jeg bruger dette: <%
Dim intCount

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("auk.mdb")

Set rs = objConn.Execute("SELECT * FROM nyt")
intCount = 10

if (rs.eof or rs.bof) then
Response.Write "Der er ingen records i databasen."
else
Response.Write "<tr><td>"
do while not (rs.eof or rs.bof) and intCount > 0
  if intCount >= 6 then
  Response.Write rs("DitFelt1")
  else
  if intCount = 5 then
    Response.Write "</td></tr><tr><td>"
  end if
  Response.Write rs("DitFelt1")
  end if
  intCount = intCount - 1
  rs.MoveNext
loop
Response.Write "</td></tr>"
end if
%>

Skriver den denne fejl!!:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03FB)
'Loop' var ventet
/login/auktion/auktion.asp, line 153

Hva ku du ik hjælpe med det?

//Krab

jojo tag lige en slapper...sidder og er igang med en homepage selv....Har du ændret DitFelt1 til dine rigtige felt-navne?

jeg har lige teste det og det virker altså fint!

Har ændret felterne!!! Men hvis du ka få det til at virker må jeg jo oxo. Jeg må jo lege lidt med det!!!
Undskylder at jeg skyndede på dig!!!

//Krab

K!!! Jeg fik det til at virke næsten som jeg ville ha det!!! TAKKER!.

np ;) Takker for points...