Hejsan, jag har postat här innan och har fått mycket bra svar. Så jag tänkte efter att jag själv har försökt många gånger men inte myckats så kanske ni gör det.

Jag har en sida (filminfo.asp) där allt ska hända. Det jag vill göra är att om ett fält är tomt i databasen ska den inte skrivas ut, det har jag själv klarat, men det ska stå i en tabell. Och tabellel ska vara varannan färg (2st färger). Det måste vara omöjligt va? Har försökt allt!!

Jag har fått fram att den inte skriver ut fält som är tomma men inte i en tabell. Tänk på att där är ca 10 olika fält, tex skådespelare, info, bild, ljud, mm.

Den som löser det är kung!

kolla Andreas H's svar på

http://www.pellesoft.nu/development/forum/view.asp?msgid=39083&forumid=1

Det finns massa svar på din fråga om du gör en sökning, jag tog bara ett exempel :-)

Jag förstår inte frågan riktigt. Är det varannan rad du menar skall vara färgad eller, ungefär som på forumets samlingssida?

I så fall använder du kommandot MOD för att göra detta:

<%
For a=1 To 10

If a Mod 2 = 0 Then
color = "#0000FF"
Else
color = "#FF0000"
End If

Response.Write "<tr><td bgcolor=<%=color%>&nbsp;></td></tr>"
Next
%>

/Pelle

varannan rad:

If strBgColor = "#FFFFFF" Then
strBgColor = "#F4F4F4"
Else
strBgColor = "#FFFFFF"
End If

Response.Write "<TR><TD bgcolor=""" & strBgColor & """>......

ja exakt, men problemet är också att inte skriva ut fält ifrån databasen som är tomma, men ändå kunna vara varannan färgad.

Omforma din sqlfråga så att du inte får med tomma rader

WHERE field Is Not Null

Kan inte bara göra så, det blir ändå mellanrum, och färgen blir inte alls varannan :(

nu tappar jag tråden lite :-)
kan du skicka med lite kod som visar sql, din kod för att loopa och färgsätta varannan rad (lösningarna på det ovan)
och förklara vad du menar med att inte skriva ut fält om dom är tomma

Menar du att om ett fält i en rad är tomt skall inte hela raden skrivas ut, eller skall du ha varje fält i varannan färg?

Antar följande:<br>
* Du vill visa en post från en tabell i den databas<br>
* Tabellen du läser innehåller fälten: skådespelare, info, bild, ljud, mm<br>
* Bara ifyllda fält skall visas<br>
* Varanan rad skall ha annan färg<br>
<br>
Utelämnar i detta exempel kod för att öpna och stänga recordsetet och såvidare. Vill bara visa principen:
<code>
<%
Dim Colors
Dim ColorIndex
Dim ColorCount
Dim fldField
Colors = Array("DCEBFA","FBFDFE")
ColorCount = UBound(Colors) + 1

If rs.eof Then
Response.Write "<h3>Posten du angivit saknas!</h3>"
Else
For Each fldField in rs.Fields
If Len(fldField.Value) > 0 Then
Response.Write "<tr bgcolor =" & Colors(ColorIndex) & "><td>" & fldField.Name & "<td>"
Response.Write "<td>" & fldField.Value & "<td></tr>"
ColorIndex = (ColorIndex + 1) Mod ColorCount
End If
Next
End If
%>
</code>

Tack så mycket, men ett problem har uppstått, den skriver ut allt i en enda mening, tex. (image16532.jpgskadespelareMads Mikkelsen Sören PilmarkregiAnders Thomas JensentextningDanska Finska Norska SvenskasprakDanskaage15dist Sca inspelningsar2001) och det skrivs inte in i någon tabell, samt varannan färg.

Kan det vara så att du inta har lagt till <table> tag före och </table> efter koden?

Fixat nu, men om man har ett fält som man inte vill ska skriva ut, finns det någon IF-sats eller något för att inte skriva ut det fältet då? Fält menar jag då vad själva Kolummen´s huvudnamn. Och om man har tex en bild som ska visas.

Altså jag vill kunna ändra för varje fält, tex spel tid och efter det ska det stå min.(tex 97 min) Inte Bara 97 som det står nu.

Då får du i princip göra en ifsats för varje fält. Något sånt här:
<code>
<%
Dim Colors
Dim ColorIndex
Dim ColorCount
Dim fldField
Colors = Array("DCEBFA","FBFDFE")
ColorCount = UBound(Colors) + 1

skådespelare, info, bild, ljud, spel tid

If rs.eof Then
Response.Write "<h3>Posten du angivit saknas!</h3>"
Else
If Len(rs("skådespelare")) > 0 Then
Response.Write "<tr bgcolor =" & Colors(ColorIndex) & "><td>Skådespelare:<td>"
Response.Write "<td>" & rs("skådespelare") & "<td></tr>"
ColorIndex = (ColorIndex + 1) Mod ColorCount
End If
If Len(rs("info")) > 0 Then
Response.Write "<tr bgcolor =" & Colors(ColorIndex) & "><td>Info:<td>"
Response.Write "<td>" & rs("info") & "<td></tr>"
ColorIndex = (ColorIndex + 1) Mod ColorCount
End If
If Len(rs("bild")) > 0 Then
Response.Write "<tr bgcolor =" & Colors(ColorIndex) & "><td>Bild:<td>"
Response.Write "<td><img scr=""" & rs("bild") & """><td></tr>"
ColorIndex = (ColorIndex + 1) Mod ColorCount
End If
If Len(rs("ljud")) > 0 Then
Response.Write "<tr bgcolor =" & Colors(ColorIndex) & "><td>Ljud:<td>"
Response.Write "<td>" & rs("ljud") & "<td></tr>"
ColorIndex = (ColorIndex + 1) Mod ColorCount
End If
If Len(rs("spel tid")) > 0 Then
Response.Write "<tr bgcolor =" & Colors(ColorIndex) & "><td>Spel tid:<td>"
Response.Write "<td>" & rs("spel tid") & " min<td></tr>"
ColorIndex = (ColorIndex + 1) Mod ColorCount
End If
End If
%>
</code>

Det gick! Nu fungerar allt, tack så mycket =) Du är kung.

Nää inte kung. Däremot har jag lärt mig en del. Snart är det nån som kallar dig kung. Får kämpa på lite mer. Läs gärna inlägg på Pellesoft. Ger dig möjlighet att snappa upp information och kunskap. ;O)