pls help asp xml list change
-
asp xml list change xml <?xml version="1.0"?> <PIP> <STATE Id="4" Name="California"> <PIPCODE1> <PLAN PIPplantype="PLAN A"> <MAXMEDEXP Value="20000" Text="20,000" /> <MAXNONMEDEXP Value="20000" Text="20,000" /> <MAXWORKLOSS Value="250" Text="250" /> </PLAN> <PLAN PIPplantype="PLAN B"> <MAXMEDEXP Value="30000" Text="30,000" /> <MAXNONMEDEXP Value="20000" Text="20,000" /> <MAXWORKLOSS Value="250" Text="250" /> </PLAN> <PLAN PIPplantype="PLAN C" > <MAXMEDEXP Value="40000" Text="40,000" /> <MAXNONMEDEXP Value="20000" Text="20,000" /> <MAXWORKLOSS Value="250" Text="250" /> </PLAN> <PLAN PIPplantype="PLAN D"> <MAXMEDEXP Value="50000" Text="50,000" /> <MAXNONMEDEXP Value="20000" Text="20,000" /> <MAXWORKLOSS Value="250" Text="250" /> </PLAN> <PLAN PIPplantype="PLAN E"> <MAXMEDEXP Value="50000" Text="50,000" /> <MAXNONMEDEXP Value="35000" Text="35,000" /> <MAXWORKLOSS Value="350" Text="350" /> </PLAN> </PIPCODE1> </STATE> </PIP> asp <%@ language="VBScript" %> <% 'Create DOMdocument. Instantiatate the XML Processor Set objXML = Server.CreateObject("MSXML.DOMDocument") if err then Response.Write "<font color=red><b>2. LU_PIP.asp " & Err.description & "</b><font>" Response.End end if 'Load the XML Document. Temporary we load it in LU_Gender.xml objXML.load(Server.MapPath("test.xml")) 'Assing XML string from DOM Document into XML root node. Set objRootElement = objXML.documentElement if err then Response.write "<center><font=red><b>4. LU_PIP.asp " & Err.description & "</b></font></center>" Response.End end if err.Clear Set objStateNode = objRootElement.selectSingleNode("STATE") Set objPIPCode1 = objStateNode.selectSingleNode("PIPCODE1") Set objPlan = objPIPCode1.selectSingleNode("PLAN") Set objMaxMedExp = objPlan.selectSingleNode("MAXMEDEXP") Set objMaxNonMedExp = objPlan.selectSingleNode("MAXNONMEDEXP") Set objMaxWorkLoss = objPlan.selectSingleNode("MAXWORKLOSS") MaxMedExpNode = objMaxMedExp.attributes.getNamedItem("Value").nodeValue MaxMedExpNodeText = objMaxMedExp.attributes.getNamedItem("Text").nodeValue MaxNonMedExpNode = objMaxNonMedExp.attributes.getNamedItem("Value").nodeValue MaxNonMedExpNodeText = objMaxNonMedExp.attributes.getNamedItem(
-
asp xml list change xml <?xml version="1.0"?> <PIP> <STATE Id="4" Name="California"> <PIPCODE1> <PLAN PIPplantype="PLAN A"> <MAXMEDEXP Value="20000" Text="20,000" /> <MAXNONMEDEXP Value="20000" Text="20,000" /> <MAXWORKLOSS Value="250" Text="250" /> </PLAN> <PLAN PIPplantype="PLAN B"> <MAXMEDEXP Value="30000" Text="30,000" /> <MAXNONMEDEXP Value="20000" Text="20,000" /> <MAXWORKLOSS Value="250" Text="250" /> </PLAN> <PLAN PIPplantype="PLAN C" > <MAXMEDEXP Value="40000" Text="40,000" /> <MAXNONMEDEXP Value="20000" Text="20,000" /> <MAXWORKLOSS Value="250" Text="250" /> </PLAN> <PLAN PIPplantype="PLAN D"> <MAXMEDEXP Value="50000" Text="50,000" /> <MAXNONMEDEXP Value="20000" Text="20,000" /> <MAXWORKLOSS Value="250" Text="250" /> </PLAN> <PLAN PIPplantype="PLAN E"> <MAXMEDEXP Value="50000" Text="50,000" /> <MAXNONMEDEXP Value="35000" Text="35,000" /> <MAXWORKLOSS Value="350" Text="350" /> </PLAN> </PIPCODE1> </STATE> </PIP> asp <%@ language="VBScript" %> <% 'Create DOMdocument. Instantiatate the XML Processor Set objXML = Server.CreateObject("MSXML.DOMDocument") if err then Response.Write "<font color=red><b>2. LU_PIP.asp " & Err.description & "</b><font>" Response.End end if 'Load the XML Document. Temporary we load it in LU_Gender.xml objXML.load(Server.MapPath("test.xml")) 'Assing XML string from DOM Document into XML root node. Set objRootElement = objXML.documentElement if err then Response.write "<center><font=red><b>4. LU_PIP.asp " & Err.description & "</b></font></center>" Response.End end if err.Clear Set objStateNode = objRootElement.selectSingleNode("STATE") Set objPIPCode1 = objStateNode.selectSingleNode("PIPCODE1") Set objPlan = objPIPCode1.selectSingleNode("PLAN") Set objMaxMedExp = objPlan.selectSingleNode("MAXMEDEXP") Set objMaxNonMedExp = objPlan.selectSingleNode("MAXNONMEDEXP") Set objMaxWorkLoss = objPlan.selectSingleNode("MAXWORKLOSS") MaxMedExpNode = objMaxMedExp.attributes.getNamedItem("Value").nodeValue MaxMedExpNodeText = objMaxMedExp.attributes.getNamedItem("Text").nodeValue MaxNonMedExpNode = objMaxNonMedExp.attributes.getNamedItem("Value").nodeValue MaxNonMedExpNodeText = objMaxNonMedExp.attributes.getNamedItem(
What is the problem ?
Christian Graus - Microsoft MVP - C++ "also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
-
What is the problem ?
Christian Graus - Microsoft MVP - C++ "also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
help sample
Boya - Badana - Tadilat ve Tamirat Isleri Bir Yudum Kahve Molasi (Coffee) Dügün Nisan ve Gelinlik (wedding) Google Reklamlarinizi Sadece Siz Yönetin Elektrik Proje Tesisat Projesi Çizimi Illere Göre Nakliyat Firmalari Istatistik http://www.evdenevenakliyatbul.com
-
What is the problem ?
Christian Graus - Microsoft MVP - C++ "also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
help sample İllere Göre Nakliyat Firmaları İstatistik http://www.evturnakliyat.com