Dato for seneste indlæg

strSQL = "SELECT * FROM indlaeg WHERE dato <#" & " Date() & "# ORDER BY DESC"

//>Rune

strSQL = "SELECT * FROM indlaeg ORDER BY Dato DESC"

//>Rune

sådan var det vidst!

//>Rune

Hvordan kan det så vises? - Skal der ikke være en "Response.Write"

<%
Function DBhent(SQL, DBnavn)
Dim consub
Set consub = Server.CreateObject("ADODB.Connection")
consub.CommandTimeout = 30
consub.ConnectionTimeout = 20
consub.Open "DBQ=" & Server.Mappath(DBnavn) & ";Driver={Microsoft Access Driver (*.mdb)}"
Dim objDBhent
Set objDBhent = Server.CreateObject("ADODB.RecordSet")
objDBhent.Open SQL, consub, 3, 1
Set DBhent= objDBhent
Set objDBhent = Nothing
End Function
Set rs = DBhent("SELECT * FROM DinTabel order by DinID desc", "DinDB")
%>

Dato: <%= rs("dato") %>
<br><br>
Nyhed:<br>
<%= rs("teksten") %>
<br>


<%
rs.close
%>

DinTabel = Databasetabellen
DinID = ID-kolonnen
DinDB = Databesenavnet uden ".mdb" bagefter

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

strSQL = "SELECT * FROM indlaeg ORDER BY Dato DESC"
Set objRs = objConn.Execute(strSQL)

Response.Write(objRs("dato"))

sådan!
//>Rune

sorry

<%
rs.close
%>

skulle være

<%
set rs = Nothing
%>

Svaret er for restn ikke 100 point værd.

Lidt for forklaring:

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}DBQ=" & Server.MapPath("db.mdb") 'Server.MapPath finde den aktueller sti, så hvis database skal i dette tilfælde ligge i sammen mappe som din .asp fil!

strSQL = "SELECT * FROM indlaeg ORDER BY Dato DESC" 'Her sortere den efter dato, så den nyeste dato bliver den øverste!
Set objRs = objConn.Execute(strSQL) 'Her executes din SQL query!

While Not objRs.EOF 'Her køres dine recordset igennem indtil End Of File
  Response.Write(objRs("dato") & "<br>") 'Her udskrives din dato med et mellemrum for hver dato!
objRs.MoveNext() 'Her rygger den til den næste efter valgte
Wend 'Her løbes løkken igennem en gang til

//>Rune

Et performance hint: Hvorfor ikke bare nøjes med at hente 1 record i stedet for dem alle sammen !? ;)

SELECT TOP 1 * FROM tabel ORDER BY Dato DESC

Snowball

snowball> Jeg tror han vil ha' udskrevet en masse records lige efter hianden hvor den nyeste er øverst!

Det her skriver han i oplæget:
...
således at brugerne ikke behøves at gå ind på næste side, for at se om der er kommet noget nyt!
...

;-)
//>Rune

Skulle det ikke bare være den første, der skulle vises ?
Dette gøres sådan:
strSQL = "SELECT TOP 1 * FROM indlaeg ORDER BY Dato DESC"

cyberkox>

Kommentar fra snowball
31/05-2002 13:06:46

//>Rune

Ja. Desværre var jeg vidst lidt langsom ;)

Men alligevel får du poinz! -Der er virklig nogen brugere her inde på eksperten jeg fatter - af!
*G*

//>Rune

Tak for hjælpen! - Jeg har ikke helt fået det til at virke, men det kommer nok!

Kan I så gå hen og se lidt fodbold!

VH Popstar

medions: Og "en masse" er lig alle !? ;) Hvad så når der kommer 100-1000 indlæg !? ;)

Som så mange andre gør, så kunne man vælge at vise de seneste 5 eller 10 indlæg og så skal man jo bare ændre TOP 1 til TOP 5 eller TOP 10, men det er jo også stadig meget bedere at hente alle records i tabellen (især når det er Access) :)

Snowball

Hov...men det er jo også stadig meget bedere end at hente alle records i tabellen - skulle der stå ;)

Desuden skriver han jo "Jeg vil gerne have vist det seneste indlæg på en forside" - men som alt andet kan de jo bøjes lidt ;)

Snowball

snowball> Fair nok *G*

//>Rune

Takker for point...

cyberkox> *G* ja det ville jeg sq oxo sige hvis jeg var dig! *LOL*

//>Rune

Ja ja...