Bueno la cosa va asi, en el cliente lo que hago es
http://clienterss/n.asp?F=12/1/2007
y su código simplemente es una linea
n.asp
Código:
<%@LANGUAGE="VBSCRIPT"%>
<%
Response.Redirect("http://servidorrss/xml/vxml.asp?F="&Request.QueryString("F"))
%>
Con esto va al servidor RSS quien verifica la existencia del archivo XML correspondiente a esa fecha
vxml.asp
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' Ruta en la que se guardan los archivos fisicamente
Ruta = "Esta es una ruta física en el servidor RSS"
%>
<%
Dia = Day(Request.QueryString("F"))
Mes = Month(Request.QueryString("F"))
Ano = Year(Request.QueryString("F"))
'Esta parte es para generar los nombres de la forma 01012007.xml en vez de 112007.xml
If Dia < 10 Then
Diaz = "0"&Dia
Else
Diaz = Dia
End If
If Mes < 10 Then
Mesz = "0"&Mes
Else
Mesz = Mes
End If
%>
<%
Dim FSO, Archivo
Archivo = Ruta&"a"&Diaz&Mesz&Ano&".xml"
Set FSO = CreateObject("Scripting.FileSystemObject")
IF (FSO.FileExists(Archivo)) Then
' Este el proceso que ya lee el xml, siempre y cuando exista
Response.Redirect("http://clienterss/nxml.asp?A="&"a"&Diaz&Mesz&Ano&".xml")
'Response.Write "El archivo " & Archivo & " Existe!"
Else
' Este ASP es el que me crea los archivos en función a una fecha existente
Response.Redirect("xml.asp?F="&Request.QueryString("F"))
'A partir de aqui ya no funciona, porque obviamente ya se fue a xml.asp
Response.Redirect("http://clienterss/nxml.asp?A="&"a"&Diaz&Mesz&Ano&".xml")
End IF
%>
Ahora trate de hacer lo de xml.asp mediante Server.Execute, para poder usar luego el Response.Redirect que me devuelva al clienterss, pero al parecer no acepta parámetros
Código:
Server.Execute("xml.asp?F="&Request.QueryString("F"))
o quizas existe un error en el código en la parte de Server.Execute
Hasta estuve pensando colocar una página intermedia, que haga la redirección, se me acaban las ideas y ya no se que más hacer