Ver Mensaje Individual
  #8 (permalink)  
Antiguo 06/06/2007, 08:39
tammander
 
Fecha de Ingreso: enero-2006
Ubicación: Torroles (Costa der Só)
Mensajes: 1.017
Antigüedad: 19 años, 4 meses
Puntos: 7
Re: ¿Como saber si un archivo existe en un servidor?

A ver que tal este código para el vxml.asp despues de los if .. then

Código:
 Dim FSO, Archivo
Archivo = Ruta&"a"&Diaz&Mesz&Ano&".xml"
Set FSO = CreateObject("Scripting.FileSystemObject")
IF (FSO.FileExists(Archivo)) Then
      ' Leemos el xml en este mismo archivo       
       Set objFile = FSO.OpenTextFile(Archivo, 1)       ' Itineramos hasta el final del archivo y lo dibujamos en este mismo archivo
       Do Until objFile.AtEndOfStream
              response.write(objFile.ReadLine & vbCrLf) 
      Loop

      objFile.Close
Else
       ' Pon aqui el código del archivo xml.asp y procesa directamente desde aqui
       ' No hagas ningun redirect

End IF 

Todo esto desde luego lo que hará es presentar en pantalla un archivo xml ya que eso es lo que haces desde n.asp

A todo esto, ¿que es lo que quieres hacer con el archivo RSS? ¿procesarlo para ponerlo en algun div a modo de cartel de noticias? ¿Algun servicio web?


Un saludo
__________________
"Tus pecados son el estiércol sobre el que florecerán las flores de tus virtudes" - Gerald Messadié -