<% Function ConexaoFranklink() ConexaoFranklink = "DRIVER={MySQL ODBC 3.51 Driver};server=200.170.88.142;uid=obraplan825;pwd=QDxM2o$a;database=obraplan1" End function %> <% On Error Resume Next NuNot=request.querystring("NuNot") set AutorizaModu = Server.CreateObject("ADODB.Connection") AutorizaModu.Open ConexaoFranklink() if request.querystring("NuNot")="" then sqlText = "select * from Franklink_Noticias" else sqlText = "select * from Franklink_Noticias where NuNot='"&NuNot&"'" end if set itemAutorizaModu = AutorizaModu.Execute(sqlText) if Err.number=0 then else%>
Sem notícias, no periodo
<%end if if itemAutorizaModu.EOF then else while not itemAutorizaModu.EOF NuNot=itemAutorizaModu("NuNot") TituloNot=itemAutorizaModu("TituloNot") DestaqueNot=itemAutorizaModu("DestaqueNot") Imagem=itemAutorizaModu("Imagem") Texto=itemAutorizaModu("TxtNot") Data=itemAutorizaModu("DataNot") LinkRelacionado=itemAutorizaModu("LinkRelacionado") Autor=itemAutorizaModu("Autor") PalavrasChave=itemAutorizaModu("PalavrasChave") if request.querystring("NuNot")="" then%> Obraplan - Notícias <%else%> Obraplan - Notícias - <%=TituloNot%> <%end if%> <%itemAutorizaModu.moveNext wend itemAutorizaModu.Close set itemAutorizaModu=Nothing AutorizaModu.Close set AutorizaModu=Nothing end if%> Obraplan - Notícias

Notícias

<% On Error Resume Next NuNot=request.querystring("NuNot") set AutorizaModu = Server.CreateObject("ADODB.Connection") AutorizaModu.Open ConexaoFranklink() if request.querystring("NuNot")="" then sqlText = "select * from Franklink_Noticias ORDER BY NuNot DESC" else sqlText = "select * from Franklink_Noticias where NuNot='"&NuNot&"'" end if set itemAutorizaModu = AutorizaModu.Execute(sqlText) if Err.number=0 then else%>
Sem notícias, no periodo
<%end if if itemAutorizaModu.EOF then else while not itemAutorizaModu.EOF NuNot=itemAutorizaModu("NuNot") TituloNot=itemAutorizaModu("TituloNot") DestaqueNot=itemAutorizaModu("DestaqueNot") Imagem=itemAutorizaModu("Imagem") Texto=itemAutorizaModu("TxtNot") Data=itemAutorizaModu("DataNot") LinkRelacionado=itemAutorizaModu("LinkRelacionado") Autor=itemAutorizaModu("Autor") PalavrasChave=itemAutorizaModu("PalavrasChave") if request.querystring("NuNot")="" then%> <%else%>

<%=TituloNot%>

<%=DestaqueNot%>

<%=Mid(Data,7,2)&"/"&Mid(Data,5,2)&"/"&Mid(Data,1,4)%>
<%if Autor="" then response.write" " else response.write"Autor: "&Autor&"" end if%>
<%=Texto%>
<%end if%> <%itemAutorizaModu.moveNext wend itemAutorizaModu.Close set itemAutorizaModu=Nothing AutorizaModu.Close set AutorizaModu=Nothing end if%>