<%=subheading%>

<% dim sqlcode, searchterm searchterm = trim(request.form("searchterm")) if searchterm <> "" then set mrs = server.createobject("adodb.recordset") sqlcode = "select mYear, mName, ID from movies where mName like '%" & searchterm & "%' order by ID DESC" mrs.open sqlcode, mconn, 1,3 recordcount = mrs.recordcount note = "

Search returned " & recordcount & " Results

" response.write (note) While not mrs.EOF mname = mrs("mname") %>
" style="font-size: medium;" title="<%=mname%>"><%=mname%> release: <%=mrs("mYear")%>
<% mrs.MoveNext Wend closeMRS() else note = "

Please enter a search term

" response.write (note) end if closeConn() %>

<%=footertitle%>