<% 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:
<% 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 %>