<script language=vbscript runat="server">
Function MapHandler()
On Error Resume Next
Dim x1,y1,x2,y2,x,y
Dim bResult
Dim str
Dim iZoom
Dim ftrs
Dim pItem
Dim i,iCount
str=Request.Form("tool")
bResult=ConvertScreenCoordsToMap(Request.Form("x1"), Request.Form("y1"),x1,y1)
bResult=ConvertScreenCoordsToMap(Request.Form("x2"), Request.Form("y2"),x2,y2)
select case str
case "search"
If CreateMapFeature(pItem) = True Then
pItem.Attach session(cmapxobject)
pItem.Type = miFeatureTypeSymbol
end if
pItem.Point.set x1,y1
set ftrs=Session(cMapxObject).layers(3).SearchWithinDistance(pItem,500, miUnitMile,miSearchTypeCentroidWithin)
iCount=ftrs.Count
for i=1 to iCount
str=ftrs.item(i).name
next
case "distance"
case "eye"
case "clear"
case "load"
case "print"
end select
End Function
</script>