---
title: "Nyhets-script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9768-nyhets-script"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mate"
published: "2001-05-29T15:09:00.000Z"
updated: "2001-05-29T16:48:00.000Z"
replies: 10
views: 252
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/9768-nyhets-script"
---

# Nyhets-script

## #1 — Mate, 2001-05-29T15:09Z

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

Permalänk: https://www.webforum.nu/p/9768

## #2 — Jymdis, 2001-05-29T15:17Z

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

Permalänk: https://www.webforum.nu/p/270304

## #3 — Mate, 2001-05-29T15:20Z

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. ;)

Permalänk: https://www.webforum.nu/p/270305

## #4 — Vide, 2001-05-29T15:23Z

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>

Permalänk: https://www.webforum.nu/p/270306

## #5 — Mate, 2001-05-29T15:28Z

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

Permalänk: https://www.webforum.nu/p/270307

## #6 — Mate, 2001-05-29T15:59Z

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

Permalänk: https://www.webforum.nu/p/270308

## #7 — LarsG, 2001-05-29T16:14Z

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

Permalänk: https://www.webforum.nu/p/270309

## #8 — Mate, 2001-05-29T16:18Z

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

Permalänk: https://www.webforum.nu/p/270310

## #9 — LarsG, 2001-05-29T16:33Z

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

Permalänk: https://www.webforum.nu/p/270311

## #10 — Mate, 2001-05-29T16:39Z

> \<%
> 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.**

Permalänk: https://www.webforum.nu/p/270312

## #11 — Mate, 2001-05-29T16:48Z

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

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

Permalänk: https://www.webforum.nu/p/270313

---

Tråden på webben: https://www.webforum.nu/amne/asp/9768-nyhets-script