genres

<%
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("<select name='genre2' id='genreSelect2'>")
	do until rs.EOF
	if rs.fields("Genre") = str then
		rs.MoveNext
	else
		response.write("<option>")
		response.write(rs.fields("Genre"))
		rs.MoveNext
	end if
	loop
	rs.Close
	
elseif w = "genreSelect2" then
	response.Write("<select name='genre3' id='genreSelect3'>")
	do until rs.EOF
	if rs.fields("Genre") = str then
		rs.MoveNext
	else
		response.Write("<option>")
		response.Write(rs.fields("Genre"))
		rs.MoveNext
	end if
	loop
	rs.Close
end if
%>