4 svar · 241 visningar · startad av Hazze
Hej på er.
Har ett nyhetssystem där jag visar varje nyhet på en enskild sida. Nu har jag tänkt att visa rubrikerna på de 10 senaste nyheterna på samma sida.
Har skrivet det så här:
<% Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("nyh.mdb")
Set RS2 = Server.CreateObject("ADODB.Recordset")
Dim ID2
Addera2 = "SELECT Top 10 * FROM nyheter order by datum DESC"
set RS2 = Connect2.execute(Addera2)
%>
Och skriver ut det så här:
<table border="0" cellpadding="3"
cellspacing="0" width="100%">
<tr>
<td bgcolor="#F4F4F4"><font
size="1" face="Arial"><%=rs2("datum")%>| </font><a
href="visa_nyhet.asp?id=<%=RS2("id")%>"><font
size="1"><% =rs2("rubrik")%></FONT></font></a></td>
</tr>
<tr>
<td><% RS2.MoveNext
RS2.Close
Set RS2 = Nothing
Connect2.Close
Set Connect2 = Nothing
%>
Men bara den senaste nyheten visas. Varför?
Du saknar ett Do Until rs2.eof som ska in
<% Do Until rs2.eof %>
<tr>
<td bgcolor="#F4F4F4"><font
size="1" face="Arial"><%=rs2("datum")%>| </font><a
href="visa_nyhet.asp?id=<%=RS2("id")%>"><font
size="1"><% =rs2("rubrik")%></FONT></font></a></td>
</tr>
<tr>
<td><% RS2.MoveNext
RS2.Close
Set RS2 = Nothing
Connect2.Close
Set Connect2 = Nothing
%>
Du måste ju loopa igenom det du har hämtat för att få ut mer än den första
DO UNTIL RS.EOF
-- ' ## MASSA KOD
-- RS.MoveNext
[b]LOOP[/b]
Ok, tack. Det fungerade 
Ett litet problem till dock.
Hur kan man göra för att bli av med alla mystiska radbrytningar som kommer mitt i nyheten?
Skriver ut nyheten med följande lilla kod:
<% =str %>
Menar du
<%
response.write REPLACE(str, "<br>", "")
%>
Men då kommer det ju aldrig några radbrytningar i texten.