Saludos,
Yo había hecho uno que hacía esto, solo que funcionaba con frames entonces tenía uno superior donde se mostraban las miniaturas y otro inferior donde se mostraban las grandes, eso sí yo a está página le pasaba un campo "Buscar", para que solo me mostrará las imágenes que tuvieran una determinada cadena, este es el código de la página que hacía la busqueda puedes modificarla a tu placer para lo que necesitas.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Virtual Gallery</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilos.css" rel="stylesheet" type="text/css">
</head>
<%
'Declaramos algunas constantes
Buscar = Request.QueryString("buscar")
CONST Separador = "\" 'Windows
'CONST Separador = "/" 'Linux
CONST PathIMG = "big" 'Ruta de Imágenes grandes
CONST PathTMB = "thumbs" 'Ruta de Thumbnails
Dim ObjFSO, ObjFolder
SET ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
'Obtenemos la ruta actual
Ruta = StrReverse(Request.ServerVariables("PATH_TRANSLATE D"))
Punto = InStr(Ruta, Separador)
Ruta = StrReverse(Ruta)
Ruta = Left(Ruta, (Len(Ruta) - Punto))
SET ObjFolder = ObjFSO.GetFolder(Ruta & Separador & PathTMB & Separador)
%>
<body>
<table border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<%
Cont = 0
For Each Archivo In ObjFolder.Files
IF InStr(Archivo, Buscar) <> 0 THEN
Cont = Cont + 1
Ruta = StrReverse(Request.ServerVariables("PATH_INFO"))
Punto = InStr(Ruta, Separador)
Ruta = StrReverse(Ruta)
Ruta = Left(Ruta, (Len(Ruta) - Punto))
Ruta1 = (Ruta & Separador & PathTMB & Separador & Archivo.Name)
%>
<td><a href="../main.asp?img=<%= Ruta & Separador & PathIMG & Separador & Archivo.Name %>" target="main"><img src="<%= Ruta1 %>" width="80" height="80" border="0"></a></td>
<%
END IF
NEXT
IF Cont = 0 THEN Response.Write("<td><h3>This section is empty.</h3></td>")
%>
</tr>
</table>
</body>
</html>
Si necesitas ayuda con el mismo solo avisame.