Laver ny post istedet for at redigere

<%
case "rediger"
set conn = server.CreateObject("ADODB.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.MapPath("res.mdb")
conn.open DSN

IF request.form("submit") <> "" THEN

    str1 = request.form("titel")
    str2 = request.form("format")
    str3 = request.form("genre")
    str4 = request.form("bekrivelse")
    str5 = request.form("r")

strSQL3 = "UPDATE reserver SET "

    strSQL3 = strSQL3 & "titel='" & str1 & "'"
    strSQL3 = strSQL3 & ", format ='" & str2 & "'"
    strSQL3 = strSQL3 & ", genre ='" & str3 & "'"
    strSQL3 = strSQL3 & ", beskrivelse ='" & str4 & "'"
    strSQL3 = strSQL3 & ", status ='" & str5 & "'"

strSQL3 = strSQL3 & " WHERE spilID=" & request.querystring("id")

Conn.Execute(strSQL3)

response.Redirect("reservering.asp")

ELSE

set rs = Conn.Execute("Select * from reserver where spilID =" & request.QueryString("id"))
%>
Rediger:<br>
<form action="reservering.asp?mode=skriv" method="post">
<input type="hidden" name="r" value="leddig">
<br>
  Titel: <br>
  <input type="text" size="25" name="titel" value="<% = rs("titel") %>"><br>
  Format: <br>
  <select name="Format">
<option value="PC" selected>PC</option>
<option value="PS2">PS2</option>
<option value="XB">XB</option>
<option value="GC">GC</option>
<option value="GBA">GBA</option>
<option value="PSX">PSX</option>
</select>
<br>
  Genre: <br>
  <input type="text" name="genre" size="25" value="<% = rs("genre") %>">
<br>Beskrivelse:<br>
  <textarea name="Beskrivelse" wrap="VIRTUAL"><% =rs("beskrivelse") %></textarea>
<br><input type="submit" name="submit" value="skriv til DB">
</form>
<% end if %>

Kan ikke se hvad der er glat, men den laver en ny post i stedet for at opdatere den valgte