' get the layer Set Layer = Map.getLayers().getLayerByName("Airports") ' create the SearchDef object Set searchDef = Server.CreateObject("RMIMS.SearchDef") '************************************************************************** ' convert current units (miles or kilometers) to map units Radius = Map.convertDistance( 20, Map.getMeasureUnits(), rmMapUnits) Set center = new GeoLocation : center.init "Redlands, CA", 34.0528, -117.1531 searchDef.setSearchMethod rmSortDistance searchDef.addCircle center.x, center.y, Radius, 0 '************************************************************************** Set rs = Layer.search((searchDef)) ' returns Recordset object ' prints all records from the recordset If Not rs Is Nothing Then recCount = rs.getRecordsCount() fieldCount = rs.getFields().getFieldCount() Response.Write( "<table border=1 cellspacing=0 cellpadding=2>" & vbCrLf) Response.Write( "<tr bgcolor='#DDDDDD'>" & vbCrLf) For i = 0 To fieldCount - 1 Response.Write("<th>" & rs.getFields().getFieldName(i) & "</th>") Next Response.Write("</tr>" & vbCrLf) For i = 0 To recCount - 1 rs.move i Response.Write("<tr>") For j = 0 To fieldCount - 1 value = rs.getAsString(j) If value = "" Then value = " " End If Response.Write("<td>" & value & "</td>") Next Response.Write("</tr>" & vbCrLf) Next Response.Write("</table>" & vbCrLf) End If Class GeoLocation Public label Public x Public y Public Function init( ilabel, ilat, ilon) Set proj = Map.getProjection() Set pt = proj.project( ilat, ilon) label = ilabel x = pt.x y = pt.y End Function End Class