<%
'Set rsBanners = Server.CreateObject("ADODB.Recordset")
'rsBanners.Open "banners", DBCONN
'mOpMenu = Request("wOpMenu")
mOpMenu = Session("sOpMenu")
If mOpMenu = "" Then
mOpMenu = "3"
mFundo = "fundo-laranja.jpg"
End If
'mPagina = ""
If mOpMenu = "1" Then
mFundo = "fundo-1.jpg"
ElseIf mOpMenu = "2" Then
mFundo = "fundo-2.jpg"
ElseIf mOpMenu = "3" Then
mFundo = "fundo-3.jpg"
mPagina = "HP2009-Corpo.asp"
ElseIf mOpMenu = "4" Then
mFundo = "fundo-4.jpg"
ElseIf mOpMenu = "5" Then
mFundo = "fundo-5.jpg"
End If
%>
Nutrinews.Net - Administração
<![CDATA[Seu browser nao suporta frames. Esta pagina so pode ser visualizada num browser com essa opcao.]]>