<%
dim mrs, sqlcode, ID, reviewname
ID = request.Querystring("ID")
set mrs = server.createobject("adodb.recordset")
sqlcode = "select * from movies, Category where movies.ID = " & ID & " and movies.mCatID = Category.CatID order by mname"
mrs.open sqlcode, mconn
reviewname = mrs("mname")
act1 = mrs("act1")
act2 = mrs("act2")
act3 = mrs("act3")
act4 = mrs("act4")
'***open cast table 1***
if act1 <> 0 then
dim actRS1, actSQL1, act1cID, act1LastName, act1FirstName
set actRS1 = server.createobject("adodb.recordset")
actSQL1 = "select * from act where cID = " & act1
actRS1.open actSQL1, mconn, 1,3
if actrs1.recordcount > 0 then
Act1FirstName = actRS1("FirstName")
act1LastName = actRS1("LastName")
end if
actRS1.close
set actRS1 = Nothing
end if
'***open cast table 2***
if act2 <> 0 then
dim actRS2, actSQL2, act2cID, act2LastName, act2FirstName
set actRS2 = server.createobject("adodb.recordset")
actSQL2 = "select * from act where cID = " & act2
actRS2.open actSQL2, mconn, 1,3
if actrs2.recordcount > 0 then
Act2FirstName = ", " & actRS2("FirstName")
act2LastName = actRS2("LastName")
end if
actRS2.close
set actRS2 = Nothing
end if
'***open cast table 3***
if act3 <> 0 then
dim actRS3, actSQL3, act3cID, act3LastName, act3FirstName
set actRS3 = server.createobject("adodb.recordset")
actSQL3 = "select * from act where cID = " & act3
actRS3.open actSQL3, mconn, 1,3
if actrs3.recordcount > 0 then
Act3LastName = actRS3("cID")
Act3FirstName = ", " & actRS3("FirstName")
act3LastName = actRS3("LastName")
end if
actRS3.close
set actRS3 = Nothing
end if
'***open cast table 4***
if act4 <> 0 then
dim actRS4, actSQL4, act4cID, act4LastName, act4FirstName
set actRS4 = server.createobject("adodb.recordset")
actSQL4 = "select * from act where cID = " & act4
actRS4.open actSQL4, mconn, 1,3
if actrs4.recordcount > 0 then
Act4LastName = actRS4("cID")
Act4FirstName = ", " & actRS4("FirstName")
act4LastName = actRS4("LastName")
end if
actRS4.close
set actRS4 = Nothing
end if
%>
<%=reviewname%> - <%=maintitle%>
<%=reviewname%>
| Rating |
"><%=mrs("mRating")%> |
| <%=talent_title%> |
<%=Act1FirstName & " " & Act1LastName & Act2FirstName & " " & Act2LastName & Act3FirstName & " " & Act3LastName & Act4FirstName & " " & Act4LastName%> |
| Year |
<%=mrs("mYear")%> |
| <%=review_type%> Category |
<%=mrs("CatName")%> |
| Advice |
<%=mrs("mAdvice")%> |
| Review |
<%=mrs("mReview")%> |
<%
dim crs, csql, usercomment
ID = request.Querystring("ID")
set crs = server.createobject("adodb.recordset")
csql = "select * from comments where movieID = " & ID & " and approve = 1 order by cdate DESC;"
crs.open csql, mconn, 1, 3
if crs.recordcount > 0 then
%>
comments
<%
while not crs.eof
moviecomment = crs("comment")
datecomment = crs("cdate")
ipcomment = crs("IP")
crs.movenext
response.write "
" & moviecomment & " [" & datecomment & " - " & ipcomment & "]"
wend
%>
<%
end if
crs.close
set crs = nothing
%>
<%=reviewname%> Review
Copyright <%=siteurl%> [<% response.write year(date)%>]
All rights reserved. Permission is required to copy or reprint any reviews.
<%
closemrs()
closeconn()
%>
