No funciona?Hummm.....
quizas sea una estupidez

...pero pureba asi:
<%
codproducto=request.form("codproducto") codproducto= cint( codproducto )
response.write (codproducto)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "deportes"
'+++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++
sql="select * from producto where codproducto='"&codproducto&"'"
set rs=createobject("ADODB.Recordset")
rs.open sql,conn
response.write rs("codproducto") & "<br>"
response.write rs("RUTA") & "<br>"
'rs.close
%>
No se es un presentimiento

....cuentame haber que tal
suerte!!