<%
'Response.Write "Isto se encontra em rosto.asp (ep/rosto.asp)
"
'Response.Write "MAP " & " " & Session("map") & " "
'Response.Write "POSX " & " " & Session("posx") & " "
'Response.Write "POSY " & " " & Session("posy") & " "
'Response.Write "SEC " & " " & Session("sec") & " "
'Response.Write "FILHO " & " " & Session("filho") & " "
'Response.Write "NETO " & " " & Session("neto") & " "
'Response.Write "NETO1 " & " " & Session("neto1") & " "
'Response.Write "PAG " & " " & Session("pag") & " "
'Response.Write "NOME_SEC " & " " & Session("nome_sec") & " "
'Response.Write "NOME_FILHO " & " " & Session("nome_filho") & " "
Session("HOST") = "http://www.ciacity.com.br/ep"
if session("map") = "" then
session("map") = 1
end if
if session("posx") = "" then
Session("posx") = 0
end if
if session("posy") = "" then
Session("posy") = 0
end if
'if ( request("sec") = "" or request("sec") = 1) and request("filho") = "" and request("neto") = "" then
' Session("sec") = 1
' Session("nome_sec") = "home"
'end if
if not request("sec") = "" then
Set conex = Server.CreateObject("ADODB.Connection")
conex.open Session("BANCO")
' CARREGA O NOME DA SEÇÃO
Set rs = conex.execute("select nome from ep_ENsecao where id_secao="&request("sec"))
if not rs.eof then
Session("sec") = request("sec")
Session("nome_sec") = lcase(rs("nome"))
else
Session("sec") = 1
Session("nome_sec") = "home"
end if
SET RS = NOTHING
' CARREGA O NOME DO FILHO
Set rs = conex.execute("select id_filho, nome from ep_ENfilho where id_secao="&Session("sec")&" order by id_filho asc")
if not rs.eof then
Session("nome_filho") = rs(1)
Session("filho") = "_"&rs(0)
else
Session("nome_filho") = ""
Session("filho") = "_"
end if
set rs = nothing
Session("neto") = ""
Session("neto1") = ""
conex.close
set conex = nothing
end if
if not request("filho") = "" then
Session("filho") = "_"&request("filho")
Session("neto") = ""
Session("neto1") = ""
end if
if not request("neto") = "" then
Session("neto") = "_"&request("neto")
Session("neto1") = "_"
Set conex = Server.CreateObject("ADODB.Connection")
conex.open Session("BANCO")
set rs = conex.execute("select isnull(posx,0) as posx, isnull(posy,0) as posy, isnull(idneto,0) as idneto from ep_ENneto where id_neto="&request("neto"))
if not rs.eof then
Session("idneto") = rs("idneto")
Session("posx") = rs("posx")
Session("posy") = rs("posy")
else
Session("idneto") = 0
Session("posx") = 0
Session("posy") = 0
end if
set rs = nothing
set conexao = nothing
end if
if request("neto") = "" and (request("sec") = "6" and request("filho") = "15") then
Set conex = Server.CreateObject("ADODB.Connection")
conex.open Session("BANCO")
set rs = conex.execute("select id_neto from ep_ENneto where id_filho=15 order by id_neto asc")
if not rs.eof then
Session("neto") = "_"&rs(0)
Session("neto1") = "_"
end if
set rs = nothing
conex.close
set conex = nothing
end if
Session("pag") = Session("sec")&Session("filho")&Session("neto1")
%>
<%=Session("TITULO")%>