<% pagina ="http://"& Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("url")&"?"& request.ServerVariables("QUERY_STRING") %> <% If Len(Day(Date)) = 1 Then dia = "0" & Day(Date) Else dia = Day(Date) End If If Len(Month(Date)) = 1 Then mes = "0" & Month(Date) Else mes = Month(Date) End If Function prepara(strString) strString = replace(strString,"Á","Á") strString = replace(strString,"á","á") strString = replace(strString,"Â","Â") strString = replace(strString,"â","â") strString = replace(strString,"À","À") strString = replace(strString,"à","à") strString = replace(strString,"Ã","Ä") strString = replace(strString,"ã","ä") strString = replace(strString,"É","É") strString = replace(strString,"é","é") strString = replace(strString,"Ê","Ê") strString = replace(strString,"ê","ê") strString = replace(strString,"È","È") strString = replace(strString,"è","è") strString = replace(strString,"Í","Í") strString = replace(strString,"í","í") strString = replace(strString,"Î","Î") strString = replace(strString,"î","î") strString = replace(strString,"Ì","Ì") strString = replace(strString,"í","ì") strString = replace(strString,"Ó","Ó") strString = replace(strString,"ó","ó") strString = replace(strString,"Ô","Ô") strString = replace(strString,"ô","ô") strString = replace(strString,"Ò","Ò") strString = replace(strString,"ò","ò") strString = replace(strString,"Ú","Ú") strString = replace(strString,"ú","ú") strString = replace(strString,"û","û") strString = replace(strString,"Û","Û") strString = replace(strString,"Ù","Ù") strString = replace(strString,"ù","ù") response.write strString End Function If Session("usuario_admin") <> "logado" or Session("id_usuario") = "" Then response.redirect "login.asp" End If if request("vai") = "sair" then Session.Abandon Response.Redirect "../default.asp" end if session.timeout = 120 %>

<%=Session("nome")%> | Bem vindo à Administração da <%=loja("nome_loja")%>  | Página Inicial | Sair

<% set rs3 = conexao.execute("SELECT * FROM sessoes WHERE id='"&rs("idsessao")&"'") %>