Advertisement
Advertisement
| 06.02.2008 at 04:13AM PDT, ID: 23449442 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: |
'This is the XML Code
<Applications>
<Remotesale>
<Customer Title="Mr" Forename="Joe" Surname="Bloggs" />
<Vehicles>
<Vehicle Make="Ford" Model="Focus" />
</Vehicles>
<Drivers>
<Driver Title="Mr" Forename="Joe" Surname="Bloggs" />
</Drivers>
</Remotesale>
</Applications>
'This is the ASP code
<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<TITLE>Processing file</TITLE>
</HEAD>
<%
Dim xmlDoc
Dim xmlRoot
Dim xmlPNode
Dim xmlNode
Dim strDoc
'Set xmlDoc = Server.CreateObject("Microsoft.xmldom")
Set xmlDoc = Server.CreateObject("MSXML2.DOMDocument.3.0")
xmlDoc.async = False
xmlDoc.load(Server.MapPath("sample.xml"))
Dim title, forename, surname, vehicles
'save customer info into variables
title = xmlDoc.selectSingleNode("/Remotesale/Customer/Title").text
forename = xmlDoc.selectSingleNode("/Remotesale/Customer/Forename").text
surname = xmlDoc.selectSingleNode("/Remotesale/Customer/Surname").text
'save the vehicles onto an array of node objects.
Set vehicles = xmlDoc.selectNodes("/Remotesale/Vehicles/Vehicle")
'Write the customer info
Response.Write title & " " & forename & " " & surname & "<br />"
'Print the vehicle data individually
'Response.Write "<div>" & vehicles(0).selectSingleNode("Make").text & " " & vehicles(0).selectSingleNode("Model").text & "</div>"
'Response.Write "<div>" & vehicles(1).selectSingleNode("Make").text & " " & vehicles(1).selectSingleNode("Model").text & "</div>"
'or iterate through array
Dim vehicleCounter
vehicleCounter = 1001
Dim Vehicle1Make, Vehicle1Model
Dim Vehicle2Make, Vehicle2Model
Dim Vehicle3Make, Vehicle3Model
Dim v
For Each v in vehicles
If vehicleCounter = 1001 then
Vehicle1Make = v.selectSingleNode("Make").text
Vehicle1Model = v.selectSingleNode("Model").text
ElseIf vehicleCounter = 1002 then
Vehicle2Make = v.selectSingleNode("Make").text
Vehicle2Model = v.selectSingleNode("Model").text
ElseIf vehicleCounter = 1003 then
Vehicle3Make = v.selectSingleNode("Make").text
Vehicle3Model = v.selectSingleNode("Model").text
End If
vehicleCounter = vehicleCounter + 1
Next
Response.Write Vehicle1Make & " " & Vehicle1Model & "<br />"
If Vehicle2Make <> "" then Response.Write Vehicle2Make & " " & Vehicle2Model & "<br />"
If Vehicle3Make <> "" then Response.Write Vehicle3Make & " " & Vehicle3Model & "<br />"
%>
</BODY>
|