que falla?

con esto no puedo actualizar mi base de datos??? Que le falta o cual es el
error?
<%
cod=Request.Form("txtcod")
com=Request.Form("txtapell")
con=Request.Form("txtnombr")
cal=Request.Form("txtfechnac")
cap=Request.Form("txtfechin")
cat=Request.Form("txtdni")
cak=Request.Form("txttelf")
cakt=Request.Form("txtdircc")

Set cn=Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB; Server=(local);Database½Empleado;uid=sa"
sql="Update EMPLEADO set Apellido='" & com & "', Nombre='"
sql=sql & con & "', Fecha_Nac='" & cal & "',Fecha_Inicio_Lab='" & cap &
"',DNI='" & cat & "',Telefono='" & cak & "',Direccion='" & cakt & "' where
Codigo=' "
sql=sql & cod & "'"
cn.Execute(sql)
set cn=Nothing
Response.Redirect("Administrador.asp")
%>