Notifikationer

Markér alle som læst Log ud

hjep Nybegynder

27. juni 2002 - 11:40 Der er 7 kommentarer og
1 løsning

Seneste nyhed på forsiden

Hej
Jeg bruger følgende til at vise mine nyheder.

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nyhed.mdb")
SQLstmt = "SELECT * FROM nyhed ORDER BY ID desc;"
'response.write SQLstmt
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)

<%
DO WHILE NOT rs.EOF
ID = rs("ID")
overskrift = rs("overskrift")
nyhed = rs("nyhed")
navn = rs("navn")
Dato = rs("Dato")
email = rs("email")
%>

<%=overskrift%> 
<%=nyhed%> 
 skrevet af:<a href="mailto:<%=email%>"><%=navn%></a> (<%=dato%>) <hr>
<%
rs.MoveNext
LOOP
RS.Close

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

Jeg kunne godt tænke mig at lave en side hvor at kun den seneste nyhed blev vist. Kan det lade sig gøre med et par ændringer?

Synes godt om

dk_akj Nybegynder

27. juni 2002 - 11:48 #1

Du skal bare rette din sql

SQLstmt = "SELECT TOP 1 * FROM nyhed ORDER BY ID desc;"

//akj

Synes godt om

haunted Nybegynder

27. juni 2002 - 11:48 #2

SELECT * FROM nyhed ORDER BY dato desc;

Og så erstatter du bare din DO While med en
if not rs.eof
...
...
...
end if

Synes godt om

skovtrold Nybegynder

27. juni 2002 - 11:49 #3

Du kan hente den nyeste ved at:
SQLstmt = "SELECT TOP 1 * FROM nyhed ORDER BY ID desc;"
Så henter du det nyeste ID.

Synes godt om

skovtrold Nybegynder

27. juni 2002 - 11:51 #4

Og så bare bruge:
If not rs.EOF Then
... udskriv indhold
Else
... ingen indhold
End if

Synes godt om

skovtrold Nybegynder

27. juni 2002 - 12:03 #5

Og hele koden:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nyhed.mdb")
SQLstmt = "SELECT TOP 1 * FROM nyhed ORDER BY ID desc;"
'response.write SQLstmt
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)

<%
IF NOT rs.EOF
ID = rs("ID")
overskrift = rs("overskrift")
nyhed = rs("nyhed")
navn = rs("navn")
Dato = rs("Dato")
email = rs("email")
%>

<%=overskrift%> 
<%=nyhed%> 
 skrevet af:<a href="mailto:<%=email%>"><%=navn%></a> (<%=dato%>) <hr>
<%
ELSE
response.write "Ingen indhold"
END IF

RS.Close

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

Synes godt om

hjep Nybegynder

27. juni 2002 - 12:21 #6

Ja til sidst lykkes det vist også for mig.Tak for hjælpen

Synes godt om

skovtrold Nybegynder

27. juni 2002 - 12:47 #7

Selv tak :-)

Synes godt om

haunted Nybegynder

27. juni 2002 - 12:55 #8

Det er ikke sikkert at Skovtrolds "løsning" virker. Det kommer an på om der kan slettes nyheder i basen og det kommer også an på hvordan du indsætter nye indlæg.

Så det vil være en bedre løsning at lave en order på datoen af indlægget!

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS