<html>
<head>
<script src="AJAXfunctions.js"></script>
</head>
<body>
<%
response.expires=-1
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
'searchType=request.form("searchType")
'genre=request.form("Genre")
'mName=request.form("movieName")
'filterResults=request.Form("filterResults")
'intCount=0
'Pretty simple stuff, all the stuff from the main page gets outputted here instead. I think the problem might come from the
'fact that things get tricky when you need to use quotation marks inside the response.Write statement.
response.Write("<form action='listmovies.asp' method='post' id='parameters'>")
if request.QueryString("q")="basic" then
response.Write("<input type='radio' name='searchType' value='name'")
if searchType="name" then response.Write(" checked")
response.Write("ID='Radio1'/> Movie name: <input type='text' name='movieName'")
if mName<>"" then response.Write("value="+mName)
response.Write("ID='Text1'/>")
response.Write("<br />")
response.Write("<input type='radio' name='searchType' value='genre'")
if searchType="genre" then response.Write(" checked")
response.Write("ID='Radio2'/> ")
response.Write("Genre: <select name='genre' ID='Select1'>")
do until rs.EOF
response.write("<option")
if rs.fields("genre")=Genre then
response.write(" selected")
end if
response.write(">")
response.write(rs.fields("Genre"))
rs.MoveNext
loop
response.write("<option>(All)")
rs.Close
set rs=Nothing
response.Write("<br />")
response.Write("<input type='submit' value='Show movies'/>")
elseif request.QueryString("q")="advanced" then
response.Write("<table border='0' cellpadding='0' cellspacing='0'><tr><td>")
response.Write("<div id='genrespot1'></div>")
response.Write("Genre: <select name='genre1' id='genreSelect1' onChange='populateGenres(" & this.id & "," & this.value & ")'>")
do until rs.EOF
response.write("<option")
if rs.fields("genre")=Genre then
response.write(" selected")
end if
response.write(">")
response.write(rs.fields("Genre"))
rs.MoveNext
loop
rs.Close
response.write("<option>(All)</select></div></td>")
response.Write("<td><div id='genrespot2'>genrespot2</div></td><td><div id='genrespot3'>genrespot3</div></td></tr></table>")
set rs=Nothing
end if
response.Write("</form>")
%>
</body>
</html>