Please Choose an Image <% Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "DSN=snoo_kfin" Conn.Open SQL = "SELECT * FROM PhotoGallery WHERE Active = 'on'" Set RS = Conn.Execute(SQL) %> <% While Not RS.EOF Response.Write ( "" & RS( "DropDownMenu" ) & "" RS.MoveNext WEND %>