<%=subheading%>
<%
dim sqlcode, recordcount, note
set mrs = server.createobject("adodb.recordset")
sqlcode = "select mYear, mName, ID from movies order by ID DESC"
mrs.open sqlcode, mconn
While not mrs.EOF
mname = mrs("mname")
%>
<%
mrs.MoveNext
Wend
closeMRS()
closeConn()
%>
<%=footertitle%>