Fejl i ASP kode?

Hej!!

Jeg er igang med at lave et lille script, hvor det skal være muligt at slette en række i Access og opdatere en anden.

Altså jeg vil gerne have den til at opdatere "Money" (et felt) i "Community" (en tabel).

"Money" skal opdateres med "Total", som er en defination af et lilleregnestykke.

Derefter skal den linje med tilhørende ID slettes i Stocks (en tabel)...

Jeg kan bare ikke få det til at fungere...

Min kode ser sådan ud:

<%@ Language=VBScript %>
<%
If Not Session("login") > 0 Then Response.Redirect("login.asp")
%>
<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/db.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "Select * From Stocks Where ID = " & Request("ID")
set RS = conn.Execute(SQL)

Price = cint(RS("Number")) * cint(RS("BuyValue"))

conn.Close
set Conn = Nothing



Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From Community Where ID = "& Session("login")
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
   
Total = cdbl(RS("Money")) + cdbl(Price)

      rs("Username") = rs("Username")
      rs("Password") = rs("Password")
      rs("Money") = Total
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing



set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/db.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "Delete From Stocks Where ID = " & Request("ID")
conn.Execute(SQL)

conn.Close
set Conn = Nothing
%>

Håber der er nogen der kan hjælpe mig!