Como hacer un Include de un archivo...

[Fabu_dina]

Muchas gracias posprodukcion

Esto fue lo que me funciono:



Function IncluirHTML(archivo)
Dim objFSO
Dim objText
Dim strPage


'Instanciamos el objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")


'Abrimos el archivo pasado como argumento
'Utilizamos "MapPath" para hallar la ruta física al archivo.

Set objText = objFSO.OpenTextFile(Server.MapPath(archivo))


'Leemos el contenido y lo devolvemos como una cadena de texto
IncluirHTML = objText.ReadAll

objText.Close
Set objText = Nothing
Set objFSO = Nothing
End Function

La forma de utilizar esta función sería:


Dim aspecto

aspecto = Response.Cookies("aspecto")

'Imprimimos el HTML que el usuario decidió
Response.Write(IncluirHTML(aspecto))