The following ASP code dynamically renders the blockgroups using the value in the pop1990 field.
Code:
<%@ Language=VBScript %>
<!-- METADATA TYPE="TypeLib"
FILE="C:\Program Files\ArcGIS\ArcIMS\Connectors\ActiveX\aims_ActiveX.dll"
-->
<%
Option Explicit
Const SERVER_NAME = "localhost"
Const SERVICE = "425892"
Dim Cn,Map
Set Cn = Server.CreateObject("aims.ArcIMSConnector")
Set Map = Server.CreateObject("aims.Map")
Cn.ServerName = SERVER_NAME
Cn.ServerPort = 5300
Map.Height = 300
Map.Width = 400
Map.InitMap Cn, SERVICE
'Dynamically change the render for blockgroups.
Dim mValueMapRenderer
Dim mResult
Dim mSimplePolygonSymbol
Set mValueMapRenderer = Server.CreateObject("aims.ValueMapRenderer")
Set mSimplePolygonSymbol = Server.CreateObject("aims.SimplePolygonSymbol")
mValueMapRenderer.LookupField = "POP1990"
mSimplePolygonSymbol.FillColor = imsColor.imsWhite
mResult = mValueMapRenderer.Add(mSimplePolygonSymbol, imsRange.imsRange,,0, 948,0,0,0)
mSimplePolygonSymbol.FillColor = imsColor.imsKhaki
mResult = mValueMapRenderer.Add(mSimplePolygonSymbol, imsRange.imsRange,, 948, 1895,0,0,0)
mSimplePolygonSymbol.FillColor = imsColor.imsBlue
mResult = mValueMapRenderer.Add(mSimplePolygonSymbol, imsRange.imsRange,, 1895, 2843,0,0,0)
mSimplePolygonSymbol.FillColor = imsColor.imsYellow
mResult = mValueMapRenderer.Add(mSimplePolygonSymbol, imsRange.imsRange, ,2843, 3790,0,0,0)
mSimplePolygonSymbol.FillColor = imsColor.imsTeal
mResult = mValueMapRenderer.Add(mSimplePolygonSymbol, imsRange.imsRange, ,3790, 4738,0,0,0)
dim lyr
Set lyr = Map.Layers.item(1).Clone
lyr.renderer = mValueMapRenderer
lyr.visible = true
Map.Layers.Add lyr
'end Dynamically change the render for blockgroups
Map.Refresh
Debug Cn.RequestAXL
Dim imgUrl
imgUrl = map.GetImageAsUrl()
Set Map = Nothing
Set Cn = Nothing
%>
<IMG SRC="<%=imgUrl%>">
<%
Sub Debug(str)
Response.Write (Server.HTMLEncode(str)) & "<hr>"
End Sub
Function getLayerIndex(map, layerName)
Dim i, r, idx
For i = 1 To map.Layers.Count
If LCase(map.Layers.Item(i).Name) = LCase(layerName) Then
getLayerIndex = i
Exit For
End If
Next
End Function
%>