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