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 "

	

		
				
Email Article
		
				
Print Article
			
				
	

		
" & 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



			
			
				

				
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 

				
				




					


                                        

                        This article was originally published on October 14, 1999