<% Dim Map : Set Map = OpenMap() Dim idr, idrs Set idrs = Nothing Set idr = Map.identify(CInt( Request("map.x")), CInt( Request("map.y"))) If Not idr Is Nothing Then Set idrs = idr.getRecordset() End If %> <% If Not idrs Is Nothing Then %> <br>Layer: <%= Map.getLayers().getLayer(idr.getLayerNumber()).getName() %><br> <table> <tr> <% Dim idFields, i, val Set idFields = idrs.getFields() For i = 0 To idFields.getFieldCount()-1 Step 1 If idFields.getFieldType(i) <> rmShape Then Response.Write("<th bgcolor='#C0C0C0'>" & idFields.getFieldName(i) & "</th>") End If Next Response.Write("</tr>" & vbCrLf) idrs.moveFirst() While Not idrs.IsEOF() Response.Write("<tr bgcolor='#ECECEC'>") For i = 0 To idFields.getFieldCount()-1 Step 1 If idFields.getFieldType(i) <> rmShape Then val = idrs.getAsString(i) Response.Write("<td>" & val & "</td>") End If Next Response.Write("</tr>" & vbCrLf) idrs.moveNext() Wend %> </table> <% End If %> <form> <input type="image" name="map" src="<%= Map.getMapImageURL(Map.getImageWidth(), Map.getImageHeight(), rmDefault)%>" width="<%=Map.getImageWidth()%>" height="<%=Map.getImageHeight()%>"> </form>