<% filme = request.QueryString("filme") if filme ="" then filme = "A Dupla do Barulho" end if Dim cn , rs Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open "DBQ=" & Server.MapPath("bd1")& ";Driver={Microsoft Access Driver (*.mdb)}" sql = "SELECT * FROM filmesemvideo WHERE filme='" & filme &"'" rs.Open sql , cn , 3 , 3 %> Atlântida Cinematográfica - Acervo Histórico
 


<%=rs("filme")%>
">

Sinopse

<%=rs("sinopse")%>

Ficha Técnica
  Ano de Produção

<%=rs("ano_de_producao")%>
  Gênero

<%=rs("genero")%>
  Duração

<%=rs("duracao")%>
  Produção

<%=rs("producao")%>
  Direção

<%=rs("direcao")%>
  Argumento/Roteiro

<%=rs("argumento_roteiro")%>
  Fotografia

<%=rs("fotografia")%>
  Montagem

<%=rs("montagem")%>
  Som

<%=rs("som")%>
  Cenografia

<%=rs("cenografia")%>
  Música
<%=rs("musica")%>
  Distribuição
<%=rs("distribuicao")%>
  Edição
<%=rs("edicao")%>
  Roteiro
<%=rs("roteiro")%>
  Som e Mixagem
<%=rs("som_e_mixagem")%>
  Som Direto
<%=rs("som_direto")%>
  Efeitos Sonoros
<%=rs("efeitos_sonoros_adicionais")%>
  Realização
<%=rs("realização")%>
 
 

 

Veja os nossos filmes lançados em video.

  
 
 
<% rs.close set rs = nothing cn.close set cn = nothing %>