Urgent problem - mine sidste point

Der er noget galt i min sub som skal hente fra en anden .mdb fil
Hvad gør jeg galt - please hjælp

<%@ LANGUAGE=\"VBSCRIPT\" %>
<% Option Explicit %>
<!-- #INCLUDE VIRTUAL=\"/adovbs.inc\" -->
<%
       
    Dim profil, Conn, RS, sprog
    profil = Request.QueryString(\"navn\")
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open Application(\"database\")
    Set RS = Server.CreateObject(\"ADODB.Recordset\")
    RS.Open \"SELECT * FROM TBruger WHERE Brugernavn=\'\"& profil &\"\'\", Conn


sub hent_downloads(brugernavn)
        Dim Conn, RSdownloads, Kategori, Tittel, Beskrivelse, Sprog, Vurdering, Forfatter, brugernavn
        navn = Request(\"brugernavn\")
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open Application(\"fildb\")
        Set RSdownloads = Server.CreateObject(\"ADODB.Recordset\")
        RSdownloads.Open \"SELECT * FROM TFiles WHERE brugernavn=\"& navn &\"\", Conn

        While NOT RSdownloads.eof
            Response.write \"<IMG SRC=\"\"/images/edot.gif\"\">&nbsp;&nbsp;<a  href=\"\"\"& RSdownloads(\"FILENAME\") &\"\"\">\"& RSdownloads(\"Tittel\")&\"</a><br>\"
        RSdownloads.Movenext
        Wend
       
        RSdownloads.Close
        Set RSdownloads = NOTHING
    end sub

%>

<html>
<head>
<LINK href=\"/main.css\" rel=\"stylesheet\" type=\"text/css\">

***her kommer selve body..........
og siden slutter således:




<%
<!-- righttoptiview -->
          Response.write \"<div id=\"\"links\"\" style=\"\"position:absolute; border: 1 solid #18949c; width:140px; height:100%; z-index:4; left: 615px; top: 80px; visibility: visible\"\">\"
        Response.write \"<table border=0 cellpadding=0 cellspacing=0 width=24 name=\"\"nyheder\"\" vspace=\"\"0\"\" hspace=\"\"0\"\">\"
      Response.write \"<tbody><tr><td colspan=\"\"3\"\" bgcolor=\"\"18949c\"\" class=\"\"LilleOverskrift\"\" height=\"\"0\"\">Editor anbefaler:</td></tr>\"
      Response.write \"<tr><td width=140 height=\"\"0\"\" rowspan=\"\"3\"\" class=\"\"index-newslist-table\"\">\"
      Response.write \"<table width=\"\"33\"\" border=\"\"0\"\" cellspacing=\"\"0\"\" cellpadding=\"\"1\"\" height=\"\"100%\"\" vspace=\"\"0\"\" hspace=\"\"0\"\" class=\"\"index-opinion-table-eff\"\">\"
      Response.write \"<tr><td height=\"\"292\"\"><table bgcolor=#ffffff border=0 cellpadding=2 cellspacing=0 height=100% width=140>\"
        Response.write \"<tr><td align=left class=index-newslist-time colspan=3 valign=top>\"
call hent_downloads(brugernavn)
        Response.write \"</td></p></div></tbody></table>\"
  Response.write \"<BR>\"
%>
<!-- Slut på indhold af \"body\" sektionen -->

</table>

</body>

Jeg får følgende fejl:
Microsoft VBScript runtime error \'800a01f4\'

Variable is undefined: \'brugernavn\'

/community/seprofil112.asp, line 326