 |
 |
|
|
|
|
|
|
<%
Session("BU") = "EX"
'-----------------------------------------------
'Ausgabe der Ergebnisse aus der Produktdatenbank
'-----------------------------------------------
const PREURLPATHINTERFACE = "http://www.degussa-ec.com/"
dim hazardID
Randomize
hazardID = replace(Int((10000000 * Rnd) + 1),",", "")
dim innerLink
innerLink = PREURLPATHINTERFACE & "asp/interface/eventText.asp?BU="& Session("BU") &"&portal=ALL&target=&link=&URLName=" &PREURLPATHINTERFACE &"&cacheControl=" & hazardID
'Response.Write innerLink
dim objXML
dim innerText
Set objXML = Server.CreateObject("MSXML2.ServerXmlHttp.3.0")
objXML.open "GET", innerLink, false
objXML.SetRequestHeader "Content-type", "text/plain"
objXML.send
innerText = objXml.responseText
if trim(innerText) <> "" then
'-----------------------------------------------
%>
|
|
<%
end if
%>
<%
'-----------------------------------------------
'Ausgabe der Ergebnisse aus der Produktdatenbank
'-----------------------------------------------
Randomize
hazardID = replace(Int((10000000 * Rnd) + 1),",", "")
innerLink = PREURLPATHINTERFACE & "asp/interface/newsText.asp?BU="& Session("BU") &"&portal=ALL&target=&link=&URLName=" &PREURLPATHINTERFACE &"&cacheControl=" & hazardID
'Response.Write innerLink
Set objXML = Server.CreateObject("MSXML2.ServerXmlHttp.3.0")
objXML.open "GET", innerLink, false
objXML.SetRequestHeader "Content-type", "text/plain"
objXML.send
innerText = objXml.responseText
if trim(innerText) <> "" then
'-----------------------------------------------
%>
 |
|
|
<%
end if
%>
|
|
|
