fejl ved udtræk af ID

Hej er der nogle som kan for klager hvorfor "ID" ikke kommer med ud på siden?


                    <form name="form1" id="form1">
                      <img src="images/9x9.gif" width="9" height="9" /><br />
                      <select name="select" class="normaltekst" onchange="MM_jumpMenu('parent',this,0)">
                        <option selected="selected">V&aelig;lg et produkt</option>
                                          <%                     
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database/database.mdb")
Conn.Open DSN
%>
                        <%

    strSQL = "select * from produkter p, kategori k where p.kategori = k.kategori and k.nr = '01_01' and p.aktiv_link ='ja'"
   

Set rs = Conn.Execute(strSQL)
do while not rs.EOF 
    fornavn = rs("fornavn")
    id = rs("id")
  %>
                        <option value="../produktside/01_01.asp?id=<%=id%>"><%=fornavn%></option>
                        <%
  rs.Movenext
loop
%>
                      </select>
                    </form>
                    <%
Conn.Close
Set Conn = Nothing
%>