<%
function callxml()
Dim xmlDoc
Dim entry
Set xmlDoc = server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.load(server.MapPath("guestbook.xml"))
set entry = xmlDoc.getElementsByTagName("entry")
Response.Write ("
")& vbcrlf
for i=0 to xmlDoc.documentElement.childNodes.length - 1
Response.write ("
")& vbcrlf
Response.write ("
" + entry.item(i).childNodes(1).text + "
")& vbcrlf
Response.write("
")& vbcrlf
Response.write("
")& vbcrlf
Response.write("
" + entry.item(i).childNodes(0).text + "
")& vbcrlf
Response.write("
Subject: " + entry.item(i).childNodes(2).text + "
")& vbcrlf
Response.write("
")& vbcrlf
Response.write("
")& vbcrlf
Response.write("
" + entry.item(i).childNodes(3).text + "
")& vbcrlf
Response.write("
")& vbcrlf
next
Response.write ("
")& vbcrlf
End function
%>
3D imaging of an unfertilised chicken egg using Optical Tomography