<%
Function ParseXMLTag(str)
Dim blnInBeginTag, blnInEndTag, intPos
Dim blnInTag, strOutput
intPos = 1
Do While (intPos < Len(str))
If (blnInBeginTag) then
If (Mid(str,intPos,1) = ">") then
blnInBeginTag = false
strOutput = strOutput & " "
Else
'Comment out the next line to remove the element names from output
'strOutput = strOutput & Mid(str,intPos,1)
End If
ElseIf (blnInEndTag) then
If (Mid(str,intPos,1) = ">") then
blnInEndTag = false
End If
Else
If (Mid(str,intPos,1) = "<") then
If (Mid(str,intPos+1,1) = "/") then
blnInEndTag = true
Else
blnInBeginTag = true
End If
Else
strOutput = strOutput & Mid(str,intPos,1)
End If
End If
intPos = intPos + 1
Loop
ParseXMLTag = strOutput
End Function
%>
Milne & BNC Insurance Services
