' 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