"Palle Hans Jensen" <ducktrucksinc@nospam.dk> wrote
> - Bortset fra det. Du mente:
> Set rs = db.Execute (SQL & " Order by Kunstner, Titel")
Jo det glippede åbenbart lige for mig!
> Nu vi så er igang.
>
> Vil det være svært at kode at hver anden linie i outputtet skal
> være i en anden farve?
Nu blev eg altså tæt af din uoverskuelige kode så du fik en oprydning med
Jeg har også "Tvunget" dig til at gå over til CSS, det vetyder at dine
headers (Cellerne med navnene) skal defineres i et stylesheet, dvs at
følgende skal ind imellem dine <head> og </head>
<Style type="text/css">
..kunstner,.titel,.label,.nr,.pris,.box,.x,.ny{
font-family:verdana;
font-size:15px;
}
..foerste{
background-color:yellow;
font-family:verdana;
font-size:10px;
}
..anden{
bacground-color:green;
font-family:verdana;
font-size:10px;
}
</Style>
Og her er så den rensede ASP:
Response.Write "<table width='100%' border='0'>"
Response.Write "<tr><td class='kunstner'>Kunstner</td>"
Response.Write "<td width=5> </td>"
Response.Write "<td class ='titel'>Titel</b></font></td>"
Response.Write "<td class ='label'>Label</td>"
Response.Write "<td class='nr'>Nr</td>"
Response.Write "<td class='pris'>Pris</td>"
Response.Write "<td class='box'>Box</td>"
Response.Write "<td class='x'>X</td>"
Response.Write "<td width=5></td>
Response.Write "<td class='ny'>Ny</td>"
Response.Write "</tr>"
Do until rs.eof
url = rs("Titel")
'--------------------------------------------- Her sker der noget spændende
if counter = 0 then
Response.Write "<tr class="foerste">"
elseif counter = 1 then
Response.Write "<tr class="anden">"
End if
Response.Write "<td>" & rs("Kunstner") & "</td>"
Response.Write "<td width=20></td><td>" & rs("Titel") & "</td>"
Response.Write "<td>" & rs("Label") & "</td>"
Response.Write "<td>" & rs("Nr") & "</td>"
Response.Write "<td>" & rs("Pris") & "</td>"
Response.Write "<td>" & rs("Box") & "</td>"
Response.Write "<td>" & rs("X") & "</td>"
Response.Write "<td>" & rs("N") & "</td>"
Response.Write "</tr>"
rs.movenext
Loop
Response.Write "</table>"
Else
Response.Write "<font face=verdana size=2>
<b>Desværre! Ingen titler fundet. Prøv igen.</b></font>"
End if
End if
Håber du kan bruge det.
--
Jakob Andersen
FAQ for webdesign gruppen på
<
http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar
"