GetRows - omitir datos

[Anushka]

Hola

Tengo una pagina donde uso el metodo "GetRows" para mostrar registros.
En la pagina aparecen las fotos de los usuarios registrados, pero las filas que se muestran son irregulares. Algo así:

imagen imagen imagen
imagen
imagen imagen
imagen imagen imagen

El codigo es:

Sub Most(num,nombre,foto)
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Server.Mappath("../usuarios/" & foto)) Then
Response.Write ("<TD valign='top'><p align='center' class='Estilo80'>" & num & "<br>")
Response.Write ("<a href=""javascript:;"" onClick=MM_openBrWindow(usuarios.asp?Numero=" & num & "','','toolbar=yes,location=yes,status=yes,menubar =yes,scrollbars=yes,resizable=yes,width=700,height =400')><img src='../usuarios/" & foto & "' width='90' height='100' border='0'></A><br>")
Response.Write ("<strong>" & nombre & "</strong>")
else
Response.Write ""
End if
Response.Write ("</td>")
End Sub

Supongo q eso pasa, por q hay algunos usuario registrados que no tienen foto. ¿Como hago para q se muestren las filas bien:

imagen imagen imagen
imagen imagen imagen
imagen imagen imagen

He probado usar en vez de
Response.Write "" - move.next.
Pero me sale error q "no coinciden los tipos..."

[mc_quake]

mira por que no te creas ina imagen que diga sin foto y la cargas a tu base de datos simpre que el campo foto este vacio eso lo debes hacer cuando ingresas los usuarios

teniendo eso te funcionara correctamente lo que necesitas

esa es mi opinon espero sirva de algo

[Anushka]

Si, eso seria más facil, pero los q encargaron la WEB me condicionan.
No quieren q se muestren los datos de Usuario si no tenga al menos 1 foto subida al servidor.

[mc_quake]

y si filtras primero todos los usuarios que tengan fotos y una ves que generas la consulta los empiezas a desplegar con tu funcion

[Anushka]

Buena idea
¿Me podeis ayudar con el codigo?

[mc_quake]

haber intentare

mira dime los datos de tu tabla para poder hacerlo con los nombres reales de los campos que utilizas en tu aplicacion

[Anushka]

Tres columnas:
Numero
Nombre
Foto

[mc_quake]

okis mira

CREAR LOS OBJETOS DE CONEXION A LA BD

Sql = "SELECT Numero, Nombre, Foto FORM Tabla Where Foto <> "" "

teniendo la consulta asi ahora solo basta poner tu funcion


Sub Most(num,nombre,foto)
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Server.Mappath("../usuarios/" & foto)) Then
Response.Write ("<TD valign='top'><p align='center' class='Estilo80'>" & num & "<br>")
Response.Write ("<a href=""javascript:;"" onClick=MM_openBrWindow(usuarios.asp?Numero=" & num & "','','toolbar=yes,location=yes,status=yes,men ubar =yes,scrollbars=yes,resizable=yes,width=700,height =400')><img src='../usuarios/" & foto & "' width='90' height='100' border='0'></A><br>")
Response.Write ("<strong>" & nombre & "</strong>")
else
Response.Write ""
End if
Response.Write ("</td>")
End Sub

[Anushka]

Hola de nuevo

mc_quake, gracias por ayudar, pero no funcciona.

Creo q hay q tratar de comprobar la existencia del archivo ántes de generar la consulta. Pero NO la existencia del nombre de la imagen en la tabla de base de datos.

¿Hay alguna manera de hacerlo con "FileExists"?

Algo asi:

Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Server.Mappath("../usuarios/" & foto)) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Connection
rs.Source = "SELECT Numero, Nombre, Foto FROM Tabla
......

He probado muchas veces y no me sale