Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/06/2010, 03:52
akmadrid
 
Fecha de Ingreso: junio-2010
Mensajes: 44
Antigüedad: 13 años, 11 meses
Puntos: 0
No me muestra el código ASP

Hola,

Estoy con un problemilla, y debido a que llevo un par de semanas con ASP me surgen muchas dudas, lo que quiero hacer es que al entrar el usuario a la aplicación me indique el nombre en la cabecera y un enlace para cerrar sesion cuando el quiera:
En todas las paginas de la aplicación esta incluida la cabecera:
Código:
<!--#include file="THeader.asp"-->
En la cabecera tengo esto:
Código:
filespec = Server.MapPath(Session("Cabecera"))  
set fs = CreateObject("Scripting.FileSystemObject")  
set f = fs.OpenTextFile(filespec)  
content = f.ReadAll()
Donde la variable sesion en el global.asa hace esto:
Código:
session("Cabecera") = "TopHeaderDefault.asp"
Y donde yo he añadio mi código para identificar el usuario:
es en el TopHeaderDefault.asp, que es donde me maqueta el html:

Código:
<% 
dim nombrePagina, cadenaUsu
nombrePagina = ucase(Request.ServerVariables("SCRIPT_NAME"))
nombrePagina = ucase(replace(nombrePagina, "/UI/WEB/", ""))
nombrePagina = Replace(nombrePagina, "/", "")

'en la página de inicio no!
if nombrePagina<>"GESTIONDEFAULTFCC.ASP" then
	cadenaUsu="Usuario conectado: " & Session("Usuario")
End if 

 %>

<tr width="550">
<td height="15" colspan="2" align="right" style="background: #FFF url(images/greenline.gif) no-repeat left top">
<% Response.Write(cadenaUsu) %>           
 </td>
 </td>
</tr>
Y no sé porque no me hace nada

Espero vuestra ayuda, Gracias!