<%@ Language=VBScript %> <%option explicit%> <% dim sModel dim sNew dim idEdicao dim sTitulo dim sBuff dim Id dim idarea dim idlocalidade dim Nome dim data sModel = getModel(c_RootPath & "\modelos\modelo_int.htm") sModel = replace (sModel, c_FichJavaScript_Marca, "") 'call showvariaveisrequest() 'Edicão idEdicao = getEdicaoActual() sNew = sNew & "

Lista de Farmácias

" sTitulo = "Lista de Farmácias" 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, sTitulo, IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) ' dados farmacias data = Request.Form("data") id = Request.QueryString("id") call getId(id, idlocalidade, Idarea) Nome = NomeLocalidade(idlocalidade) sNew = sNew & "

Localidade: " & NomeLocalidade(idlocalidade) & "

" sNew = sNew & ListFarmacias(idlocalidade) sModel = replace(sModel, c_Noticias_Marca, sNew) ' Barra direita sBuff = "
" sBuff = sBuff & showHiddenTextBox("data", "") sBuff = sBuff & showHiddenTextBox("m", "") sBuff = sBuff & showHiddenTextBox("y", "") sBuff = sBuff & "

Ver outra Localidade
" & VisualizaEscolha(id) & "

" sBuff = sBuff & "

" & getLink("Ver farmácia de serviço de " & nome, "javascript:SubmitDataFarmacias('" & id & "','" & Nome & "','" & Request.Form("m") & "','" & Request.Form("y") & "','" & data & "')") & "

" 'sBuff = sBuff & "Ver a Farmácia do dia" 'begin of model Response.Write left(sModel,instr(1,sModel,c_colunadireita)-1) Response.Write sBuff %><% Response.Write "
" Response.Write mid(sModel,instr(1, sModel, c_colunadireita)+22) %>