Avatar billede ban_me Nybegynder
06. maj 2005 - 01:23 Der er 7 kommentarer og
2 løsninger

Skift farve ved udtræk af db

Hej eksperter. Jeg vil gerne have skiftet farven ved hver post. Altså ligesom her:

post 1 (grøn)
post 2 (rød)
post 3 (grøn)
post 4 (rød)
osv...
__________________________________________
                <%

  SQL = "SELECT id, topic, DATE_FORMAT(addeddate,'%d/%m') as datestr FROM communications ORDER BY id DESC limit 0,5;"
  set RS = conn.execute(SQL)



   
    if RS.EOF then
    response.write("<font color='#999999'>Ingen beskeder fundet i databasen</font>")
    end if


    do while not RS.EOF

   
    datestr = replace(RS("datestr"),"-","/")
   
    response.write("<font color ='#999999'>")
    response.write("<valign='left'>" & datestr & ":  ")
    response.write("</font>")
    response.write("<a href='?page=5'>")
    Response.Write( visMaxTegn(rs("topic"),20) )
    response.write("</a>")
    response.write("<br>")
   

    RS.movenext
    loop

    %>   

_____________________________________

På forhånd tak :)
Avatar billede kalp Novice
06. maj 2005 - 01:39 #1
<%

  SQL = "SELECT id, topic, DATE_FORMAT(addeddate,'%d/%m') as datestr FROM communications ORDER BY id DESC limit 0,5;"
  set RS = conn.execute(SQL)

dim counter, tjeck

counter = 0
tjeck = 0
   
    if RS.EOF then
    response.write("<font color='#999999'>Ingen beskeder fundet i databasen</font>")
    end if


    do while not RS.EOF

   
    datestr = replace(RS("datestr"),"-","/")

if counter = 0 then
response.write("<font color ='#00CC66'>")
tjeck = 1
else
response.write("<font color ='#FF0000'>")
tjeck = 0
end if
response.write("<valign='left'>" & datestr & ":  ")
    response.write("</font>")
    response.write("<a href='?page=5'>")
    Response.Write( visMaxTegn(rs("topic"),20) )
    response.write("</a>")
    response.write("<br>")

RS.movenext

if tjeck = 1 then
counter = counter + 1
else
counter = 0
end if

    loop

%>
Avatar billede ttopholm Nybegynder
06. maj 2005 - 01:45 #2
Eller en anden løsning ;-)

<%

  SQL = "SELECT id, topic, DATE_FORMAT(addeddate,'%d/%m') as datestr FROM communications ORDER BY id DESC limit 0,5;"
  set RS = conn.execute(SQL)



   
    if RS.EOF then
    response.write("<font color='#999999'>Ingen beskeder fundet i databasen</font>")
    end if

    i=1
    do while not RS.EOF

   
    datestr = replace(RS("datestr"),"-","/")
   
    IF (i mod 2) = 2 THEN
      response.write("<font color ='#00CC66'>")
    ELSE
      response.write("<font color ='#FF0000'>")   
    END IF
    response.write("<valign='left'>" & datestr & ":  ")
    response.write("</font>")
    response.write("<a href='?page=5'>")
    Response.Write( visMaxTegn(rs("topic"),20) )
    response.write("</a>")
    response.write("<br>")
    i=i+1

    RS.movenext
    loop

    %>
Avatar billede ttopholm Nybegynder
06. maj 2005 - 01:46 #3
rettelse:

    IF (i mod 2) = 0 THEN
      response.write("<font color ='#00CC66'>")
    ELSE
      response.write("<font color ='#FF0000'>")   
    END IF
Avatar billede kalp Novice
06. maj 2005 - 01:49 #4
RS.movenext

if tjeck = 1 then
counter = counter + 1
else
counter = 0
end if

    loop

%>

skal lige rettes til

RS.movenext

if tjeck = 1 then
counter = 1
else
counter = 0
end if

    loop

%>


ikke at det andet er noget problem:) burde stadig virke.
Avatar billede amikk Nybegynder
06. maj 2005 - 01:53 #5
If strBGColor = "#cecece" Then
  strBGColor = "#ffffff"
Else
  strBGColor = "#cecece"
End If

... lur mig om ikke denne her er nemmere
Avatar billede kalp Novice
06. maj 2005 - 01:59 #6
amikk >> mabyline.. men for spørgeren er det hele nemt:) det er trods alt stadig bare at copy & paste;)
men tak for ideen til lidt kode ændring.

dim farve

farve = "#00CC66"
   
    if RS.EOF then
    response.write("<font color='#999999'>Ingen beskeder fundet i databasen</font>")
    end if


    do while not RS.EOF

   
    datestr = replace(RS("datestr"),"-","/")

if farve = "#00CC66" then
response.write("<font color ='#00CC66'>")
farve = "#FF0000"
else
response.write("<font color ='#FF0000'>")
farve = "#00CC66"
end if
Avatar billede kalp Novice
06. maj 2005 - 02:00 #7
ps. så er der den med syntax.. der er sikkert noget med '' rundt om tekst hehe:) men hvis den brokker sig er det lige til at rette:)
Avatar billede ban_me Nybegynder
06. maj 2005 - 10:46 #8
Fandt ud af at bruge en nemmere løsning, da det var tabellerne der skulle farves og ikke teksten :) Men jeg formulerede mig heller ikke korrekt!

_______________________________________
    do while not RS.EOF

 
datestr = replace(RS("datestr"),"-","/")

If Not linieNr = 1 Then linieNr = 1 Else linieNr = 2
Response.Write "<tr class=""linie" & linieNr & """><td>"

response.write("<valign='left'>" & datestr & ":  ")
    response.write("</font>")
    response.write("<a href='?page=5'>")
    Response.Write( visMaxTegn(rs("topic"),20) )
    response.write("</a>")
    response.write("<br>")
   
    response.write("</td></tr>")

RS.movenext_

___________________________________

Og så har jeg så 2 styles:

tr.linie1
tr.linie2

Tak for hjælpen, lig lige et svar alle sammen!
Avatar billede ttopholm Nybegynder
06. maj 2005 - 11:05 #9
svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester