Update?

Er der nogen som kan fortælle mig hvorfor dette script sletter den post som den skal UDEN at opdatere databasen først? Det skal lige siges den kommer ikke med nogen fejl?!?!?!


if side = "side1" then

if Request.QueryString("id") = "1" then
     
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db1.mdb")

elseif Request.QueryString("id") = "2" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db2.mdb")
       
elseif Request.QueryString("id") = "3" then

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

end if

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM ark1 WHERE user = " & Request.QueryString("user") & ""
rs.Open strSQL, Conn, 1, 3

set rs1 = Conn.execute("SELECT * FROM data WHERE id = " & Request.QueryString("k") & "")

if rs1("user") = Server.HTMLEncode(Request("user")) then
       
rs("1") = rs("1") + 1
rs("2") = rs1("2") + rs("2")
rs("3") = (rs1("4") * rs1("2")) + rs("3")
rs.Update
       
else
   
rs("5") = rs("5") + 1
rs("2") = rs1("2") + rs("2")
rs.Update
       
end if

Conn.Execute ("DELETE * FROM data WHERE id = " & Request.QueryString("k") & "")

Response.Redirect ("?side=")
end if

plz help!