Por favor alguien me puede ayudar con el error de este código, tengo 3 días buscando el error y nada,.
<%
opcb=Request("opcb")
codigo_catastral=Request("codigo_catastral")
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function llenarform() {
<%
if (opcb=1) then
Dim Conn4, Tabla4
Set Conn4 = Server.CreateObject("ADODB.Connection")
Conn4.Open "DSN=gye"
Set Tabla4=Server.CreateObject("ADODB.recordset")
Temp4 = "Select * from const_inicial where codigo_catastral"& "'"& codigo_catastral & "'"
Tabla4.Open Temp4, Conn3 linea 76 DO WHILE NOT Tabla4.Eof
response.write("main.no_registro.value=""" & trim(Tabla4.fields(0)) & """" & chr(13))
response.write("main.dia_reg.value=""" & trim(Tabla4.fields(1)) & """" & chr(13))
response.write("main.mes_reg.value=""" & trim(Tabla4.fields(2)) & """" & chr(13))
response.write("main.anio_reg.value=""" & trim(Tabla4.fields(3)) & """" & chr(13))
Tabla4.MoveNext
LOOP
End If
%>
}
//-->
</script>
El error es el siguiente:
Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/GYE/Web/report.asp, line 76
