Nyhets-script

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

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.

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

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>

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?

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

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.

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

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

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

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