<%
Dim oNews
Set oNews = new cNews
Dim newsEvent(50, 7)
Dim recNewsEventCount
Dim newsEvent2(50, 7)
Dim recNewsEventCount2
recNewsEventCount = oNews.getAllNews3(newsEvent, 6, 2, 1)
recNewsEventCount2 = oNews.getAllNews3(newsEvent2, 6, 2, 2)
if recNewsEventCount > recNewsEventCount2 then
maxNewsAct = recNewsEventCount
else
maxNewsAct = recNewsEventCount2
end if
xmldetail = " " & vbCrlf
xmldetail = xmldetail & " " & vbCrLf
if maxNewsAct <> 0 then
idx = 1
idx2 = 1
for i = 1 to maxNewsAct
if recNewsEventCount <> 0 and idx <= recNewsEventCount then
xmldetail = xmldetail & "" & vbCrlf
xmldetail = xmldetail & " ]]>" & vbCrlf
xmldetail = xmldetail & " " & newsEvent(i, 3) & "" & vbCrlf
xmldetail = xmldetail & " " & newsEvent(i, 6) & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & "" & vbCrlf
idx = idx + 1
else
xmldetail = xmldetail & "" & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & "" & vbCrlf
end if
if recNewsEventCount2 <> 0 and idx2 <= recNewsEventCount2 then
xmldetail = xmldetail & "" & vbCrlf
xmldetail = xmldetail & " ]]>" & vbCrlf
xmldetail = xmldetail & " " & newsEvent2(i, 3) & "" & vbCrlf
xmldetail = xmldetail & " " & newsEvent2(i, 6) & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & "" & vbCrlf
idx2 = idx2 + 1
else
xmldetail = xmldetail & "" & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & "" & vbCrlf
end if
next
else
xmldetail = xmldetail & "" & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & "" & vbCrlf
xmldetail = xmldetail & "" & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & " " & vbCrlf
xmldetail = xmldetail & "" & vbCrlf
end if
xmldetail = xmldetail & "" & vbCrLf
fncCreateFile xmldetail, "/UserFiles/01.xml"
%>
Dutch Mill Group