Pseudo-Objects in Active Server Pages
<%
' CloneObj.asp - Example program to show cloning of a pseudo-object.
option explicit
%>
NOTE: include file="db.inc"
NOTE: include file="Entity.inc"
NOTE: include file="Car2.inc"
<%
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
%>
Page 10 of 11
Comment and Contribute