Hvordan vises kun den sidste nye post i en database?

Sql = "Select Top 1 * from din tabel ORDER by dato DESC"

Hvis du har et autonummererings felt, kan du bruge en WHERE CLAUSE på det...

SELECT * FROM dintabel WHERE id = (SELECT MAX(id) FROM dintabel)

Kanon!! Takker:-)

Lige en lille ting mere!!!
Hvorfor viser den ikke Dato her med kun Dagbog??

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("sandstod.mdb")
Conn.Open DSN

' SQL forespørgsel

strSql = "SELECT * FROM sandstod WHERE id = (SELECT MAX(ID) FROM sandstod)"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Dato

  Response.Write "<table><tr>"
  Response.Write "<td>" & rs("Dato") & "</td>"
  Response.Write "<td>" & rs("Dagbog") & "</td>"
  Response.Write "</tr></table>"
 
  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Sikkert fordi du bruger en Firehose forbindelse, og du henter dine felter ud i en anden rækkefølge end de ligger i.

Prøv at hente dem over i variable først, i modsat rækkefølge, og så brug variablene i din udskrift.

Jeg er rimelig newbie så kan du ikke forklare mig nærmere?

<%
Do
  sDagbog = rs("dagbog")
  dDato = rs("dato")
  Response.Write....
  ...
  ..
  re.MoveNext
Loop While Not re.EOF
%>

Har gjort sådan:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("sandstod.mdb")
Conn.Open DSN

' SQL forespørgsel

strSql = "SELECT * FROM sandstod WHERE id = (SELECT MAX(ID) FROM sandstod)"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
  sDagbog = rs("Dagbog")
  dDato = rs("Dato")

  ' Udskriv værdien af kolonnen Dato og Dagbog

  Response.Write "<table><tr>"
  Response.Write "<td>" & rs("Dato") & "</td>"
  Response.Write "<td>" & rs("Dagbog") & "</td>"
  Response.Write "</tr></table>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Men den vil stadig ikke vise Dato!!!!!

du bruger stadig RS("...") i dine Response.Write, der skulle du bruge de nye variable.

Nu gør jeg sådan:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("sandstod.mdb")
Conn.Open DSN

' SQL forespørgsel

strSql = "SELECT * FROM sandstod WHERE id = (SELECT MAX(ID) FROM sandstod)"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
  sDagbog = rs("dagbog")
  dDato = rs("dato")

  ' Udskriv værdien af kolonnen Dato og Dagbog

  Response.Write "<table><tr>"
  Response.Write "<td>"  & dDato & "</td>"
  Response.Write "<td>" & sDagbog & "</td>"
  Response.Write "</tr></table>"

 
  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Men stadig kun Dagbog!! PLEASE HJÆLP MIG..........Hvad gør jeg forkert?

Hmm, sært. er du sikker på der overhovedet er noget i dagbog?
Prøv at kigge i din DB, med access.

Hmm er det mon her den er gal? Her får jg data fra en form med felterne Dato og dagbog...Det er min Insert der er forkert er det ik'?

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("sandstod.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Insert into sandstod (Dato) values('" & Request.Form("Dato") & "')"
strSQL = "Insert into sandstod (Dagbog) values('" & Request.Form("Dagbog") & "')"


' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Jo, den er ad pommern til :)

strSQL = "INSERT INTO sadstod (dato, dagbog) VALUES ('" & Request.Form("Dato") & "', '" & Request.Form("Dagbog") & "')