Avatar billede mic... Nybegynder
21. oktober 2002 - 15:31 Der er 7 kommentarer og
1 løsning

Hente indlæg i database

Hej,
Jeg er ikke så stærk i ASP, så jeg håber at der er en her der lige kan hjælpe..

Jeg har et forum, som kører via ASP og Access - hvilket der ikke er probs med. Problemet er, at jeg på forsiden (indexsiden) godt kunne tænke mig at vise det seneste indlæg. Jeg har følgende kode..

<%
Dim Connect, RS_Outer, RS_Inner, RS_MainMessage
Farve = 1
Set Connect = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/Forumsap.mdb")
Connect.Open strDSN
Set RS_MainMessage = Connect.Execute("SELECT * FROM Messages WHERE (ID = " & request("MessageID") & ")")
Navn = RS_MainMessage("Navn")
Emne = RS_MainMessage("Emne")
Dato = RS_MainMessage("Dato")
ShowDate = DKDato(Dato,"#2")
Message = Replace(Server.HTMLEncode(RS_MainMessage("Message")),vbCrLf,"<br>")

If RS_MainMessage("SvarID") = 0 Then
MessageID = RS_MainMessage("ID")
Else
MessageID = RS_MainMessage("SvarID")
End If %>

Hvordan definerer jeg forumid og messageid til den højeste værdi ??
Avatar billede no_doubt Nybegynder
21. oktober 2002 - 15:34 #1
du kan bare ændre denne : SELECT * FROM Messages WHERE....
til
SELECT top 5 * FROM Messages WHERE....
Avatar billede mic... Nybegynder
21. oktober 2002 - 15:38 #2
hmm.. den forstod jeg ikke ....
Avatar billede no_doubt Nybegynder
21. oktober 2002 - 15:39 #3
Denne linje
Set RS_MainMessage = Connect.Execute("SELECT * FROM Messages WHERE (ID = " & request("MessageID") & ")")
skal se sådan ud
Set RS_MainMessage = Connect.Execute("SELECT top 5 FROM Messages WHERE (ID = " & request("MessageID") & ")")

så tager den de fem nyeste.
Avatar billede mic... Nybegynder
21. oktober 2002 - 15:46 #4
hmm.. jeg får det ikke til at virke. :
The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect

Jeg skal også bare have den til at tage 1 indlæg (ikke 5) - det nyeste.
Avatar billede no_doubt Nybegynder
21. oktober 2002 - 15:52 #5
prøv
Set RS_MainMessage = Connect.Execute("SELECT top 1 * FROM Messages WHERE (ID = " & request("MessageID") & ")")
Avatar billede mic... Nybegynder
21. oktober 2002 - 15:54 #6
he he - den havde jeg prøvet ;) Virker ikke.....
Avatar billede eagleeye Praktikant
21. oktober 2002 - 15:57 #7
du hender så vidt jeg kan se kun en post ud nemlig hvor ID i databsen er valgt ud fra Request("messageID")

hvis du vil hvade den nyes post så prøv dette, med top1 og oreder by ID DESC

Set RS_MainMessage = Connect.Execute("SELECT TOP 1 * FROM Messages ORDER BY ID DESC")
Avatar billede mic... Nybegynder
21. oktober 2002 - 19:04 #8
eagleeye > det var lige det.. Takker !
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester