Cabecera para toda la web

[sanfermin]

Como se da un formato a un sitio web? me explico, y q mejor q con un ejemplo: esta web posee un menu a l izquierda y una cabecera, = en todas sus paginas como se hace esto?

<!--#include file="header.inc" -->

y editando el contenido de headr.inc para añadir el contenido??

Gasias

Fernando Zabalza
----------------
ClubSanFermin.com

[Aston]

Hola, dentro del archivo include puedes crear funciones como Menu() o Cabecera() que llamas desde la página donde las necesitas siempre y cuando hagas el enlace a ese include como has puesto. No tiene nungún secreto, es sencillo.

Saludos y espero haberte ayudado. ;)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[sanfermin]

Como seria una funcion dentro del include?? como la llamaria desde la pagina??
cabecerea()
menu()
directamente??
podrias poner algun ejemplo? gasias ;)

Fernando Zabalza
----------------
ClubSanFermin.com

[XaRoD]

Las funciones javascript o asp las defines en el include, y las llamas normalmente dentro de cualquier pagina (si le has metido el include). No tiene más secreto que eso.
Y hablando del tema yo que tú usaría la extensión .asp para el include, ya que si no se puede descargar el código fuente del mismo.

Salu2

[sanfermin]

Estoy intentando hacer una cabecera en la que se muestre las opciones para hacer el login: Nombre y Password, asi como el numero de vistitantes activos...no se si voy x buen camino:
es un kaos!

----------------------------------------
&lt;!--#include file=&quot;cabecera.asp&quot; --&gt;



&lt;%
'Para los redireccionamientos
Response.Buffer=True

Dim oConn, rs, SQL, nombre, password

if nombre=&quot;&quot; then

Response.Write(&quot;&lt;FORM NAME=&quot;&quot;Email&quot;&quot; ACTION=&quot;&quot;login/login.asp&quot;&quot; METHOD=&quot;&quot;post&quot;&quot;&gt;&quot;)
Response.Write(&quot;Usuario:&quot;)
Response.Write(&quot;&lt;input type=&quot;&quot;text&quot;&quot; name=&quot;&quot;Nombre&quot;&quot; size=&quot;&quot;10&quot;&quot;&gt;&quot;)
Response.Write(&quot;&lt;font face=&quot;&quot;Arial, Helvetica, sans-serif&quot;&quot; size=&quot;&quot;1&quot;&quot;&gt;&quot;)
Response.Write(&quot;Contrase&amp;ntilde;a:&quot;)
Response.Write(&quot;&lt;input type=&quot;&quot;password&quot;&quot; name=&quot;&quot;Password&quot;&quot; size=&quot;&quot;10&quot;&quot;&gt;&quot;)
Response.Write(&quot;&lt;INPUT TYPE=&quot;&quot;submit&quot;&quot; VALUE=&quot;&quot;Enviar&quot;&quot;&gt;&quot;)
Response.Write(&quot;&lt;/FORM&gt;&quot;)


else

'Validamos su identidad
'set oConn=Server.CreateObject(&quot;ADODB.Connection&q uot;)
'oConn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;ejemplo.mdb)

' en principio pongo la d las otras
Set objConn = CreateObject(&quot;ADODB.Connection&quot;)
objConn.Open(&quot;Provider=Microsoft.Jet.OLEDB.4. 0;Data Source=&quot; &amp; _
Server.MapPath(&quot;../database/login.mdb&quot;))


SQL=&quot;SELECT Id_USUARIO, Login, Password FROM &quot; &amp; _
&quot;Usuarios WHERE (Login='&quot;&amp;nombre&amp;&quot;' AND Password='&quot;&amp;password&amp;&quot;');&quot;

'Ejecutamos consulta
set rs=oConn.Execute(SQL)

if rs.EOF then

'No existe ese usuario con esa contraseña
'Así que le negamos el acceso
Response.Write(&quot;Lo siento, no existe ese usuario/contraseña.&quot;)
else

Response.Write(&quot;Usuarios Activos:&quot;)
' los usuarios activos lo tengosin ahcer todavia

end if
end if
%&gt;

----------------------------------------

Fernando Zabalza
----------------
ClubSanFermin.com