6 svar · 151 visningar · startad av d@nneb
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>
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?)
DU får göra typ så här
<% Do Until RSUpp.Eof %>
<%=rsUpp("datum")%> | <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
<%
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")%> | <a href="<%=rsUpp("url")%>"><%=rsUpp("rubrik")%></a>
<br>
<%
RsUpp.MoveNext
Loop
RsUpp.Close
%>
Nice...