auktionscript - gem bud i DB?

jeg sidder og forsøger, at lave et auktions script til min side... når der bydes på en vare, så kan ikke få scriptet til at gemme budet i min database. Er der nogen der kan se hvad fejlen er.
__________
bud.asp
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<form method="POST" action="save.asp">
  <input type="hidden" name="Mode" value="bud">
  <input type="hidden" name="Id" value="<%= Request("Id") %>">
<tr>
<td width="80">Navn:</td>
<td>
<input type="text" name="navn" size="20" class="input"></td>
</tr>
<tr>
<td width="80">Adresse:</td>
<td>
<input type="text" name="adresse" size="20" class="input"></td>
</tr>
<tr>
<td width="80">Postnr:</td>
<td>
<input type="text" name="postnummer" size="4" class="input"></td>
</tr>
<tr>
<td width="80">By:</td>
<td>
<input type="text" name="by" size="20" class="input"></td>
</tr>
<tr>
<td width="80">Telefon:</td>
<td>
<input type="text" name="telefon" size="20" class="input"></td>
</tr>
<tr>
<td width="80">Email:</td>
<td>
<input type="text" name="email" size="20" class="input"></td>
</tr>
<tr>
<td width="80">Næste bud</td>
<td>
<input type="text" name="bud" size="6" class="input">
Dkr.</td>
</tr>
<tr>
<td width="80">&nbsp;</td>
<td>
<input type="submit" value="Byd" name="B1" class="submit"></td>
</tr>
<tr>
<td width="80">&nbsp;</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
</form>
</table>
</body>
</html>
---------
save.asp
<%
  ' Declaring variables
  Dim navn, adresse, postnummer, by, telefon, email, bud, 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
  navn = ChkString(Request.Form("navn"))
  adresse = ChkString(Request.Form("adresse"))
  postnummer = ChkString(Request.Form("postnummer"))
  by = ChkString(Request.Form("by"))
  telefon = ChkString(Request.Form("telefon"))
  email = ChkString(Request.Form("email"))
  bud = ChkString(Request.Form("bud"))
  Id = ChkString(Request.Form("Id"))

  data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dagbog.mdb")
sql_insert = "insert into bud (Id, navn, adresse, postnummer, by, telefon, email, bud                datobud) values (" & Id & ", '" & navn & "', '" & adresse & "', '" & postnummer & "', '" & by & "', '" & telefon & "', '" & email & "', '" & bud & "', Date(), '"

  ' Creating Connection Object and opening the database
  Set con = Server.CreateObject("ADODB.Connection")
  con.Open data_source
  con.Execute sql_insert
  ' Done. Close the connection
  con.Close
  Set con = Nothing
  Response.Write "Tak for dit bud."
      ' =============================================
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail3.cliche.dk"
JMail.Priority = 1
JMail.Sender = "test@test.dk"
JMail.AddRecipientEx "test@test.dk", ""
Jmail.AddRecipientCC ""
Jmail.AddRecipientBCC ""
JMail.Subject = "Der er givet et bud.."
JMail.Body = "Der er givet et bud."
JMail.Execute
Set JMail = Nothing

%>
</body>
</html>