problema con un textarea en una sentencia sql

[skatomundo]

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open "mia"

Set RS=Server.CreateObject("ADODB.Recordset")
local=request.form("localidad")
prec=request.form("precio")
descr=replace(request.form("descrip"),vbcrlf,"<BR> ") <-TEXTAREA


sql="select * from escaparate where num="& session("id")&" "
rs.open sql,Conn, &H0001,3
if not rs.eof then
rs.fields("desc") = descr
rs.fields("localidad") = local
rs.fields("precio") = cdbl(precio)
rs.update
end if
rs.close


"Los valores de las constantes para la operacion no las conozco no se si son: 1,3"


Salu2