Data bliver ikke gemt i DB'en

Mit script vil ikke gemme dataerne som man indtaster, når man opretter sin profil. Er der en, der kan hjælpe med at finde fejlen? Når jeg klikker på "send" for at oprette profilen, så kommer mit script ud og siger at gemdata.asp ikke findes, selvom den er på min server.

siden med linket til oprettelse af profil:
<%

Response.Buffer = True
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("users.mdb")

if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("default.asp")
end if

IF Session("username-session") = "" Then
Response.Redirect("login.asp")
end if

Sql = "Select * FROM users WHERE username = '" & session("username-session") & "'"
set rs = rs.Execute(SQL)

    Response.Write "Hej " & RS("username") &" du er nu logget ind på slanke siden!<br><br>"

    Response.Write "<center><a href='loggedin.asp?mode=logaf'>Log af</a>"
    Response.Write "<br><br>"
    Response.Write "<a href=""oplys.asp?id="&rs("id")&""">Opret profil</a>"
    Response.Write "<br><br>"
    Response.Write "<a href=""nyoplys.asp?id="&rs("id")&""">ændre dine oplysninger</a></center>"
    rs.Close
    Set rs = Nothing

%>
opretprofil.asp
<% response.buffer = true %>
<font face='Verdana'>Oplysninger:
<form action='oplys_gem_data.asp' method='post'>
<input type='hidden' name='Mode' value='stamdata'>
<input type="hidden" name="id" value="<%= Request("id") %>">
<font face='Verdana'>Alder<br>
<input type='text' name='alder' size='5'>
<br>
<font face='Verdana'>Navn<br>
<input type='text' name='navn' size='5'>
<br>
<font face='Verdana'>Højde:<br>
<input type='text' name='hojde' size='20'>
<br>
Køn<br>
<select size='1' name='kon'><option>Køn</option><option value='Mand'>Mand</option><option value='Kvinde'>Kvinde</option></select>
<br>
Fra<br>
<input type='text' name='fra' ROWS='10' COLS='40'>
<br>
Din profiltekst:<br>
<textarea rows='8' name='comments' cols='28'></textarea><p>
<input type='submit' value='Send'></font>
</form>

gemdata.asp
<% response.buffer = true %>
<%
  ' Declaring variables
  Dim alder, navn, hojde, kon, fra, comments, data_source, con, sql_insert

  ' A Function to check if some field entered by user is empty
  Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
  End Function

  ' Receiving values from Form
  alder = ChkString(Request.Form("alder"))
  navn = ChkString(Request.Form("navn"))
  hojde = ChkString(Request.Form("hojde"))
  kon = ChkString(Request.Form("kon"))
  fra = ChkString(Request.Form("fra"))
  comments = ChkString(Request.Form("comments"))
  id = ChkString(Request.Form("id"))

  data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("users.mdb")
    sql_insert = "insert into stamdata (id, alder, navn, hojde, kon, fra, comments, dato) values (" & id & ", '" & alder & "', '" & navn & "', '" & hojde & "', '" & kon & "', '" & fra & "', Date(), '" & comments & "')"

I min db har jeg tabellen stamdata:
DID (sat til auto)
id - tal
navn - tekst
alder - tekst
hojde - tekst
kon - tekst
fra - tekst
comments -notat
dato- Dato og klokkesl