Ja ja se me adelantó Diego.
Bueno, por lo menos te pongo la función para leer un archivo y así ya lo tienes todo hecho:
Ejemplo: LeeArchivo("Index.asp")
Function LeeArchivo(cArchi)
'Lee un archivo de texto (asp, html, log, js)
Dim oSFile, oTextArch, cTexto
Set oSFile = Server.CreateObject("Scripting.FileSystemObje ct")
Set oTextArch = oSFile.OpenTextFile (Server.MapPath(cArchi), 1, false )
cTexto = Trim(oTextArch.ReadAll)
Set oSFile = Nothing
oTextArch.Close: Set oTextArch = Nothing
LeeArchivo = cTexto
End Function
Un saludo. :)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>