Cabecera para toda la web

[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!

----------------------------------------
<!--#include file="cabecera.asp" -->



<%
'Para los redireccionamientos
Response.Buffer=True

Dim oConn, rs, SQL, nombre, password

if nombre="" then

Response.Write("<FORM NAME=""Email"" ACTION=""login/login.asp"" METHOD=""post"">")
Response.Write("Usuario:")
Response.Write("<input type=""text"" name=""Nombre"" size=""10"">")
Response.Write("<font face=""Arial, Helvetica, sans-serif"" size=""1"">")
Response.Write("Contraseña:")
Response.Write("<input type=""password"" name=""Password"" size=""10"">")
Response.Write("<INPUT TYPE=""submit"" VALUE=""Enviar"">")
Response.Write("</FORM>")


else

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

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


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

'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("Lo siento, no existe ese usuario/contraseña.")
else

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

end if
end if
%>

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

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