diff --git a/admin/xml.inc.php b/admin/xml.inc.php
new file mode 100644
index 00000000..8a1ac91a
--- /dev/null
+++ b/admin/xml.inc.php
@@ -0,0 +1,74 @@
+<?
+/* 
+   This file is part of the 'Science Fair In A Box' project
+   SFIAB Website: http://www.sfiab.ca
+
+   Copyright (C) 2007 James Grant <james@lightbox.org>
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public
+   License as published by the Free Software Foundation, version 2.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; see the file COPYING.  If not, write to
+   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.
+*/
+
+function xmlCreateRecurse($d)
+{
+	global $indent;
+	global $output;
+	foreach($d AS $key=>$val)
+	{
+		if(is_numeric($key))
+		{ 
+			if($val['xml_type'])
+			{
+				for($x=0;$x<$indent;$x++) $output.=" ";
+				$output.="<".$val['xml_type'].">\n";
+				$indent++;
+				xmlCreateRecurse($val);
+				$indent--;
+				for($x=0;$x<$indent;$x++) $output.=" ";
+				$output.="</".$val['xml_type'].">\n";
+			}
+			else
+			{
+				for($x=0;$x<$indent;$x++) $output.=" ";
+				$output.="<$key>\n";
+				$indent++;
+				xmlCreateRecurse($val);
+				$indent--;
+				for($x=0;$x<$indent;$x++) $output.=" ";
+				$output.="</$key>\n";
+
+			}
+		}
+		else if(is_array($val))
+		{
+			for($x=0;$x<$indent;$x++) $output.=" ";
+				$output.="<$key>\n";
+			$indent++;
+			xmlCreateRecurse($val);
+			$indent--;
+			for($x=0;$x<$indent;$x++) $output.=" ";
+				$output.="</$key>\n";
+		}
+		else
+		{
+			if($key!="xml_type" && $key!="projectid" && $key!="projectdivisions_id")
+			{
+				for($x=0;$x<$indent;$x++) $output.=" ";
+				$output.="<$key>$val</$key>\n";
+			}
+		}
+	}
+}
+
+?>