<% IF rs("e_id") = 1 THEN %>
-
<% ELSE %>
<A HREF="hast.asp?hast_id=<%=rs("e_id")%>"> <%=rs("e")%> </A><% call subVisaIkonOmBildFinns(rs("e_id")) %>
<% END IF %>
Textfärgen är till standard svart, men om "e" är av en speciell ras vill jag att texten skrivs ut med röd färg i stället för svart.
Borde kunna lösas med en if-sats? Eller är jag helt ute och cyklar?
Har testat ditt förslag, men jag får inte till det. :(
Har försökt med ytterligare en "call sub"... Men det går inte riktigt vägen.
Hittills ser det ut så här:
<% IF rs("u_id") = 2 THEN %>
-
<% ELSE %>
<A HREF="hast.asp?hast_id=<%=rs("u_id")%>"> <%=rs("u")%> </A><% call subVisaIkonOmBildFinns(rs("u_id")) %>
<% call subrodfargfullblod(rs("u_id")) %>
<% END IF %>
Och koden för själva suben ser ut som följer:
<% sub subrodfargfullblod(srodfullblodid) 'srodfullblodid anges där du anropar subben...
sql = "SELECT ras FROM hast WHERE hast_id = " &srodfullblodid
set rsRodFB = MinCon.execute(sql)
if not rsRodFB.eof then
varRodFB = rsRodFB("ras")
end if
IF varrodfullblod <>"" THEN %>
STYLE="color: FF0000">
<%END IF
end sub%>
Jag ger mig den på att det nåt fel i min kod någonstans, men jag hittar det bara inte... :(
<%
if Cint(rs("e_id")) = 1 then
Response.Write("-")
else
Response.Write("<A HREF=""hast.asp?hast_id=" & rs("e_id") & """>" & rs("e") & "</A>"
Call subVisaIkonOmBildFinns(rs("e_id"))
end if
%>
Kodsnutt 2
<%
sub subrodfargfullblod(id)
sql = "SELECT ras FROM hast WHERE hast_id = " & id
Set resultset = MinCon.execute(sql)
if not resultset.eof then
if rsRodFB("ras") <> "" Then
Response.Write("style=""color: #ff0000""")
end if
end if
end sub
%>
