<% 'Exibe submenu if bSubMenu = 1 then %> <% end if 'Exibe Imagem secundária, se a mesma está definida if bImgSecundaria = 1 and sImgSecundaria <> "" then %> <% end if %>
<% dim sRun,sArquivo dim fso sParam = request("sParam") sArquivo = replace(server.MapPath("include.asp"),"include.asp","") & sParam Set fso = CreateObject("Scripting.FileSystemObject") if not fso.FileExists( sArquivo ) then response.Write("

O arquivo de inclusão não foi localizado.
('"& sParam &"')
") else server.Execute(sParam) end if set fso = nothing %>