Update where id= \'variabel\'

Jeg kan ikke se Hvad der er galt!! ?-|

Her er koden:
<% response.buffer = true %>
<% Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/ftp.mdb\")
strSQL = \"select* from ftps \"
set rs = Conn.execute(strSQL)
i = Session(\"rate\")
p1 = request.form(\"ratet\")
p2 = rs(\"vote\")
p = p1 + p2
v1= rs(\"votes\")
v= v1 + 1
Conn.execute(\"UPDATE ftps SET vote = \'\" & p &\"\', votes = \'\" & v &\"\' WHERE (ID= \'\" & i & \"\') \")
Conn.Close
Set Conn = Nothing
%>

Hvis du kan hjælpe ville jeg være glad!