 |
|
|
|
<%
'Set bd2 = Conexao.Execute("SELECT * FROM si_noticia, si_imagem WHERE si_noticia.tn_codigo = 2 AND si_noticia.sm_codigo = 1 AND si_noticia.no_imagem = si_imagem.im_arquivo ORDER BY si_noticia.no_codigo DESC LIMIT 1")
sql_bd2 = "SELECT * FROM si_noticia n INNER JOIN si_imagem i ON(n.no_imagem = i.im_arquivo AND n.tn_codigo = 2 AND n.sm_codigo = 1) ORDER BY n.no_codigo DESC LIMIT 1"
set bd2 = Conexao.Execute(sql_bd2)
if bd2.eof and bd2.bof then
response.write("Tabela com problemas")
else
pasta2 = bd2("pa_codigo")
no_imagem2 = bd2("no_imagem")
no_codigo2 = bd2("no_codigo")
link2 = "http://www.al.mt.gov.br/V2008/ViewConteudo.asp?no_codigo=" & no_codigo2
data_hora2 = FormatDateTime(bd2("no_data_hora"),2)
data_hora2 = fmtdata(data_hora2, "dd/mm/yyyy")
titulo2 = bd2("no_titulo")
chamada2 = bd2("no_chamada")
autor2 = bd2("no_autor")
im_credito2 = bd2("im_credito")
end if
'Set bd2 = Conexao.Execute("SELECT * FROM si_noticia, si_imagem WHERE si_noticia.tn_codigo = 2 AND si_noticia.sm_codigo = 1 AND si_noticia.no_imagem = si_imagem.im_arquivo ORDER BY si_noticia.no_codigo DESC LIMIT 1")
'Set bd3 = Conexao.Execute("SELECT * FROM si_noticia, si_imagem WHERE si_noticia.tn_codigo = 3 AND si_noticia.sm_codigo = 1 AND si_noticia.no_imagem = si_imagem.im_arquivo ORDER BY si_noticia.no_codigo DESC LIMIT 1")
sql_bd3 = "SELECT * FROM si_noticia n INNER JOIN si_imagem i ON(n.no_imagem = i.im_arquivo AND n.tn_codigo = 3 AND n.sm_codigo = 1) ORDER BY n.no_codigo DESC LIMIT 1"
Set bd3 = Conexao.Execute(sql_bd3)
if bd3.eof and bd3.bof then
response.write("Tabela com problemas")
else
pasta3 = bd3("pa_codigo")
no_imagem3 = bd3("no_imagem")
no_codigo3 = bd3("no_codigo")
link3 = "http://www.al.mt.gov.br/V2008/ViewConteudo.asp?no_codigo=" & no_codigo3
data_hora3 = FormatDateTime(bd3("no_data_hora"),2)
data_hora3 = fmtdata(data_hora3, "dd/mm/yyyy")
titulo3 = bd3("no_titulo")
chamada3 = bd3("no_chamada")
autor3 = bd3("no_autor")
end if
set info = Server.CreateObject("UnitedBinary.AutoImageInfo")
info.ReadHeader "e:\sites\WWWAlmt\v2008\intranet\BancoImagens\"&pasta2&"\"&no_imagem2&""
A_largura = info.ImageWidth
A_altura = info.ImageHeight
if A_altura > A_largura then
A_wWidth = ""
A_wHeight = "height=103"
else
A_wWidth = "Width=113"
A_wHeight = ""
end if
info.ReadHeader "e:\sites\WWWAlmt\v2008\intranet\BancoImagens\"&pasta3&"\"&no_imagem3&""
B_largura = info.ImageWidth
B_altura = info.ImageHeight
if B_altura > A_largura then
B_wWidth = ""
B_wHeight = "height=103"
else
B_wWidth = "Width=113"
B_wHeight = ""
end if
%>
|
|
|
|
|
|
 |
|
<%
Set bd4 = Conexao.Execute("SELECT * FROM si_noticia WHERE tn_codigo = 4 AND sm_codigo = 1 ORDER BY no_data_hora DESC LIMIT 4")
while not bd4.eof
%>
<%
bd4.movenext
wend
%>
|
|
|
|
|
|
<%
set Conexao1 = server.createobject("ADODB.CONNECTION")
Conexao1.provider = "Microsoft.Jet.OLEDB.4.0"
Conexao1.open("e:\sites\WWWAlmt\v2008\admin\journal.mdb")
Set RS1 = Conexao1.Execute ("SELECT * FROM radio WHERE situacao = 'D' ORDER BY data DESC")
if NOT (RS1.BOF AND RS1.EOF) then
titulo1 = RS1("titulo")
end if
Set RS2 = Conexao1.Execute ("SELECT * FROM radio WHERE situacao = 'P' ORDER BY data DESC")
if NOT (RS2.BOF AND RS2.EOF) then
titulo2 = RS2("titulo")
end if
Set RS3 = Conexao1.Execute ("SELECT * FROM radio WHERE situacao = 'U' ORDER BY data DESC")
if NOT (RS3.BOF AND RS3.EOF) then
titulo3 = RS3("titulo")
end if
%>
|
|
|
|
<%=bd4("no_titulo")%>
