<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/data/Archived Movies.mdb")) set rs=Server.CreateObject("ADODB.recordset") sql="SELECT DISTINCT Genre FROM Movies UNION SELECT DISTINCT Genre2 FROM Movies UNION SELECT DISTINCT Genre3 FROM Movies ORDER BY Genre" rs.Open sql, conn genre=request.form("Genre") %>

Choose Genre: <% do until rs.EOF response.write("") response.write(rs.fields("Genre")) rs.MoveNext loop rs.Close set rs=Nothing %>

<% if genre<>"" then set rs=Server.CreateObject("ADODB.Recordset") rs.Open "SELECT DVD, Moviename, Genre, Genre2, Genre3, Rating, Year FROM Movies WHERE Genre='" & genre & "' OR Genre2='" & genre & "' OR Genre3='" & genre & "'",conn %> <% do until rs.EOF response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") rs.MoveNext loop rs.Close conn.Close set rs=Nothing set conn=Nothing %>

DVD	Movie	Genre	Rating	Year
" & rs.fields("DVD") & "	" & rs.fields("Moviename") & "	" & rs.fields("Genre")) if rs.fields("Genre2")<>"" then response.write("/" & rs.fields("Genre2")) if rs.fields("Genre3")<>"" then response.write("/" & rs.fields("Genre3")) end if end if response.write ("	" & rs.fields("Rating") & "	" & rs.fields("Year") & "

<% end if %>