select top 3

du har en Conn.Execute (SQLstmt) for meget... ved ikke om det kan være det ... prøv:

SQLstmt = "SELECT TOP 3 * FROM nyhed WHERE dansk=1 ORDER BY nyhed.dato, nyhed.ID DESC;"

Set rs = conn.Execute(SQLstmt)

fjernede lige det ene DESC dem var der nemlig også 2 af :)

Hjalp ikke :(

WHERE dansk='1' :)

hvordan ser det ud der hvor du udskriver dine data ?

legende.dk> Det virkede heller ikke.

tjaz> her er hele min kode:

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "d:\home\region21.net\database\nyheder.mdb"

SQLstmt = "SELECT TOP 3 * FROM nyhed WHERE dansk=1 ORDER BY nyhed.dato DESC, nyhed.ID DESC;"

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)

  DO WHILE NOT rs.EOF
    overskrift = rs("overskrift")
    manchet = Replace(rs("manchet"), vbcrlf, "<BR>" & vbcrlf)
    dato = rs("dato")
    id = rs("id")

    %>

<A HREF="nyhed.asp?id=<%=id%>"><B><%=overskrift%></B></A><BR>
<FONT SIZE="1" COLOR="#999999"><%=dato%></FONT><BR>
<%=manchet%><BR>
<BR>

      <%
    rs.MoveNext
  LOOP
  RS.Close
  Conn.Close

"SELECT TOP 3 Tabel1.nr, Tabel1.felt1, Tabel1.tid FROM Tabel1 ORDER BY Tabel1.nr DESC"

Denne bruger jeg i en ren Access database. M.h.t. internettet er jeg helt blank.

Nogen gange skriver du conn med lille og andre gange med stort C. Det er et problem.

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open "d:\home\region21.net\database\nyheder.mdb"

SQLstmt = "SELECT TOP 3 * FROM nyhed WHERE dansk='1' ORDER BY nyhed.dato DESC, nyhed.ID DESC;"

Set rs = Conn.Execute(SQLstmt)

  DO WHILE NOT rs.EOF
    overskrift = rs("overskrift")
    manchet = Replace(rs("manchet"), vbcrlf, "<BR>" & vbcrlf)
    dato = rs("dato")
    id = rs("id")

    %>

<A HREF="nyhed.asp?id=<%=id%>"><B><%=overskrift%></B></A><BR>
<FONT SIZE="1" COLOR="#999999"><%=dato%></FONT><BR>
<%=manchet%><BR>
<BR>

      <%
    rs.MoveNext
  LOOP
  RS.Close
  Conn.Close

legende.dk> hvis jeg sætter din kode ind, så får jeg "Data type mismatch in criteria expression."

hmm, så skal de '' måske ikke være der i access. Men din conn/Conn skal være den samme :)

Hvis det drejer sig om et numerisk felt, skal der i Access ikke være '' omkring kriteriet.

Det meget mærkelige er at min kode HAR virket - da jeg benyttede en anden sti til db'én (vha. mappath) - men denne understøttes ikke længere af webhotellet! Jeg fatter ikke hvad der er gået galt?

mugs> det er et sandt/falsk felt (1 elle 0)!

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open "d:\home\region21.net\database\nyheder.mdb"

SQLstmt = "SELECT TOP 3 * FROM nyhed WHERE dansk='1' ORDER BY nyhed.dato, nyhed.ID DESC"
Set rs = Conn.Execute(SQLstmt)

Do
    overskrift = rs("overskrift")
    manchet = Replace(rs("manchet"), vbcrlf, "<BR>" & vbcrlf)
    dato = rs("dato")
    id = rs("id")
%>
<A HREF="nyhed.asp?id=<%=id%>"><B><%=overskrift%></B></A><BR>
<FONT SIZE="1" COLOR="#999999"><%=dato%></FONT><BR>
<%=manchet%><BR>
<BR>
<%
rs.MoveNext
Loop While Not rs.EOF
RS.Close
Conn.Close
%>

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open "d:\home\region21.net\database\nyheder.mdb"

SQLstmt = "SELECT TOP 3 * FROM nyhed WHERE dansk = True ORDER BY nyhed.dato, nyhed.ID DESC"
Set rs = Conn.Execute(SQLstmt)

Do
    overskrift = rs("overskrift")
    manchet = Replace(rs("manchet"), vbcrlf, "<BR>" & vbcrlf)
    dato = rs("dato")
    id = rs("id")
%>
<A HREF="nyhed.asp?id=<%=id%>"><B><%=overskrift%></B></A><BR>
<FONT SIZE="1" COLOR="#999999"><%=dato%></FONT><BR>
<%=manchet%><BR>
<BR>
<%
rs.MoveNext
Loop While Not rs.EOF
RS.Close
Conn.Close
%>

Sand / falsk = Numerisk

så er det så bare den første af de 2 jeg sendte han skal bruge

tjaz> jeg skulle bare ændre dansk=1 til dansk=true i min oprindelige kode! Me hvorfor HAR min kode virket indtil for en uge siden ??? Meget underligt!

Godt spørgsmål ... for hvis det hele tiden har været en sandt/falsk skal du bruge True/False og så kan jeg slet ikke forstå at den har virket i første omgang, medmindre at du har lavet den om til Sandt/Falsk fra Numerisk 0/1

Jeg har ikke lavet noget om - men måske er der andre der har haft deres fedtede fingre i min kode. Under alle omstændigheder virker det nu - så tak for hjælpen!

np :)