Sant'Anas - Coleção Angela Gutierrez

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '********************************************** ' INICIALIZA AS VARIÁVEIS '********************************************** Conexao.CursorLocation = 3 pg = 1 id_designacao = "" id_epoca = "" id_origem = "" id_material = "" if Request("pg") <> false then pg = Cint(Request("pg")) end if if Request("designacao") <> "" then id_designacao = Request("designacao") end if if Request("epoca") <> "" then id_epoca = Request("epoca") end if if Request("origem") <> "" then id_origem = Request("origem") end if if Request("material") <> "" then id_material = Request("material") end if 'configura o sql sql = "Select * from santanas_item where id_item <> 0 " if id_designacao <> "" then sql = sql + "and id_designacao in ("&id_designacao&") " end if if id_epoca <> "" then sql = sql + "and id_epoca in ("&id_epoca&") " end if if id_origem <> "" then sql = sql + "and id_origem in ("&id_origem&") " end if if id_material <> "" then sql = sql + "and id_meterial in ("&id_material&") " end if sql = sql + "order by codigo" '********************************************** ' LISTA DESIGNAÇÃO '********************************************** sub listaDesignacao Set rsItem = Server.CreateObject("ADODB.RECORDSET") rsItem.Open "Select * from santanas_designacao order by descricao",Conexao,3,3 If Not rsItem.BOF then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") while not rsItem.EOF Response.Write("") Response.Write("") if inStr(id_designacao,rsItem.Fields("id_designacao")) then Response.Write("") else Response.Write("") end if Response.Write("") rsItem.MoveNext wend Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

	Designação
	"&rsItem.Fields("descricao")&"	"&rsItem.Fields("descricao")&"

") End If end sub '********************************************** ' LISTA ÉPOCA '********************************************** sub listaEpoca Set rsItem = Server.CreateObject("ADODB.RECORDSET") rsItem.Open "Select * from santanas_epoca",Conexao,3,3 If Not rsItem.BOF then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") while not rsItem.EOF Response.Write("") Response.Write("") if inStr(id_epoca,rsItem.Fields("id_epoca")) then Response.Write("") else Response.Write("") end if Response.Write("") rsItem.MoveNext wend Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

	Época
	"&rsItem.Fields("descricao")&"	"&rsItem.Fields("descricao")&"

") End If end sub '********************************************** ' LISTA ORIGEM '********************************************** sub listaOrigem Set rsItem = Server.CreateObject("ADODB.RECORDSET") rsItem.Open "Select * from santanas_origem order by descricao",Conexao,3,3 If Not rsItem.BOF then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") while not rsItem.EOF Response.Write("") Response.Write("") if inStr(id_origem,rsItem.Fields("id_origem")) then Response.Write("") else Response.Write("") end if Response.Write("") rsItem.MoveNext wend Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

	Origem
	"&rsItem.Fields("descricao")&"	"&rsItem.Fields("descricao")&"

") End If end sub '********************************************** ' LISTA MATERIAL '********************************************** sub listaMaterial Set rsItem = Server.CreateObject("ADODB.RECORDSET") rsItem.Open "Select * from santanas_material order by descricao",Conexao,3,3 If Not rsItem.BOF then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") while not rsItem.EOF Response.Write("") Response.Write("") if inStr(id_material,rsItem.Fields("id_material")) then Response.Write("") else Response.Write("") end if Response.Write("") rsItem.MoveNext wend Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

	Material
	"&rsItem.Fields("descricao")&"	"&rsItem.Fields("descricao")&"

") End If end sub '********************************************** ' LISTA RESULTADO '********************************************** sub listaResultado Set rsItem = Server.CreateObject("ADODB.RECORDSET") rsItem.PageSize = 20 rsItem.Open sql,Conexao,3,3 i = 0 if not rsItem.BOF then rsItem.AbsolutePage = pg Response.Write("") nova_linha = 0 while i < rsItem.PageSize if not rsItem.EOF then if nova_linha = 0 then 'inicializa a linha response.write("") end if Response.Write("") 'atualiza a variavel da linha nova_linha = nova_linha + 1 'se for linha quatro .. troca de linha if nova_linha = 4 then Response.Write("") nova_linha = 0 end if rsItem.MoveNext end if i = i + 1 wend Response.Write("

") 'tabela do item Response.Write("") 'imagem Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'espacamento Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'codigo Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'espacamento Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("



"&rsItem.Fields("codigo")&"

") Response.Write("

") else Response.Write("Nenhum registro encontrado

") end if end sub '**************************************************** ' IMPRIME A PAGINAÇÃO '**************************************************** sub printPaginacao 'abre a tabela de itens do acervo Set rsPage = Server.CreateObject("ADODB.RECORDSET") rsPage.PageSize = 20 rsPage.Open sql,Conexao,3,3 if not rsPage.BOF then rsPage.AbsolutePage = pg page_num = Cint(rsPage.RecordCount / rsPage.PageSize) if page_num < 1 then page_num = 1 else if rsPage.RecordCount mod rsPage.PageSize < 5 then page_num = page_num + 1 end if end if 'numeracao i = 1 while i <= page_num if i = pg then 'se for pagina atual Response.Write(""&i&"") else 'se nao for página atual Response.Write(""&i&"") end if i = i + 1 if i <= page_num then Response.Write(" | ") end if wend end if rsPage.Close Set rsPage = Nothing end sub %> Sant'Anas - Coleção Angela Gutierrez