Hombre, pues tienes que crear un recordset que recorra los campos de la Base de Datos:
Set
rsFotos = Server.CreateObject("ADODB.Recordset")
despues la sentencia SQL:
strSQL = "SELECT
id (CampoAutonumerico),
Campo2 FROM
Tabla"
rsFotos.CursorType = 3
rsFotos.Open strSQL, miConexion
Despues, con un bucle pones todas la fotos
<%
While Not
rsFotos.Eof%>
<a href="javascript
:window.open('ver1.asp?var='<%=
rsFotos("id")%>','popup','toolbar=no,scrollbars=yes,location=no ,
status=no,resizable=yes,width=650, height=550,top=0,left=0')"><img src='/imagenes/<%=
rsFotos("Campo2")%> ' width='580px' heigth='500px'><br><br></a>
<%
rsFotos.MoveNext
Wend %>