<% @LANGUAGE = VBScript %> <% Option Explicit Response.Buffer = true : Response.Expires = 60 Response.ExpiresAbsolute = Now() - 1 : Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" : Response.CacheControl = "no-cache" %> <% ' inicializacao da pagina: cabecalhos html, menu e cabecalho do sistema Call IniHTM("Comissária Pibernat", true, "") Call IniMenu(true, "3.jpg", "qualidade.gif") ' texto da pagina EscGER("

") If (ExeSqlBD(oConexao, oRegistro, "Select CODPRE, TITULOPRE, IMAGEMINDPRE, IMAGEMPRE, TEXTOPRE From PREMIOS " & _ "Order By ORDEMPRE Desc, TITULOPRE", true, ACESSOBANCO2)) Then Dim lIndice, cIndice Do While (oRegistro.EOF = false) EscGER("

") EscGER("

") EscGER("" & oRegistro.Fields(1).Value & " " & _ "" & SubAUX(oRegistro.Fields(4).Value, Chr(13) & Chr(10), " ") & " ") EscGER("

") If (VazioGER(oRegistro.Fields(2).Value)) Then lIndice = false Else lIndice = true End If If (VazioGER(oRegistro.Fields(3).Value)) Then If (lIndice) Then cIndice = "" Else cIndice = "" End If Else cIndice = "" If (lIndice) Then cIndice = cIndice & "" Else cIndice = cIndice & "Ver" End If cIndice = cIndice & "" End If EscGER(cIndice & "

") EscGER("

") oRegistro.MoveNext Loop oRegistro.Close End If Call DesAceBD(oConexao, oRegistro) ' fim do texto Call FimTab() Call FimMenu() ' finalizacao da pagina Call RodHTM(true) %>