<%@ Language=VBScript%> <%option explicit%> <% dim idEdicao dim sModel dim sNew 'Edicao dim IdEdicaoActual idEdicao = Request.QueryString("idEdicao") idEdicaoActual = clng(getEdicaoActual()) if IdEdicao = "" then IdEdicao = idEdicaoActual else IdEdicao = clng(IdEdicao) end if 'Modelo sModel = getModel(c_RootPath & "\modelos\modelo_int.htm") 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, c_galeria, IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) if IdEdicao <> idEdicaoActual then 'Arquivo sModel = replace(sModel, c_Noticias_Marca, "

Arquivo: " _ & ShowDadosEdicao(IdEdicao) & "

" & c_Noticias_Marca) end if sNew = "" sNew = sNew & "

" & c_galeria & "

" sNew = sNew & GetFotos(idedicao) sModel = replace(sModel, c_Noticias_Marca, sNew) Response.Write sModel set cCommon = Nothing %>