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%>