<% Call abre_conexao(ConnString,conexao) %> <% Set rs = Server.CreateObject("ADODB.Recordset") sqlString = "select fi_id, fi_titulo from filmes where fi_veri='on' order by fi_data desc, fi_id desc" rs.Open sqlString, Conexao %> <% while not rs.eof %> <% rs.moveNext wend %>
<%=rs(1)%>
<% idF=request("idF") if idF = "" then Set rs1 = Server.CreateObject("ADODB.Recordset") sqlString1 = "select max(fi_id) as ultimoreg from filmes where fi_veri='on'" rs1.Open sqlString1, Conexao idF = int(rs1("ultimoreg")) end if Set rs2 = Server.CreateObject("ADODB.Recordset") sqlString2 = "select fi_id, fi_titulo, fi_destaque, fi_sinopse, fi_logo, fi_imagem, fi_data, fi_premios, fi_trailer, fi_ficha, fi_trailertempo from filmes where fi_id=" & idF & " and fi_veri='on'" rs2.Open sqlString2, Conexao idF=rs2(0) titulo=rs2(1) destaque=rs2(2) sinopse=rs2(3) logo=rs2(4) imagemprincipal=rs2(5) data=rs2(6) premios=rs2(7) trailer=rs2(8) ficha=rs2(9) trailertempo=rs2(10) %> <% Call fecha_conexao() %>
<% if ficha <> "" then %> <% end if %> <% if trailer <> "" then %> <% end if %> <% if premios <> "" then %> <% end if %>
"<%=titulo%>" (<%=data%>)

<%=destaque%>
<% if sinopse <> "" then response.write ("

") response.write sinopse end if %>