Hvordan for man den til at vise den nyeste nyhed fra databasen??

Det kommer jo an på din database...

Typsik kunne en SQL se sådan ud, hvis det er access, TOP 1 hendter en post fra databasen, ORDER BY kolonnenavn DESC sortere så den største ID/dato står højst. I dette eks bliver autonummer kolonnen ID bruget da den nyeste post vil havde den højste ID. Evt kunne der anvendes en dato kolonne.

SQL = "SELECT TOP 1 * FROM nyheder ORDER BY ID DESC"

Og hvis vi skal fortsætte gætteriet så er MySQL forespørgslen typisk sådan her:

strQuery = "SELECT * FROM nyheder LIMIT 1 ORDER BY id DESC"

Det er en access db. hvor jeg har et dato felt (men det er bare text, ikke datofelt)

Min code:

Set oRSb = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT ID, Overskrift01, Dato, Nyhed, URL "
        strSQL = strSQL & "FROM NyhederDB WHERE Id = 2 "
        oRSb.Open strSQL, oConn
        oRSb.MoveFirst

Det er fordi jeg har to felter med nyheder på forsiden hvor jeg trækker 250 tegn ud af nyheds feltet. Det er nærmest genveje til nyhedssiden. Jeg har lavet det sådan at jeg kalder dem på ID, men det kan jeg da ikke så kan jeg?

Ikke hvis det er den nyeste nyhed du vil havde ud, så skal det være i stil med:

Set oRSb = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT ID, Overskrift01, Dato, Nyhed, URL "
strSQL = strSQL & "FROM NyhederDB ORDER BY Id DESC"
oRSb.Open strSQL, oConn
oRSb.MoveFirst

Okay nu har lavet min kode om, så ledes at den for hvert <td> laver en en ny <td> og hopper en tand ned! Det fungere også fint nu! Men nu udskriver den jo alle nyheder (og der er 4) Den skal kun vise de 2 nyeste på forsiden???

Kan man det?

Kode:

<%
                            Set oRSa = Server.CreateObject("ADODB.Recordset")
                            strSQL = "SELECT ID, Dato, Nyhed, URL, LinkText "
                            strSQL = strSQL & "FROM NyhederDB ORDER BY Id DESC"
                            oRSa.Open strSQL, oConn
                            oRSa.MoveFirst
                           
                            Response.Write"<table align='left' cellpadding='5' cellspacing='0' border='0'>"
                            count = 0
                                Response.Write("<tr>")
                                While Not oRSa.EOF
                                  If count Mod 1 = 0 Then
                                    Response.Write("</tr><tr>") & vbCrLf
                                    End If
                                      Response.Write("<td align=""left"" valign=""top"">" & oRSa.fields("Dato") & "<br>" & left(oRSa("Nyhed"),150) & "<br>" & "<a id='lnk02' href='" & oRSa.Fields("URL") & "'>" & oRSa.Fields("LinkText") & "</a></td>") & vbCrLf
                                      count = count + 1
                                      oRSa.MoveNext
                                    Wend
                                Response.Write("</tr></table>")
                           
                                oRSa.Close
                                Set oRSa = Nothing
                            %>

Med andre ord, kan jeg ikke bestemme hvor mange felter den skal vise????

Ok så prøv at rette denne linie:

strSQL = "SELECT ID, Dato, Nyhed, URL, LinkText "

Til:
strSQL = "SELECT TOP 2 ID, Dato, Nyhed, URL, LinkText "