<%
' BasicObj.asp - Simple program to show pseudo-object called "Car".

' Force variables to be declared.

option explicit  

' Declare variables.

dim objCar

' Create a Car pseudo-object.

set objCar = Car_New()
objCar("make") = "Toyota"
objCar("model") = "Corolla"
objCar("year") = 1991

' Show the car.

Response.Write "objCar: " & objCar("year") & " " & objCar("make") & " " & _
   objCar("model") & vbCrLf

' -----------------------------------------------------------------------------

' Car_New(): Creates a new, empty Car object.
'
function Car_New()
   dim objCar

   ' Create Dictionary object as base.

   set objCar = Server.CreateObject("Scripting.Dictionary")

   ' Add fields.

   objCar.Add "make",  ""
   objCar.Add "model", ""
   objCar.Add "year",  0

   ' Return the new, empty Car.

   set Car_New = objCar
end function
%>