Uppdatera databas

varför fungerar ej detta?

<% Response.Buffer = True %>
<!-- #include virtual="adovbs.inc" -->

<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT \* FROM gbook WHERE ID = " & Request.QueryString("ID") & " "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.Insert

'Kolla om Namnet är tomt
If Request.Form("namn") <> "" Then
RecSet("Namn") = Request.Form("namn")
End If

'Kolla om Email är tomt
If Request.Form("email") <> "" Then
RecSet("Email") = Request.Form("email")
End If

' Kolla om Webb är tomt
If Request.Form("url") <> "" Then
RecSet("url") = Request.Form("url")
End If

'Kolla om Meddelandet är tomt
If Request.Form("inlagg") <> "" Then
RecSet("inlagg") = Request.Form("inlagg")
End If

'Fyller i resten
RecSet("IP") = Request.Form("ip")
RecSet("Smile") = Request.Form("smile")
RecSet("pws") = Request.Form("pws")

RecSet.Update

RecSet.Close

Response.Redirect("sidor/gb.asp?meny=5")

%>