Si no existen reistros getRows marca error

[speedy]

Hola estoy mostrando los datos de una tabla con getRows funciona bien siempre y cuando el conjunto de registros exista en la tabla ejemplo:
1.- tengo como 20 categorias diferentes en la tabla Categorias
2.- la categoria 1 y 3 las di de alta manualmente en la tabla Fotos como les muestro a continuacion.



3.- Tengo una pantalla llamada categorias.asp y al dar clic a cualquiera de las 20 categorias que aqui se muestran, me manda a fotos.asp en esta pantalla cacho la categoria que selecione con:

Código PHP:

  request.QueryString("IdCategoria") 
   

Bien si seleccione IdCategoria = 1 o IdCategoria = 3 funciona muy bien todo, pero si selecciono cualquiera de las otras categorias me sale el siguiente error:

Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'UBound'

Y la intencion es que aun que no existen registros desde esta pantalla pueda dar de alta los reigstros que se necesiten y no como le hice (manualmente), como puedo resolver el problema?

Este es mi codigo

Código PHP:

  SQL = "SELECT * FROM Fotos WHERE IdCategoria="&IdCategoria&"  "
rs.Open SQL, adoCon,3,3
if not rs.eof then
    TablaFotos = rs.getRows()
    rs.close
end if    
IdFoto = 0
Foto = 2
Comentario = 3%>      
<table width="100%"  border="0" align="center">
<% for NumeroRegistro = 0 to UBound(TablaFotos,2) %>      
        <tr bgcolor="#D8E4F4">
          <td width="24%">
          <div align="left" >&nbsp;&nbsp;
          <a class="EstiloAzulChico" href="fotos.asp?IdFoto=<%= TablaFotos(IdFoto, NumeroRegistro) %>&editar=s"> 
   

Gracias por sus comentarios y SALUDOS.

[AlZuwaga]

Fijate el error de lógica que tenés en el código:

- preguntás: si hay registros, entonces creo el array "TablaFotos". Si no los hay, pues no creo el array.
- Luego, existan o no registros (oséase que exista o no el array TablaFotos), iterás el array.

Entonces, tenés que mover el "end if" pa' abajo. Quedando una lógica similar a ésta:

Código:

if hay registros
    'creo el array
    'cierro el recordset y la conexión
    'itero el array para desplegar los datos
else
    'oppsss no hay registros!
    'aviso que no existen:
    Respnse.Write "no hay registros"
    'hago lo que sea necesario aquí
end if

saludos

[speedy]

Si era eso jeje pero pues que bien que existe esta increible comunidad de forosdelweb.com si

Gracias