<% @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(false, "10.jpg", "noticias.gif") ' texto da pagina Dim nCodigo If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then nCodigo = Request.Form("COD") Else nCodigo = Request.QueryString("COD") End If If (ExeSqlBD(oConexao, oRegistro, "Select DistinctRow CODASS, NOMEASS From ASSUNTOS A Inner Join NOTICIAS N " & _ "On A.CODASS = N.ASSUNTONOT Order By NOMEASS", true, ACESSOBANCO2)) Then EscGER("

") EscGER("Escolha o assunto de seu interesse

") Do While (oRegistro.EOF = false) If (NumGER(nCodigo) = false) Then nCodigo = oRegistro.Fields(0).Value EscGER(" " & oRegistro.Fields(1).Value & " ") oRegistro.MoveNext Loop EscGER("

") EscGER("

") oRegistro.Close End If If (NumGER(nCodigo)) Then If (ExeSqlBD(oConexao, oRegistro, "Select DistinctRow TITULONOT, TEXTONOT, IMAGEM1NOT, IMAGEM2NOT, NOMEASS, IMAGEMINDNOT " & _ "From ASSUNTOS A Inner Join NOTICIAS N On A.CODASS = N.ASSUNTONOT Where ASSUNTONOT = " & nCodigo & _ " Order By ORDEMNOT Desc, TITULONOT", false, "")) Then EscGER("

") EscGER("" & UCase(oRegistro.Fields(4).Value) & "

") EscGER("

") Dim lImagem, cIndice Do While (oRegistro.EOF = false) lImagem = false EscGER("

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

") If (VazioGER(oRegistro.Fields(5).Value)) Then cIndice = "" Else cIndice = "" End If EscGER(cIndice & "

") EscGER("

") If (VazioGER(oRegistro.Fields(2).Value) = false) Then EscGER(" Imagem 1 ") lImagem = true End If If (VazioGER(oRegistro.Fields(3).Value) = false) Then EscGER(" Imagem 2 ") lImagem = true End If If (lImagem) Then EscGER("
") EscGER("

") EscGER("

") oRegistro.MoveNext Loop EscGER("

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