Loop, next.......dummerjöns på asp

6 svar · 151 visningar · startad av d@nneb 15 maj 2001

d@nnebMedlem sedan jan. 200123 inlägg

15 maj 2001 08:36#1

Hallo...skratta inte åt mitt enkla problem. Hur får jag så att jag kan visa flera istället för bara den senaste uppdateringen? Förbättra gärna koden..

<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath="C:\inetpub\wwwroot\upp\uppdaterat.mdb"
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Set rsUpp = Databas.execute("SELECT TOP 5 * FROM uppdaterat ORDER BY id DESC")

If rsUpp.EOF then
%>
Inga uppdateringar än!
%>
<% End If %>

Datum:<br>
<%=rsUpp("datum")%> | <a href="<%=rsUpp("url")%>"><%=rsUpp("rubrik")%></a>

------------------
-You never walk alone-

McDMedlem sedan mars 20002 520 inlägg

15 maj 2001 08:47#2

Humm har du klippt kod från något annat... ? select top 5 * from ?!?!?

Select * from uppdaterat where (datum) blabla någonting...

O sen response.write ut det du får iof blir det alla...

Select top 5 from uppdaterat where (datum) blabla någonting...

skall generera de senaste 5 uppdateringarna

Ropar på @nders....( dillar jag?)

------------------
McD- Burgers for the people!

www.McDz.net www.SweQuake.com

[Redigerat av McD den 15 maj 2001]

erkaMedlem sedan dec. 19996 522 inlägg

15 maj 2001 08:50#3

DU får göra typ så här

<% Do Until RSUpp.Eof %>

<%=rsUpp("datum")%> &#0124; <a href="<%=rsUpp("url")%>"><%=rsUpp("rubrik")%></a>
<% 
RsUpp.MoveNext
Loop
RsUpp.Close
%>

Men om du ska få ut alla så kan tu inte ta ut top 5 för det tar som sagt ut de fem senaste

------------------
1 Man, 1 Million dead, The odds are just about even - Ash

d@nnebMedlem sedan jan. 200123 inlägg

15 maj 2001 09:13#4

Jag bugar & bockar. Lade till en radbrytning & scriptet är klart....

:)-<->

------------------
-You never walk alone-

McDMedlem sedan mars 20002 520 inlägg

15 maj 2001 09:15#5

Wiiiiiii....

Hur blev den färdiga koden ....

------------------
McD- Burgers for the people!

www.McDz.net www.SweQuake.com

d@nnebMedlem sedan jan. 200123 inlägg

15 maj 2001 09:26#6

<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath="C:\inetpub\wwwroot\upp\uppdaterat.mdb"
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Set rsUpp = Databas.execute("SELECT TOP 5 * FROM uppdaterat ORDER BY id DESC")

If rsUpp.EOF then
%>
Inga uppdateringar än!

<% End If %>

<% Do Until RSUpp.Eof %>
<%=rsUpp("datum")%> &#0124; <a href="<%=rsUpp("url")%>"><%=rsUpp("rubrik")%></a>
<br>
<% 
RsUpp.MoveNext
Loop
RsUpp.Close
%>

------------------
-You never walk alone-

McDMedlem sedan mars 20002 520 inlägg

15 maj 2001 09:35#7

Nice...

------------------
McD- Burgers for the people!

www.McDz.net www.SweQuake.com