<% 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
%>
