<%

    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>