<%
footcodexml = "/cache/footcode.xml"
Set objxml=Server.CreateObject("Microsoft.XMLDOM")
objxml.Async=False
objxml.Load(Server.Mappath(footcodexml))
If objxml.parseError.errorcode = 0 Then
Set oContent = objxml.documentElement.selectSingleNode("root")
i = 0
Do While i < oContent.childNodes.length
If LCase(oContent.childNodes.item(i).text)=LCase(SiteSkin) And oContent.childNodes.item(i).getAttribute("use") = "1" Then
uid = oContent.childNodes.item(i).getAttribute("uid")
stat = oContent.childNodes.item(i).getAttribute("stat")
Exit Do
End If
i = i + 1
Loop
End If
%>
<%=FooterOther%>