<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% area = 4 'controle de exibicao de menus e estado do botao no topo cod = request.QueryString("cod") sql = "SELECT * FROM adm_agenda WHERE cod_agenda = "&cod&"" Set RS = Server.CreateObject("ADODB.RecordSet") Rs.open sql, conn, 1,3 %> <%= rs("nome")%>| ACT | Aliança de Controle do Tabagismo | Comunicação
 


 
Principal > Comunicação > Agenda

agenda

<% If not rs.BOF and not rs.EOF then %>

<%= rs("nome")%>

Data: <%if rs("data_ini") <> rs("data_fim") then%>de <%=rs("data_ini")%> a <%=rs("data_fim")%><%else%><%=rs("data_ini")%><%end if%>
Local: <%= rs("estab")%>

<%=rs("descricao")%>

<%if rs("url") <> "" then%>

" target="_blank"><%=rs("url")%>

<%end if%> <% end if %>
 
 
<% Rs.close Set RS = nothing Conn.close Set Conn = nothing %>