<%@ Language=VBScript %>
<%Option Explicit%>
<%=maintitle%>
click a title to edit
<%
dim mrs, sqlcode, recordcount
set mrs = server.createobject("adodb.recordset")
sqlcode = "select mYear, mName, ID from movies"
mrs.open sqlcode, mconn,1,3
recordcount = mrs.recordcount & " reviews found"
response.write "" & recordcount & "
"
While not mrs.EOF
%>
- &edit=1" title="Click to Edit"><%=mrs("mname")%> release: <%=mrs("mYear")%>
<%
mrs.MoveNext
Wend
closemrs()
closeconn()
%>