<% response.expires=-1 set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/data/Archived Movies.mdb")) str = request.QueryString("g") set rs=Server.CreateObject("ADODB.recordset") sql="SELECT DISTINCT Genre FROM Movies UNION SELECT DISTINCT Genre2 FROM Movies" sql=sql & "UNION SELECT DISTINCT Genre3 FROM Movies ORDER BY Genre WHERE Genre='" & str & "'" sql=sql & "OR Genre2='" & str & "' OR Genre3='" & str "'" rs.Open sql, conn w = request.QueryString("q") if w = "genreSelect1" then response.Write("") do until rs.EOF if rs.fields("Genre") = str then rs.MoveNext else response.write("") response.write(rs.fields("Genre")) rs.MoveNext end if loop rs.Close elseif w = "genreSelect2" then response.Write("") do until rs.EOF if rs.fields("Genre") = str then rs.MoveNext else response.Write("") response.Write(rs.fields("Genre")) rs.MoveNext end if loop rs.Close end if %>