Fejl, når jeg vil hente noget fra DB

Jeg har et stort problem. ;/

Jeg har en topscorerliste, som bliver hentet fra en access DB. Dette virker fint. Når man trykker på de forskellige personer i topscorerlisten, så skal den så hoppe ind til en profilbeskrivelse af den enkelte person. I kan se problemet her:    www.oneweb.dk/sif/ny/topsc.asp

Jeg får så en fejl, når jeg prøver at få fat i den pågældende person.

Her er koden fra topsc.asp, hvorfra jeg linker til person_profil.asp
____________________________________________________

  <%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/fb.mdb")


SQLstmt = "SELECT all * FROM profiler where maal <> 0 ORDER BY maal desc"

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>


  <%
  DO WHILE NOT rs.EOF
    navn = rs("navn")
    maal = rs("maal")
   
   
    %>
    <style type='text/css'>
a {text-decoration: none; color:#ffffff;}
a:hover {text-decoration: underline;}
</style>
<table width="250" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="155" height="13"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b><a href="profil_person.asp?id=<%=ID%>" target="_self"><font color="#000000" face="Arial, Helvetica, sans-serif">
      <%=navn%></font></a></b></font> <div align="right"></div></td>
    <td width="31"><div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b><font face="Arial, Helvetica, sans-serif"><%=maal%></font></b></font></div></td>
  </tr>
  <%
    rs.MoveNext
  LOOP
  RS.Close


conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %>
</table>
____________________________________________



Og her er koden så fra profil_person.asp, der henter oplysninger om den enkelte person.

______________________________________________
<table width="300" border="0" cellspacing="2" cellpadding="2">
  <tr>
                     
    <td height="145" valign="top">
      <%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/fb.mdb")


SQLstmt = "SELECT * FROM profiler WHERE id = " & Request("id")
Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>
      <%
  DO WHILE NOT rs.EOF
  id = rs("id")
    navn = rs("navn")
    aargangtxt = rs("aargangtxt")
    maal = rs("maal")
    klubbertxt = rs("klubbertxt")
    billedetxt = rs("billedetxt")
   
    %>
     
      <table width="300" border="0" cellspacing="2" cellpadding="2">
        <tr valign="top">
          <td width="206" height="13"><font color="#000000"><b></b></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b>Navn:
            <font face="Arial, Helvetica, sans-serif"><%=navn%></font></b></font></td>
          <td width="180" rowspan="5"> <div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
              <img src="image/profiler/<%=billedetxt%>"></font></div>
            <div align="right"></div></td>
        </tr>
        <tr valign="top">
          <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><strong>&Aring;rgang:</strong><i>
            </i><font face="Arial, Helvetica, sans-serif"><strong><%=aargangtxt%></strong></font></font></td>
        </tr>
        <tr valign="top">
          <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><strong>M&aring;l
            2003/2004:</strong> <strong><font face="Arial, Helvetica, sans-serif"><%=maal%></font></strong></font></td>
        </tr>
        <tr valign="top">
          <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><strong>Tidligere
            klubber</strong>: <font face="Arial, Helvetica, sans-serif"><strong><%=klubbertxt%></strong></font></font></td>
        </tr>
        <tr valign="top">
          <td>&nbsp;</td>
        </tr>
        <tr height="2">
          <td colspan="2" height="2"> <div align="left"></div>
            <div align="right"><font color="#000000"><a href="java script:history.go(-1)" target="_self"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">TILBAGE</font></a></font></div></td>
        </tr>
        <br>
        <%
    rs.MoveNext
  LOOP
  RS.Close
  Response.Write "</TABLE>"

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
      </table>
_____________________________________________

Hvad pokker gør jeg forkert??

Det skal lige siges, at jeg ikke er en ørn til asp. ;)