Visa nyheter

4 svar · 226 visningar · startad av Hazze 31 juli 2001

HazzeMedlem sedan jan. 20002 453 inlägg

Frågan31 juli 2001 14:52#1

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")%>&#0124; </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?

------------------
It aint over until the fat lady sings...

erkaMedlem sedan dec. 19996 522 inlägg

31 juli 2001 14:54#2

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")%>&#0124; </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
------------------
Våga lek med dig själv

[Redigerat av erka den 31 jul 2001]

EclipseMedlem sedan juli 20003 825 inlägg

31 juli 2001 15:10#3

DO UNTIL RS.EOF
-- ' ## MASSA KOD
-- RS.MoveNext
[b]LOOP[/b]

------------------
OLR WebAdmin

HazzeMedlem sedan jan. 20002 453 inlägg

31 juli 2001 15:11#4

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 %>

------------------
It aint over until the fat lady sings...

[Redigerat av Hazze den 31 jul 2001]

cyprysMedlem sedan dec. 20003 563 inlägg

31 juli 2001 18:05#5

Menar du

<%
response.write REPLACE(str, "<br>", "")
%>

Men då kommer det ju aldrig några radbrytningar i texten.

------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.