Problema com ID no asp

Fala Galera,

Estou precisando de uma ajuda na seguinte questão:

Meu conhecimento em asp é limitado, porém com o que eu sei estou montando um sistema de gerenciamento de manutenção de computadores para mim. Mas ao atualizar as informações ele não está atualizando por conta do ID, como eu posso resolver isso? preciso de orientção detalhada, por favor.

<%
ID = REPLACE(REQUEST("ID") , "'", "''")
CLIENTE = TRIM(REPLACE(REQUEST("CLIENTE") , "'", "''"))
NOMEPC = TRIM(REPLACE(REQUEST("NOMEPC") , "'", "''"))
LOCALIZACAO = TRIM(REPLACE(REQUEST("LOCALIZACAO") , "'", "''"))
FUNCAO = TRIM(REPLACE(REQUEST("FUNCAO") , "'", "''"))
USUARIO = TRIM(REPLACE(REQUEST("USUARIO") , "'", "''"))
PLATAFORMA = TRIM(REPLACE(REQUEST("PLATAFORMA") , "'", "''"))
PLACAMAE = TRIM(REPLACE(REQUEST("PLACAMAE") , "'", "''"))
MODELO = TRIM(REPLACE(REQUEST("MODELO") , "'", "''"))
CHIPSET = TRIM(REPLACE(REQUEST("CHIPSET") , "'", "''"))
SOCKET = TRIM(REPLACE(REQUEST("SOCKET") , "'", "''"))
SLOT = TRIM(REPLACE(REQUEST("SLOT") , "'", "''"))
CONTROLADORAS = TRIM(REPLACE(REQUEST("CONTROLADORAS") , "'", "''"))
PROCESSADOR = TRIM(REPLACE(REQUEST("PROCESSADOR") , "'", "''"))
MODELOPROC = TRIM(REPLACE(REQUEST("MODELOPROC") , "'", "''"))
SOCKETPROC = TRIM(REPLACE(REQUEST("SOCKETPROC") , "'", "''"))
CLOCK = TRIM(REPLACE(REQUEST("CLOCK") , "'", "''"))
HD = TRIM(REPLACE(REQUEST("HD") , "'", "''"))
TAMANHO = TRIM(REPLACE(REQUEST("TAMANHO") , "'", "''"))
VELOCIDADE = TRIM(REPLACE(REQUEST("VELOCIDADE") , "'", "''"))
CONTROLADORA = TRIM(REPLACE(REQUEST("CONTROLADORA") , "'", "''"))
MEMORIA = TRIM(REPLACE(REQUEST("MEMORIA") , "'", "''"))
TAMANHOMEMO = TRIM(REPLACE(REQUEST("TAMANHOMEMO") , "'", "''"))
FREQUENCIA = TRIM(REPLACE(REQUEST("FREQUENCIA") , "'", "''"))
TIPO = TRIM(REPLACE(REQUEST("TIPO") , "'", "''"))
PERIFERICOS = TRIM(REPLACE(REQUEST("PERIFERICOS") , "'", "''"))
SO = TRIM(REPLACE(REQUEST("SO") , "'", "''"))
VERSAOSO = TRIM(REPLACE(REQUEST("VERSAOSO") , "'", "''"))
PROGRAMAS = TRIM(REPLACE(REQUEST("PROGRAMAS") , "'", "''"))
OFFICE = TRIM(REPLACE(REQUEST("OFFICE") , "'", "''"))
VERSAOOFF = TRIM(REPLACE(REQUEST("VERSAOOFF") , "'", "''"))
TEMPOUSO = TRIM(REPLACE(REQUEST("TEMPOUSO") , "'", "''"))
EMAIL = TRIM(REPLACE(REQUEST("EMAIL") , "'", "''"))
DATA = TRIM(REPLACE(REQUEST("DATA") , "'", "''"))

SQL = "UPDATE HARDWARE SET CLIENTE ='"& CLIENTE &"'"
SQL = SQL & ", NOMEPC ='"& NOMEPC &"', LOCALIZACAO ='"& LOCALIZACAO &"', FUNCAO ='"& FUNCAO &"', USUARIO ='"& USUARIO &"', PLATAFORMA ='"& PLATAFORMA &"', PLACAMAE ='"& PLACAMAE &"', MODELO ='"& MODELO &"', CHIPSET ='"& CHIPSET &"', SOCKET ='"& SOCKET &"', SLOT ='"& SLOT &"', CONTROLADORAS ='"& CONTROLADORAS &"', PROCESSADOR ='"& PROCESSADOR &"', MODELOPROC ='"& MODELOPROC &"', SOCKETPROC ='"& SOCKETPROC &"', CLOCK ='"& CLOCK &"', HD ='"& HD &"', TAMANHO ='"& TAMANHO &"', VELOCIDADE ='"& VELOCIDADE &"', CONTROLADORA ='"& CONTROLADORA &"', MEMORIA ='"& MEMORIA &"', TAMANHOMEMO ='"& TAMANHOMEMO &"', FREQUENCIA ='"& FREQUENCIA &"', TIPO ='"& TIPO &"', PERIFERICOS ='"& PERIFERICOS &"', SO ='"& SO &"', VERSAOSO ='"& VERSAOSO &"', PROGRAMAS ='"& PROGRAMAS &"', OFFICE ='"& OFFICE &"', VERSAOOFF ='"& VERSAOOFF &"', TEMPOUSO ='"& TEMPOUSO &"', DATA ='"& DATA &"' WHERE ID = "& ID

'response.Write(sql)
'response.End()

CONEXAO.EXECUTE(SQL)

RESPONSE.Redirect("lista.asp?alteracao_sucesso=ok")

%>

Obrigado pela ajuda.