<%
dim ruta_server
ruta_server = "E:\inetpub\wwwroot\desarrollo\clajosa\"
Sub GrabarTxt(ruta,text)
ruta = ruta_server & "temp\" & ruta & ".htm"
AgregarArchivo ruta,text
End Sub
Sub AgregarArchivo(ruta,text)
dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
dim arch
Set arch = fs.CreateTextFile(ruta, True)
arch.WriteLine(text)
End Sub
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set lista_archivos = fs.GetFolder(ruta_server & "paginas\")
'Mostramos los archivos...
For each filefound in lista_archivos.files
html = ""
html = html & ""
html = html & ""
html = html & ""
html = html & "CLAJOSA tarifa PVP 2007"
html = html & ""
html = html & ""
html = html & ""
html = html & "<![CDATA[<body>"
html = html & "</body>]]>"
html = html & ""
GrabarTxt replace(filefound.Name,".pdf",""),html
next
%>