Problema con formulario de actualizaciones

[skatomundo]

<%
Id = request.Form("fId")

Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Mibase"

Set registros=Server.CreateObject("ADODB.Recordset")
registros.open "SELECT * from TRAFICOS where (numrep= '" & cdbl(Id) & "')",conn

'..
%>
Usando CDBl para forzarlo a Numero puede ser...