string der ikke virker

jeg har noget kode:

strFilnavn = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/")+1)
if strFilnavn = "Default.asp" then
strMenu = "1"
else
if Session("brugernavn") <> "" then
  strMenu = "3"
else
  strMenu = "2"
end if
end if

Sql = "select * from menu where menutal = strMenu"
Set rs = Conn.Execute(sql)

Do while not rs.EOF %>

<a href="<%=rs("Menuurl")%>" class="menu"><%=rs("Linknavn")%></a>
<%
rs.movenext
Loop

det der ikke virker er 'strMenu' i sql-sætningen (select * from...) den siger at der mangler et parameter, og hvis jeg indtaster et tal fra 1 - 3 virker det også... men den skulle jo selv skrive tallet fra stringen? - hvordan gør man det?