Gammer ikke til Access

<---KODEN--->
set conn = server.CreateObject("ADODB.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.MapPath("gba.mdb")
conn.open DSN

strSQL1 = "Insert into div_text (slags, overskrift, teaser, forfatter, billed, tekst, udvikler, udgiver, udlåner, genre, hjemmeside, censur, spillere, karakter, dato) values('" & Request.Form("slags") & "','" & Request.Form("overskrift") & "','" & Request.Form("teaser") & "','" & Request.Form("forfatter") & "','" & Request.Form("billed") & "','" & request.Form("tekst") & "','" & request.Form("udvikler") & "','" & request.Form("udgiver") &"','" & request.Form("udlåner") & "','" & request.Form("genre") & "','" & request.Form("hjemmeside") & "','" & request.Form("censur") & "','" & request.Form("spillere") & "','" & request.Form("karakter") & "','" & date & "')"

Conn.execute(strSQL1)
Conn.Close
Set Conn = Nothing

Response.Write "data gemt"
Response.write "<br><br> <a href='skrevreview.asp'>Tilføj mere</a>"

Case "slet"

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("gba.mdb")
Conn.Open DSN

strSQL4 = "Delete from div_text where idtext =" & request("Id")
Conn.Execute(strSQL4)

Conn.Close
Set Conn = Nothing

response.Redirect("skrivred.asp")
%>

<Den henter fra en form ved brug af actions, det sjove er at den ikke gemmer i databasen, men heller ikke kommer med nogle fejl?