If sats?

Har en kod som ser ut så här:

<%
set  rs = conn.Execute("SELECT * FROM Admin")
Do While Not rs.EOF
meny = rs("Meny")
If meny => "1" Then
%>
    <td>kod som ska köras</td>
<%
Else
%>
<%
End If
rs.MoveNext
Loop
rs.close
conn.close
%>

Koden som ska köras om värdet stämmer är:

<!--#include virtual="unisafe\mindb.inc"-->
<%
set  rs = conn.Execute("SELECT * FROM Sidor")
Do While Not rs.EOF
%> 
<%
If len(rs("Defaultmeny"))> 0 Then
 Response.Write "<tr><td><a href=default.asp><font class=iebla>"& rs("Defaultmeny") &"</font></a></td></tr>"
End If %>
<%
If len(rs("Foretagetmeny"))> 0 Then
 Response.Write "<tr><td><a href=foretaget.asp><font class=iebla>"& rs("Foretagetmeny") &"</font></a></td></tr>"
End If %>
<%
If len(rs("Sid1meny"))> 0 Then
 Response.Write "<tr><td><a href=sid1.asp><font class=iebla>"& rs("Sid1meny") &"</font></a></td></tr>"
End If %>
<%
If len(rs("Sid2meny"))> 0 Then
 Response.Write "<tr><td><a href=sid2.asp><font class=iebla>"& rs("Sid2meny") &"</font></a></td></tr>"
End If %>
<%
If len(rs("Sid3meny"))> 0 Then
 Response.Write "<tr><td><a href=sid3.asp><font class=iebla>"& rs("Sid3meny") &"</font></a></td></tr>"
End If %>
<%
If len(rs("Sid4meny"))> 0 Then
 Response.Write "<tr><td><a href=sid4.asp><font class=iebla>"& rs("Sid4meny") &"</font></a></td></tr>"
End If %>
<%
If len(rs("Sid5meny"))> 0 Then
 Response.Write "<tr><td><a href=sid5.asp><font class=iebla>"& rs("Sid5meny") &"</font></a></td></tr>"
End If %>
<%
If len(rs("Sid6meny"))> 0 Then
 Response.Write "<tr><td><a href=sid6.asp><font class=iebla>"& rs("Sid6meny") &"</font></a></td></tr>"
End If %>
<%
If len(rs("Sid7meny"))> 0 Then
 Response.Write "<tr><td><a href=sid7.asp><font class=iebla>"& rs("Sid7meny") &"</font></a></td></tr>"
End If %>
<%
If len(rs("Sid8meny"))> 0 Then
 Response.Write "<tr><td><a href=sid8.asp><font class=iebla>"& rs("Sid8meny") &"</font></a></td></tr>"
End If %>

<%
rs.MoveNext
Loop
rs.Close
conn.Close
%>

sakerna fungerar var för sig men hur får jag ihop dom?