% listar = "SELECT * FROM paginas WHERE cod=" & id Set lista = DB.Execute(listar) ' Pega a URL da página url_full = mid(Request.ServerVariables("script_name") & "?" & Request.ServerVariables("query_string"),9) url = split(url_full,"/") session("pagina") = url(ubound(url)) %>
|
|||||||