lista med className??

Hej!

Har någon möjligtvis gjort en editeringsfunktion eller nåt liknande där man får upp vilken css/class som används mha className, och där man sen får upp övriga classer i en dropdownlist så man kan byta.
På nåt sätt måste jag få upp alla className ur css. Idé någon?

Tack på förhand.

Ifall någon mot förmodan skulle vilja veta så

<%
set ofs = server.createobject("scripting.filesystemobject")
If ofs.FileExists(server.mappath("../../../style.css")) Then
Set oFile = ofs.OpenTextFile(server.mappat("style.css"))
response.write("<select name=classtyle='width:165px;'>")
While Not oFile.AtEndOfStream
sText = oFile.ReadLine
if not trim(sText) =  "" then
sClassName = mid(sText,2)
Response.write("<option value="& sClassName &">"& sClassName &"</option>")
end if
wend
Response.write("</select>")
end if%>