Hvorfor virker det ikke.

Hej Eksperter...

Jeg kan ikke forstå hvorfor dette script ikke virker...
Baggrundsfarven bliver ved med at være lyserrød lige meget hvad jeg trykker på... det vaar meningen af den man havde trykket på blev blå/grøn...!

Hvad kan jeg gøre / hvad gør jeg forkert...?


<%
SQL = "SELECT * FROM instil where ID='me'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2
%>
<% if rs("1") = "1" then %>
<% SQL = "SELECT * FROM me ORDER BY sort" %>
<% else %>
<% SQL = "SELECT * FROM me ORDER BY navn" %>
<% end if %>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn,1, 2

if (rs.bof or rs.eof) then
response.redirect ("?sta=tom")
else
do while not rs.eof

Navn = rs("navn")
ID = rs("ID")
pos = Request.QueryString("id")
%>

<%
if pos = ID then
f_color = "5B9CA4"
end if

if pos <> ID then
f_color = "FF00FF"
end if
%>
<% =pos %>
<% =ID %>

<table cellspacing="0" cellpadding="0" border="0" width="150">
<tr>
<a href="?id=<%=ID%>" class="txt_link">
<td class="txt" style="background-color:<%=f_color%>;padding-left:4px;border:1px solid #000000;"><%=Navn%><br></td>
</a>
</tr>
</table>

<img src="img/pix.gif" border="0" height="2" width="1"><br>
<%
rs.movenext
loop
end if
%>