CONSTRUCTION DYNAMIQUE DE LA BALISE

<%
' Fonction qui scanne la TABLE et en ressort les options du STYLE
function Analyse_Table (oLA_PAGE,oNOM_TABLE,oTYPE_STYLE)
    CS_SQL="SELECT * FROM " & oNOM_TABLE & " WHERE (((NOM_PAGE)='" & oLA_PAGE & "'))"
    set CS_oRS = server.createobject("ADODB.recordset")
	CS_oRS.open CS_SQL ,oConn, 3, 2
    if CS_oRS.recordcount<>0 then
		CS_oRS.movefirst
		do while not CS_oRS.EOF
            if trim(CS_oRS("CLASS"))<>"" then
				response.write oTYPE_STYLE & "." & CS_oRS("CLASS") & chr(9) & chr(9) & chr(9)
			else
				response.write oTYPE_STYLE & chr(9) & chr(9) & chr(9) & chr(9)
			end if
            response.write "{"
            for i=2 to CS_oRS.fields.count-1
                if trim(CS_oRS.fields(i).value)<>"" then response.write CS_oRS.fields(i).name & ": " & CS_oRS.fields(i).value & ";"
            next
            response.write "}" & vbcrlf
			CS_oRS.movenext
        loop
	end if
	CS_oRS.close
	set CS_oRS = nothing
end function

' Cette fonction servira a contruire dynamiquement la balise style.
' A vous de rajouter autant de tables que nécéssaire.
function Construct_Style (La_Page)
	' Construction p/r a : TAB_STYLE_BODY
	Analyse_Table La_Page,"TAB_STYLE_BODY","BODY"
	' Construction p/r a : TAB_STYLE_A
	Analyse_Table La_Page,"TAB_STYLE_A","A"
	' Construction p/r a : TAB_STYLE_FONT
    	Analyse_Table La_Page,"TAB_STYLE_FONT","FONT"
	' Construction p/r a : TAB_STYLE_INPUT
	Analyse_Table La_Page,"TAB_STYLE_INPUT","INPUT"
	' Construction p/r a : TAB_STYLE_SELECT
	Analyse_Table La_Page,"TAB_STYLE_SELECT","SELECT"
    	' Construction p/r a : TAB_STYLE_TD
	Analyse_Table La_Page,"TAB_STYLE_TD","TD"
end function

' Cette fonction servira a initialiser la balise style.
function Init_Style
	response.write "<STYLE>" & vbcrlf
end function

' Cette fonction servira a terminer la balise style.
function End_Style
	response.write "</STYLE>" & vbcrlf
end function
%>

UTILISATION :
<%
Init_Style
Construct_Style "toto"
End_Style
%>