<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("COD") <> "") Then Recordset1__MMColParam = Request.QueryString("COD") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_mnemoTeses_STRING Recordset1.Source = "SELECT * FROM teses WHERE COD = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Banco de teses sobre Cinema Brasileiro
Banco de teses sobre Cinema Brasileiro
  <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
Autor: <%=(Recordset1.Fields.Item("Autor").Value)%>
Título: <%=(Recordset1.Fields.Item("titulo").Value)%>
Cidade: <%=(Recordset1.Fields.Item("cidade").Value)%>
Instituição I: <%=(Recordset1.Fields.Item("instituicao_I").Value)%> Instituição II: <%=(Recordset1.Fields.Item("instituicao_II").Value)%>
Data de defesa :<%=(Recordset1.Fields.Item("Data_de_Defesa").Value)%>*
Volume: <%=(Recordset1.Fields.Item("Volume").Value)%> Páginas: <%=(Recordset1.Fields.Item("Paginas").Value)%>
Ilustração: <%=(Recordset1.Fields.Item("Ilustracao").Value)%>
Filmografia: <%=(Recordset1.Fields.Item("Filmografia").Value)%>
Anexos: <%=(Recordset1.Fields.Item("Anexos").Value)%>
Orientador: <%=(Recordset1.Fields.Item("Orientador").Value)%>
Grau: <%=(Recordset1.Fields.Item("Grau").Value)%>
Disponibilidade: <%=(Recordset1.Fields.Item("Disponibilidade").Value)%>
Resumo/abstract: <%=(Recordset1.Fields.Item("Resumo_Abstract").Value)%>
Descritorios primários: <%=(Recordset1.Fields.Item("Descritorios_Primarios").Value)%>
Pessoa: <%=(Recordset1.Fields.Item("Pessoa").Value)%>
Desde: <%=(Recordset1.Fields.Item("Desde").Value)%>* Até: <%=(Recordset1.Fields.Item("Ate").Value)%>*
Fonte: <%=(Recordset1.Fields.Item("Fonte").Value)%>
Publicação: <%=(Recordset1.Fields.Item("Publicacao").Value)%>
Geográficos: <%=(Recordset1.Fields.Item("Geograficos").Value)%>
Observações: <%=(Recordset1.Fields.Item("Observacoes").Value)%>
Data de entrega: <%=(Recordset1.Fields.Item("Data_de_entrega").Value)%>*

* Formato de data: ANO/MÊS/DIA

www.mnemocine.com.br
<% Recordset1.Close() Set Recordset1 = Nothing %>