<%
dim A
A=split(request.querystring("option"),",",-1,1)
dim rootelement
Set xmldom = Server.CreateObject("Microsoft.XMLDOM")
xmldom.async=false
xmldom.load(server.mappath("vote.xml"))
set rootelement=xmldom.documentelement
set optionlist=xmldom.getElementsByTagName("option")
for each AO in A
for j=0 to optionlist.length-1
if AO=optionlist.item(j).getAttribute("id") then
idvalue=optionlist.item(j).childnodes.item(1).nodevalue
idvalue=cstr(cint(idvalue)+1)
optionlist.item(j).childnodes.item(1).nodevalue=idvalue
exit for
end if
next
next
set othernode=xmldom.getElementsByTagName("input")
if request.form("other")<>"" then
set newChild=xmldom.createNode(1,"content",request.querystring("other"))
othernode.appendChild(newChild)
end if