<%@LANGUAGE="VBSCRIPT"%> <% Dim AS2005__MMColParam AS2005__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then AS2005__MMColParam = Request("MM_EmptyValue") End If %> <% Dim AS2005 Dim AS2005_numRows Set AS2005 = Server.CreateObject("ADODB.Recordset") AS2005.ActiveConnection = MM_gallery_STRING AS2005.Source = "SELECT * FROM 2005 WHERE gallery_pg = " + Replace(AS2005__MMColParam, "'", "''") + " ORDER BY ID ASC" AS2005.CursorType = 0 AS2005.CursorLocation = 2 AS2005.LockType = 1 AS2005.Open() AS2005_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 AS2005_numRows = AS2005_numRows + Repeat1__numRows %> Airshow! Western Colorado 2008 - Grand Junction, Colorado
 

Air Show ! Western Colorado 2005 Photo Gallery
Photography courtesy of Darlyne Merkel

Page 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9

<% While ((Repeat1__numRows <> 0) AND (NOT AS2005.EOF)) %> ">" width="149" height="98" border="0"> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 AS2005.MoveNext() Wend %>

Page 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9
 

<% AS2005.Close() Set AS2005 = Nothing %>