<%@ Language=VBScript %>
<%option explicit%>
<%
'
dim sModel
dim Data
dim sBuff
' modelo
sModel = getModel(c_RootPath & "\modelos\modelo_int.htm")
'Dados existentes em todas as paginas
call ShowDadosPagina(sModel, " Tempo ", getEdicaoActual() , "../index.asp", "../", c_RootPath & "\pub\", 0)
'sModel = replace(sModel, c_colunadireita, ShowTemp() )'& "" & showWeatherHP() & "
")
sBuff = ""
sBuff = sBuff & "Previsão do tempo
"
dim w
w = Request.QueryString("op")
if w = "" then w = cCommon.Weathercode
sBuff = sBuff & weather_main(w)
'sBuff = sBuff & weather_main(Request.QueryString("op"))
'sBuff = sBuff & ""
'sBuff = sBuff & ""
'sBuff = sBuff & "| "
'sBuff = sBuff & "Hoje"
'sBuff = sBuff & " | "
'sBuff = sBuff & ""
'sBuff = sBuff & getlink("Próximos 3 Dias", "previsao.asp")
'sBuff = sBuff & " | "
'sBuff = sBuff & "
"
'sBuff = sBuff & "
"
'sBuff = sBuff & showWeather(date())
sModel = replace(sModel, c_Noticias_Marca, sBuff)
'begin of model
Response.Write sModel
' home page
'Response.Write showWeatherHP()
%>