I once did something like this when I had to do a style sheet on-the-fly so to speak...
Code:
<%
Sub CreateAFile(fn)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(Server.Mappath(fn), True)
MyFile.Close
End Sub
Sub makeStyleSheet(nameCSS)
Dim filename
filename = nameCSS
CreateAFile(filename)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.Mappath(filename), 2)
f.WriteLine "A { color:#C0C0C0; }"
f.WriteLine "A:link { text-decoration: none; }"
f.WriteLine "A:active { text-decoration: none; }"
f.WriteLine "A:visited { text-decoration: none; }"
f.Close
End Sub
%>
It can probably help you! I didn't install anything.
Where in Egypt are you from I have just been to Cairo and Hurghada, nice... :)
Hope it helps
Jacob.