<% ' CloneObj.asp - Example program to show cloning of a pseudo-object. option explicit %>

<%
dim car1
dim car2

' Create a Car.

set car1 = Car_New()
car1("make") = "Volkswagen"
car1("model") = "Beetle"
car1("year") = 1965
car1("color") = "yellow"

' Clone the car.

set car2 = Entity_Clone(car1)

' Show the cars.

Response.Write "" & vbCrLf

Response.Write "car 1: [" & car1("year") & " " & car1("make") & " " & _
   car1("model") & ", " & car1("color") & "]" & vbCrLf 
Response.Write "car 2: [" & car2("year") & " " & car2("make") & " " & _
   car2("model") & ", " & car2("color") & "]" & vbCrLf 

Response.Write "" & vbCrLf
%>