modificar hoja de estilo

[nazkatuta]

... aqui va la segunda pagina, que no me cabía entera...

ESCRIBIR_CSS.ASP

Código:

<%
'abrimos  continguts.CSS
    path = Request.ServerVariables("APPL_PHYSICAL_PATH")&"portal\"
	set objfilesys = CreateObject("Scripting.FileSystemObject")
	set archivo = objfilesys.OpenTextFile(Path & "continguts.css",1)
	txtCSS = archivo.readall
	archivo.close
	set archivo = nothing
	tag = Lcase(request.QueryString("tag"))
	datos = Lcase(replace(request.QueryString("datos")," ",""))
	'response.write datos & "<br>"
	txtCSS = Lcase(replace(txtCSS," ",""))
	if instr(txtCSS, tag&"{") > 1 then
		'Existe ya una entrada para el tag
		tmp = MID(txtCSS,instr(txtCSS,tag&"{"))
		tmp = split(tmp,"}")
		anterior = tmp(0) & "}"
		'response.write anterior & "<br>"
		nuevo = replace(txtCSS,anterior,datos)
	else
		'No existe entrada para el tag
		nuevo = txtCSS & datos
	end if

	
	set archivo = objfilesys.OpenTextFile(Path & "continguts.css",2)
	archivo.write nuevo
	set archivo = nothing
	
%>

como veis en este caso la CSS se llama continguts.css y está en el directorio /portal.

espero que os sirva...
suerte.