<%@ Language=VBScript %>
<%
'We've included ../Includes/FusionMaps.asp, which contains functions
'to help us easily embed the maps.
%>
FusionMaps ASp Sample- Form Based Data Example
<%
'We've included ../Includes/FusionMaps.js, which contains functions
'to help us easily embed the maps.
%>
Form-Based Data : Rendering Map
<%
'this page accepts data from submitted by default.asp
'it sets the values to the world map
'We first request the data from the Form of Default.asp and store in an array
dim dataArray(8,2)
'storing Form data to an array
dataArray(1,1)="01": dataArray(1,2)=int(request("AS"))
dataArray(2,1)="02": dataArray(2,2)=int(request("EU"))
dataArray(3,1)="03": dataArray(3,2)=int(request("AF"))
dataArray(4,1)="04": dataArray(4,2)=int(request("NA"))
dataArray(5,1)="05": dataArray(5,2)=int(request("SA"))
dataArray(6,1)="06": dataArray(6,2)=int(request("CA"))
dataArray(7,1)="07": dataArray(7,2)=int(request("OC"))
dataArray(8,1)="08": dataArray(8,2)=int(request("ME"))
'In this example, we're directly showing this data on the map.
'In your apps, you can do the required processing and then show the
'relevant data only.
'Now that we've the data in an array, we need to convert this into XML.
'The simplest method to convert data into XML is using string concatenation.
Dim strXML
'Initialize