% @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("
| ")
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 = " |