[ASP] Textkleur veranderen op basic van text

[Verwijderd]

Ik heb zojuist een file manager gemaakt, ik kan dus zeg maar bestanden submitten, zodat ik dus een download pagina krijg enzo Lang verhaal, maar jullie zullen 't wel begrijpen.

Nu heb ik dus ook een optie bij zo'n download "Reliability" (betrouwbaarheid) en nu wil ik graag dat als mijn Reliability Bad is (bijv) dat het woordje Bad rood word, of als ik Good heb, dan 't dan groen wordt.

Ik heb al veel geprobeerd met de If/Else structuur, ook Select/Case maar t wil me niet lukken.

Dit alles is gebaseerd op een Acces database.

[Verwijderd]

En wat verwacht je van ons? Is er misschien code van je laatste probeersel waar we naar kunnnen kijken?

[Verwijderd]

Hier:

code:

<div align="center">
<center> 
      <%
      Dim cnDB
      Dim rsQuery
     
      Set cnDB = Server.CreateObject("ADODB.Connection")
      cnDB.ConnectionString = _
      "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Data source=C:\Inetpub\wwwroot\creepssvencoop\database\database.mdb"
      cnDB.Open
      
      Set rsQuery = Server.CreateObject("ADODB.RecordSet")
      rsQuery.Open "SELECT * FROM downloads", cnDB
      
      Do While Not rsQuery.EOF
      Response.Write "<p><table valign='center' border='2' cellspacing='0' style='border-collapse: collapse; font-size: 8pt' bordercolor='#006699' width='50%' id='AutoNumber1' cellpadding='0' height='77'>" _
      & "<tr>" _
      & "<td width='100%' bgcolor='#003451' height='19' colspan='2'><b>" _
      & "<font size='2'>" & rsQuery("FileName") & "</font></b></td>" _
      & "</tr>" _
      & "<tr>" _
      & "<td width='50%' height='19' bgcolor='#000000'><b><font size='1'>Download Size:</font></b></td>" _
      & "<td width='50%' height='19' bgcolor='#000000'>" & rsQuery("FileSize") & "</td>" _
      & "</tr>" _
      & "<tr>" _
      & "<td width='50%' height='19' bgcolor='#000000'><b><font size='1'>Download Host:</font></b></td>" _
      & "<td width='50%' height='19' bgcolor='#000000'>" _
      & "<a target='_blank' href=" & rsQuery("HostURL") & ">" & rsQuery("HostName") & "</a></td>" _
      & "</tr>" _
      & "<tr>" _
      & "<td width='50%' height='19' bgcolor='#000000'><b><font size='1'>Reliability:</font></b></td>" _
      & "<td width='50%' height='19' bgcolor='#000000'><font color='" HIERZO MOET DE KLEURCODE "'>" & rsQuery("Reliability") & "</font></td>" _
      & "</tr>" _
      & "<tr>" _
      & "<td width='100%' height='17' bgcolor='#003451' colspan='2'>" _
      & "<a href=" & rsQuery("FileURL") & ">Download Now!</a></td>" _
      & "</tr>" _
      & "</table></p>"
      rsQuery.Movenext
      Loop   
      %>
      </div>
      </center>

[j_du_pee]

zoiets dan:

code:

dim kleurcode
do until rs.eof
  kleurcode="black"
  if rs("reliability")="bad" then kleurcode = "red"
  response.write(hele verhaal)
  'waarbij dit dus gebeurt: <font color=""" & kleurcode & """>" 
  rs.movenext
loop