<%
ID = Request("ID")
'CREATE ZIP CODE LOCATOR OBJECT
Set zipLoc = Server.CreateObject("ZipcodeLocator.Locator")
zipLoc.ConnectionString = strConn
Set rs = zipLoc.ResultDetails(ID)
Set zipLoc = Nothing
Dim arrFields()
ReDim arrFields(1,rs.fields.count)
I = 0
For Each Item in rs.fields
arrFields(0,I) = Item.name
arrFields(1,I) = Item
I=I+1
Next
%>
Detail Information
<% For I = 0 to Ubound(arrFields , 2)-1
bgcolor = ColorSwitch(bgcolor)
SELECT CASE arrFields(0,I)
CASE "ID","Lon","Lat"
J=1
CASE "PhoneNumber"%>