Nyhets-script

http://www.idg.se/idgse/media_design/

Kika under "Media & design - Senaste Nytt" Där har dom vartannat fält grått vartannat vitt.

Så vill jag ha det på mitt nyhets-script. Är det möjligt?

------------------
Må tusen kamelers loppor hemsöka dina armhålor.

Möjligt är det ju.
Dom har det? =)

------------------
-------------------
Andreas Lännerberg
Jag hör till dom som betalar mina räkningar med glädje, men dom vill hellre ha betalt i pengar.

Med min ringa kunskap verkar det ganska omöjligt!

Får hoppas det är någon här som vet hur man gör och kan hjälpa sprida ljus över detta dilemma. ;)

------------------
Må tusen kamelers loppor hemsöka dina armhålor.

En sökning eller koll i FAQ:n skulle nog späda ut mörkret till ljus för dig... :)
http://cgi.webforum.nu/wf/arkiv/asp_faq.html

------------------
Budweiser - Slightly contaminated water... probably harmless, but I would recommend boiling before you drink it...
webEye.nu SweQuake.com

Hehe! Fasiken alltså.... då jag skelade på persiennen strömmade ljuset till och fullständigt bländade mig. Får hoppas jag får det att funka bara.

Tack för hjälpen!

Hur får jag varannan tabellrad att byta
färg?
<TABLE>
<%
DO UNTIL
RS.EOF
counter = counter + 1
If counter Mod 2 = 0
then
   color =
"CCCC99"
Else
   color = "CCCC66"
End
If
%>
<TR><TDcolor="<%=color%>"><%=RS("namn")%></TD></TR>
<%
RS.MOVENEXT
LOOP
%>
</TABLE>

------------------
Må tusen kamelers loppor hemsöka dina armhålor.

ADODB.Recordset fel '800a0bcd'
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats; åtgärden som programmet begärt kräver en aktuell post.
/news/Default.asp, rad 93

RAD 93 med omnejd!

<%
RS.MoveNext
loop
%>

Nu får jag olika färg men där gamla nyheter arkiveras försvann och upp kom detta fel meddelande.

När vi ändå är igång... Hur byter jag ut färgen mot en bild som ska vara färgen?

color = "FFFFFF" <<--- Vill ha en bild här som ska vara bakgrunden.

Kan någon hjälpa mig?

------------------
Må tusen kamelers loppor hemsöka dina armhålor.

[Redigerat av Mate den 29 maj 2001]

Kan du visa lite mer kod, annars kan man bara spekulera om vad som är fel.
Tag åtminstone med hela loopen.

------------------
essentitia preter non sans multiplicandum

Oj! Ska jag ta med all min röriga kod. Klaga inte för mycket på den för jag förstår knappt vad jag gör. ;)

<%
response.buffer = true
%>

<%
Set my_conn = Server.CreateObject("ADODB.Connection")
my_conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("databaser/bas.mdb")
%>

<%
SQL = "SELECT TOP 3 * FROM nyheter ORDER BY ID DESC"
SET RS = my_conn.execute(SQL)

Do Until RS.EOF

id = RS("ID")
Datum = RS("datum")
Rubrik = RS("rubrik")
innehall = RS("innehall")
%>

<%
DO UNTIL RS.EOF
counter = counter + 1
If counter Mod 2 = 0 then
color = "CCCCCC"
Else
color = "FFFFFF"
End If
%>

<link rel="stylesheet" href="css/css.css" type="text/css">

<BR>

<table width="350" border="0" cellspacing="0" cellpadding="0" bgcolor="<%=color%>">
<tr>

<td>
<table width="350" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>

<font size="2"><b><TDcolor="<%=color%>"><%=rubrik%></b></font></td>
</tr>
<tr>
<td>
<i>
<%=datum%>
</i>
</td>
</tr>
<tr>
<td>

<%
If Len(innehall) > 150 Then
fixedbody1 = Left(innehall, 150)& "......."
%>
<%=fixedbody1%>
<BR>
<BR>
<BR>
<a href="visa_nyheter.asp?nyhet=<%=id%>">Läs mer....</a>

<%
Else
body = innehall

response.write body
End if
%>

<BR>
</td>
</tr>

<%
RS.MoveNext
loop
%>

</table>
</td>
</tr>
</table>
<br>
<hr width="345" align="center">
<BR>

<%
RS.MoveNext
loop
%>

<%
SQL="select top 10 * from nyheter where id not in (select top 3 id from nyheter order by id desc) order by id desc"

SET RS = my_conn.execute(SQL)

SET RS = my_conn.execute(SQL)
%>

<%DO until RS.eof%>
<a href="visa_nyheter.asp?nyhet=<%=RS("ID")%>"><%=RS("rubrik")%></a><BR>

<%
RS.MoveNext
loop
%>

<br>
<br>
<a href="admin.asp">Administrera</a>
<BR>

Nu blir det väl lättare att se vad som är fel i röran. :e

------------------
Må tusen kamelers loppor hemsöka dina armhålor.

Nu har du

  do until rs.eof
     'utskrift
     do until rs.eof
     'utskrift
     rs.movenext
     loop
     rs.movenext
  loop

När den inre loopen har slutat så har man kommit till slutet på recordsetet och när du sedan anropar rs.movenext igen så får du fel.

Du kan ta bort den inre loopen

  do until rs.eof
     'utskrift
     'utskrift
     rs.movenext
  loop

------------------
essentitia preter non sans multiplicandum

<%
SQL = "SELECT TOP 3 * FROM nyheter ORDER BY ID DESC"
SET RS = my_conn.execute(SQL)
Do Until RS.EOF
id = RS("ID")
Datum = RS("datum")
Rubrik = RS("rubrik")
innehall = RS("innehall")
counter = counter + 1
If counter Mod 2 = 0 then
color = "CCCCCC"
Else
color = "FFFFFF"
End If
%>

Ska man slå ihop dessa och sen plocka bort alla "rs.movenext loop"

Förklara mer. Är ganska ny på detta så jag fattar lite trögt. :)

Fick det att funka bättre nu, men nu hända en annan lustig sak. Mina "rulers" <hr> ni vet... Flyttades ut HÖGER om all text. Väldigt lustigt.

------------------
Må tusen kamelers loppor hemsöka dina armhålor.

[Redigerat av Mate den 29 maj 2001]

Wow! Jag fixade det. Fanken vad man kan ändå. ;)

Tack för all hjälp för denna gång.

------------------
Må tusen kamelers loppor hemsöka dina armhålor.