<% @Language=VBSCript %>
<% option explicit %>
<%
private Sub NavbarCSS ()
%>
body { margin: 0 ; padding: 0 }
.level2 { background-color: #c0e0ff ; color: #104080 ; padding: 0 0.5em 0 0.5em }
.level2 a { }
.level2 a:hover { background-color: orange ; color: #104080 }
#trMain { background-color: #104080 }
#trMain #tdMain {
border-top: solid #104080 5px ; border-bottom: none ; border-left: none ; border-right: none ;
padding: 0 ;
background-color: white ; color: black
}
table.outerbar * { font-family: Verdana, Arial, sans-serif ; font-size: x-small ; font-weight: normal }
table.outerbar { margin: 0 ; padding: 0 }
table.outerbar tr { margin: 0 ; padding: 0 }
table.outerbar tr td { margin: 0 ; padding: 0 }
table.outerbar tr.hr { margin: 0 ; padding: 0 ; background-color: #104080 ; color: white }
table.outerbar tr.navbarFooter { margin: 0 ; padding: 0 }
table.outerbar tr.navbarFooter { margin: 0 ; padding: 0 }
table.outerbar tr.navbarFooter th { margin: 0 ; padding: 0 }
table.outerbar tr.navbarFooter th table { margin: 0 ; padding: 0 }
table.outerbar tr.navbarFooter th table tr th.empty {
width: auto ; padding: 0.2em 0 0.2em 0 ; margin: 0 ;
font-weight: normal ; font-family: 'Arial Narrow', Arial, sans-serif ; font-size: 8pt ;
background-color: #104080 ; color: white ;
}
table.outerbar tr.navbarFooter th.empty a {
color: #c0f0ff
}
table.outerbar table { margin: 0 ; padding: 0 ; margin: 0 auto 0 auto }
table.outerbar table tr { margin: 0 ; padding: 0 }
table.outerbar table tr td { padding: 0 ; vertical-align: bottom /* ; border: solid red 1px */ }
/* These should really be table.tab>tr>...., but IE5/IE6 are broken for this selector */
table.tab { margin: 0 ; border: none }
table.tab tr { margin: 0 ; border: none }
table.tab tr td { margin: 0 ; border: none ; text-align: center : height: 200px }
table.tab tr th { margin: 0 ; border: none ; text-align: center ; color: white ; background-image: url('images/MonoPix.gif') }
table.tab tr a { text-decoration: none }
table.tab tr td a { color: #104080 }
table.tab tr th a { color: white }
table.tab tr td img { margin: 0 ; border: none }
.breadCrumbs {
float: left ;
/* background-color: orange ; */
font-family: 'Arial Narrow', sans-serif ;
font-size: 8pt ;
vertical-align: bottom ; height: 2em ;
}
.breadcrumbs .last { font-weight: bolder }
.breadcrumbs p { vertical-align: bottom ; margin: 0.5em 0.5em 0 0 ; /* background-color: yellow */ }
.utilities {
float: right ;
/* background-color: orange ; */
font-family: 'Arial Narrow', sans-serif ;
font-size: 8pt ;
vertical-align: bottom ; height: 2em ;
}
.utilities form { display: inline ; height: 1.5em ; vertical-align: middle ; /* background-color: yellow */ }
#searchcontents, #dosearch {
font-family: 'Arial Narrow', Arial, sans-serif ;
font-size: 8pt }
<%
end sub
'-- Emission des élements externes d'une barre de navigation ----------
Private Sub NavbarWrapperOpen ()
Response.Write "" & vbCRLF
end sub
Private Sub NavbarWrapperClose ()
Response.Write "
" & vbCRLF
end sub
Private Sub NavbarTop ()
%>
 |
Vous êtes ici:
OSInet > Marques
|
|
<%
end sub
Private Sub NavBarHome (logo)
Response.Write " "
Response.Write "![]() | " & vbCRLF
end sub
'-- Emission du TD hébergeant le corps de barre et de son contenu -----
Private Sub NavbarMainOpen ()
Response.Write " " & vbCRLF
Response.Write " " & vbCRLF ' align required for MSIE. CSS compliance would center without it...
Response.Write " " & vbCRLF
Response.Write " " & vbCRLF
end sub
'-- Emission du TD de droite ------------------------------------------
Private Sub NavbarTail ()
Response.Write " " & vbCRLF
end sub
'-- Fermeture du corps de barre ---------------------------------------
Private Sub NavBarMainClose ()
Response.Write " " & vbCRLF
Response.Write " " & vbCRLF
Response.Write " | " & vbCRLF
end sub
'-- Emission d'un TD contenant un tab ---------------------------------
Private Sub NavbarTab (down, byVal s, url)
s = "" & Server.HTMLEncode (s) & ""
Response.Write " " & vbCRLF
Response.Write " " & vbCRLF
Response.Write " " & vbCRLF
Response.Write " ![]() | " & vbCRLF
Response.Write " "
Response.Write "![]() | " & vbCRLF
Response.Write " ![]() | " & vbCRLF
Response.Write " " & vbCRLF
Response.Write " " & vbCRLF
Response.Write " "
Response.Write "![]() | " & vbCRLF
if down then
Response.Write " " & s & " | " & vbCRLF
else
Response.Write " " & s & " | " & vbCRLF
end if
Response.Write " "
Response.Write "![]() | " & vbCRLF
Response.Write " " & vbCRLF
Response.Write " " & vbCRLF
Response.Write " ![]() | " & vbCRLF
if down then
Response.Write " ![]() | " & vbCRLF
else
Response.Write " ![]() | " & vbCRLF
end if
Response.Write " ![]() | " & vbCRLF
Response.Write " " & vbCRLF
Response.Write " " & vbCRLF
Response.Write " | " & vbCRLF
end sub
'-- Barre de relief vide -------------------------------------------------------
private Sub NavbarHR ()
Response.Write "
![]() |
" & vbCRLF
end sub
'-- Pied de page commun --------------------------------------------------------
private Sub NavbarFooter ()
%>
<%
end sub
'-- Emission de tout l'en-tête de page -----------------------------------------
private sub PageHeader ()
Call NavbarWrapperOpen ()
Call NavbarTop ()
' Call NavbarHome ("../images/osilogo.png") ' Envoie le logo et retour accueil, (1 col.)
Call NavBarMainOpen () ' 1 col.
Call NavbarTab (False, "Accueil", "//www4.osinet.fr/")
Call NavbarTab (True, "Marques", "//www4.osinet.fr/code/session/texttabs.asp")
Call NavbarTab (False, "Techniques", "//www4.osinet.fr/code/prix.asp")
Call NavbarTab (False, "Acheter moins cher", "//www4.osinet.fr/osi/promos.asp")
Call NavbarTab (False, "Support", "//www4.osinet.fr/code/prix.asp")
Call NavbarTab (False, "Actualités", "//www4.osinet.fr/")
Call NavbarTab (False, "Contact", "https://osinet.fr/contact")
Call NavBarMainClose ()
Call NavbarTail () ' 1 col.
' Call NavbarHR ()
Response.Write " " & vbCRLF
Response.Write " | " & vbCRLF
end sub
private sub PageFooter ()
Response.Write " | " & vbCRLF
Response.Write "
" & vbCRLF
Call NavbarFooter ()
Call NavbarWrapperClose ()
end sub
%>
Nouvelle page 1
<% Call PageHeader () %>
<% Call PageFooter () %>