<% ' FieldInspection.asp - Example program to show inspection of the fields of a ' pseudo-object. option explicit %>

<%
dim car
dim fieldNames
dim field
dim i

' Create Car and get array of fields.

set car = Car_New()
fieldNames = car.Keys()

' Show fields and field types.

Response.Write "" & vbCrLf
Response.Write "Fields of Car pseudo-object:" & vbCrLf & vbCrLf

for i = 0 to UBound(fieldNames)
   field = car(fieldNames(i))
   Response.Write fieldNames(i) & ": " & TypeName(field) & vbCrLf
next

Response.Write "" & vbCrLf
%>