Problema conector ODBC

[Adler]

Hola

Vamos a cambiar esto

Código ASP:

rsTabla.Open consultaSQL, conexion, 1
 
while not rstabla.eof
codigo = rstabla("Incident_Number")
Response.Write "<b>Código: </b> " & codigo & "<br>"
rstabla.MoveNext
wend
 

por esto otro

Código ASP:

set rsTabla = conexion.Execute(consultaSQL)
 
If rsTabla.eof = True or rsTabla.bof = True then
Response.Write "No se ha traido ningón registro"
Else
' Recogemos los registros
registros = rsTabla.getrows()
 
'Cerramos conexión
End If
 
For i = 0 to UBound(registros,2)-1
Response.Write "<b>Código: </b> " & registros(0,i) & "<br>"
Next 'i
 

Suerte