Add-script --> Jeg kan ikke få det til at virke

Jeg skal lave en side der hier den data frem fra databasen med en givet id-værdi

Request.QueryString("id")

Jeg har følgende skript:


<--- liste.asp --->

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../log/bandholm.mdb")
Conn.Open DSN

strSQL = "Select * From medlem2002 Order by efternavn"
Set rs = Conn.Execute(strSQL)

Do
  ' Personens navn
  strNavn = rs("Fornavn") & " " & rs("Efternavn")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"

  ' lav et link til person.asp med Id-værdien i URL
  strLink2 = "<a href='ret-form.asp?id=" & rs("Id") & "'><font color='blue'>Ret</font></a>"

  ' Liste med links
  Response.Write "<li>" & strLink & " " & strLink2 & "</li>"

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>


<--- ret-form.asp --->

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../../log/bandholm.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL


SQL = "SELECT * FROM medlem2002 WHERE id = " & Request.QueryString("id")
Set rs = Conn.Execute(SQL)

   
        strID = rs("ID")
        strType = rs("Type")
        strFornavn = rs("Fornavn")
        strEfternavn = rs("Efternavn")
        strGade = rs("Gade")
        strNr = rs("Nr")
        strPost = rs("Post")
        strBy = rs("By")
        strLand = rs("Land")
        strBaad = rs("Baad")
%>
<!--#include file="function.asp"-->

<html>
<title>Medlemskardotek</title>
<head>

<!--#include virtual="/style.css"-->

</head>
<body>
<dl>
<table cellpadding=2 cellspacing=2 border=1 bordercolor=black class=format width="500">

  <tr>
    <td width="100%" colspan="3">
    <br>

<form method="POST" action="ret-form.asp">
  <div align="center">
    <center>
    <table border="0" width="75%" cellspacing="0" cellpadding="0" height="223">
      <tr>
        <td width="100%" height="25"><%=strError%>
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">ID: <%=strid%></font><br>
          <input type="hidden" name="id" value="<%=strid%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Medlemstype:</font><br>
    <select name="Type" tabindex="1" value="<%=strType%>">
    <option value="Familie">Familie</option>
    <option value="Aktiv">Aktiv</option>
    <option value="Passiv">Passiv</option>
    <option value="Æresmedlem">Æresmedlem</option>
    </select>
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Fornavn:</font><br>
          <input type="text" name="Fornavn" size="28" class="box" tabindex="2" value="<%=strFornavn%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Efternavn:</font><br>
          <input type="text" name="Efternavn" size="28" class="box" tabindex="4" value="<%=strEfternavn%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Gadenavn:</font><br>
          <input type="text" name="Gade" size="28" class="box" tabindex="5" value="<%=strGade%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Husnummer:</font><br>
          <input type="text" name="Nr" size="28" class="box" tabindex="6" value="<%=strNr%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Postnummer:</font><br>
          <input type="text" name="Post" size="28" class="box" tabindex="7" value="<%=strPost%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">By:</font><br>
          <input type="text" name="By" size="28" class="box" tabindex="8" value="<%=strBy%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Land:</font><br>
          <input type="text" name="Land" size="28" class="box" tabindex="9" value="<%=strLand%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="25"><font face="Verdana" size="2">Bådnavn:</font><br>
          <input type="text" name="Baad" size="28" class="box" tabindex="10" value="<%=strBaad%>">
        </td>
      </tr>
      <tr>
        <td width="100%" height="46"><br>
          <input type="submit" value="  Send  " name="update" class="box" tabindex="11">&nbsp;&nbsp;
          <input type="button" value="  Fortryd  " name="Annuller" class="box" onClick="java script:location.href='medlem.asp'" tabindex="12">
        </td>
      </tr>
    </table>
    </center>
  </div>
</form>
<br></td></tr>
</table>
<%
SQL = "UPDATE medlem2002 SET Type = '" & RemoveHTML(Request.Form("Type")) & "', Fornavn = '" & RemoveHTML(Request.Form("Fornavn")) & "', Gade = '" & RemoveHTML(Request.Form("Gade")) & "', Nr = '" & RemoveHTML(Request.Form("Nr")) & "', Post = '" & RemoveHTML(Request.Form("Post")) & "', By = '" & RemoveHTML(Request.Form("By")) & "', Land = '" & RemoveHTML(Request.Form("Land")) & "', Baad = '" & RemoveHTML(Request.Form("Baad")) & "' WHERE id = " & Request.Form("id")
%>


Hvor værdierne fra databasen skulle sættes ind i formen igen, men det virker slet ikke :(
Er der nogen der kan hjælpe??

Jeg håber jeg har udtrykt mig klart nok