<% Dim sSQL, oRs, iID, iIDPagina If Trim(Request("id")) <> "" Then iID = Trim(Request("id")) Else iID = 0 If Trim(Request("id_pagina")) <> "" Then iIDPagina = Trim(Request("id_pagina")) Else iIDPagina = 0 ' -- Nome da Página sSQL = "SELECT ds_nome_pagina FROM tbl_pagina_idioma WHERE cd_pagina = " & iIDPagina Set oRs = dataCharge(sSQL) If not oRs.EOF Then ds_nome_pagina = oRs(0) Set oRs = nothing %> SINQUISP
<% ' -- Conteúdo da Página sSQL = "SELECT materia_conteudo_publicacao FROM tbl_conteudo WHERE fl_publicado = 1 AND cd_pagina = " & iIDPagina Set oRs = dataCharge(sSQL) If not oRs.EOF Then materia_conteudo_publicacao = oRs(0) Set oRs = nothing %>
<%=ds_nome_pagina%>
<%=materia_conteudo_publicacao%>
 
Copyright 2008 - Todos os direitos reservados ao Sinquisp