% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO

% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO

% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO

% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO

% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO

% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO

% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO

% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO

% @language=VBScript% % Function readrss(xmlseed) dim xmlDoc dim http Set http=Server.CreateObject(Microsoft.XMLHTTP) http.Open GET,xmlseed,False http.send Set xmlDoc=Server.CreateObject(Microsoft.XMLDOM) xmlDoc.Async=False xmlDoc.ValidateO