Update

Jeg har denne side som opdatere en db.
Men den virker ikke, det er som om at den ikke får fat i dataerne, fra form-felterne.

<html>
<head>
<title>Update Film</title>

</head>
<body bgcolor=\"#FFFFFF\">
<center>
<%

  Id = request.form(\"Id\")
  Varenr = request.form(\"Varenr\")
  Tittel = request.form(\"Tittel\")
  Kat = request.form(\"kat\")
  pris = request.form(\"pris\")

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

            strSQL = \"Update Film set \"
              strSQL = strSQL & \"Varenr= \'\" & Varenr & \"\', \"
            strSQL = strSQL & \"Tittel= \'\" & Tittel & \"\', \"
            strSQL = strSQL & \"Kategori_id= \'\" & kat & \"\', \"
            strSQL = strSQL & \"Forhandlerpris= \'\" & pris & \"\' \"
            strSQL = strSQL & \"Where Id =\"& Id               
           
            response.write(strSQL)
        Set RS = myConn.execute(strSQL)
 
  If err.number>0 then
    response.write \"VBScript Errors Occured:\" & \"<P>\"
    response.write \"Error Number=\" & err.number & \"<P>\"
    response.write \"Error Descr.=\" & err.description & \"<P>\"
    response.write \"Help Context=\" & err.helpcontext & \"<P>\"
    response.write \"Help Path=\" & err.helppath & \"<P>\"
    response.write \"Native Error=\" & err.nativeerror & \"<P>\"
    response.write \"Source=\" & err.source & \"<P>\"
    response.write \"SQLState=\" & err.sqlstate & \"<P>\"
  end if
  IF conn.errors.count> 0 then
    response.write \"Database Errors Occured\" & \"<P>\"
    response.write SQLstmt & \"<P>\"
  for counter= 0 to conn.errors.count
    response.write \"Error #\" & conn.errors(counter).number & \"<P>\"
    response.write \"Error desc. -> \" & conn.errors(counter).description & \"<P>\"
  next
  else
  \' no errors, so we\'ll tell the user that all went well
    response.write \"<font face=\'arial\' size=4>\"
    response.write \"<br><br>The record has been updated.\"
    response.write \"</b></font>\"
  end if
  \' now we will close the connection to the database
  myConn.Close
%>

    <form>
    <input type=\"button\" value=\"Close This Window\" onClick=\"window.close()\">
    </form>

</center>
</body>
</html>

Siden hvor indtastningen ser således ud:
<html>
<head>
<title>Rediger film</title>

</head>
<body bgcolor=\"#FFFFFF\">
<center>
<%

    ID = request.querystring(\"ID\")
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../db/film.mdb\")

    strSQL = \"SELECT * FROM Film where Id=\" & Request.Querystring(\"Id\")
    set rs = myconn.execute(strSQL)

  Varenr = rs(\"Varenr\")
  Tittel = rs(\"Tittel\")
  kat = rs(\"kategori_id\")
  Pris = rs(\"forhandlerpris\")
    %>
<form name=\"update\" method=\"post\" action=\"rediger_film_update.asp\" enctype=\"multipart/form-data\">
    <input type=\"hidden\" name=\"ID\" value=\"<%= ID %>\">
    <table width=\"300\" border=\"0\" cellspacing=\"0\" cellpadding=\"5\" align=\"center\">
    <tr>
      <td colspan=\"2\">
          <div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><font color=\"#00005E\" size=\"4\"><b>Rediger
            film</b></font></font></div>
      </td>
    </tr>
    <tr>
      <td><font color=\"#00005E\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Varenr</font>
      <td> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <input type=\"text\" name=\"Varenr\" size=\"20\" value=\"<%= Varenr %>\">
        </font>
    </tr>
    <tr>
      <td><font color=\"#00005E\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Tittel</font></td>
      <td> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <input type=\"text\" name=\"Tittel\" size=\"30\" value=\"<%= Tittel %>\">
        </font></td>
    </tr>
    <tr>
      <td><font color=\"#00005E\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Kategori</font></td>
        <td> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
          <input type=\"text\" name=\"kat\" value=\"<%= kat %>\">
          </font></td>
    </tr>
    <tr>
      <td><font color=\"#00005E\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Pris</font></td>
      <td> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <input type=\"text\" name=\"pris\" size=\"20\" value=\"<%= pris %>\">
        </font></td>
    </tr>
    <tr>
      <td height=\"84\"><font color=\"#00005E\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Beskrivelse</font></td>
      <td height=\"84\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <textarea name=\"textfield5\" cols=\"30\" rows=\"5\"></textarea>
        </font></td>
    </tr>
    <tr>
      <td><font color=\"#00005E\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Billede</font></td>
      <td> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <input type=\"file\" name=\"file\" size=\"30\">
        </font></td>
    </tr>
    <tr>
      <td colspan=\"2\">
        <div align=\"center\">
          <input type=\"submit\" name=\"Submit\" value=\"Submit\">
        </div>
      </td>
    </tr>
  </table>
  </form>
</center>
</body>
</html>