October 23, 2018
Hot Topics:

Pseudo-Objects in Active Server Pages

  • October 14, 1999
  • By Thornton Rose
  • Send Email »
  • More Articles »

' Car2.inc -- Functions and subroutines for Car pseudo-object.
' (Modified version of Car.inc to use Entity as base object.)

' Car_New(): Creates an empty Car object.
function Car_New()
   dim objCar

   ' Create empty Entity.
   set objCar = Entity_New()

   ' Set "hidden" fields.
   objCar("_Table") = "Cars"
   objCar("_PrimaryKey") = "VIN"

   ' Add Car fields.
   objCar.Add "VIN",   ""
   objCar.Add "make",  ""
   objCar.Add "model", ""
   objCar.Add "color", ""
   objCar.Add "year",  0

   ' Return object.
   set Car_New = objCar
end function

' Car_Load(): Loads a list of Car objects from the database for the given
' condition in the given order.
function Car_Load(strConn, where, orderBy)
   set Car_Load = Entity_Load(strConn, Car_New(), "*", where, orderBy)
end function

' Car_Insert(): Inserts the given Car object into the database.
function Car_Insert(strConn, objCar)
   Car_Insert = Entity_Insert(strConn, objCar)
end function

' Car_Update(): Updates the given Car object in the database.
function Car_Update(strConn, objCar)
   Car_Update = Entity_Update(strConn, objCar)
end function

' Car_Delete(): Deletes the given Car object from the database.
function Car_Delete(strConn, objCar)
   Car_Delete = Entity_Delete(strConn, objCar)
end function

Page 7 of 11

Comment and Contribute


(Maximum characters: 1200). You have characters left.



Enterprise Development Update

Don't miss an article. Subscribe to our newsletter below.

By submitting your information, you agree that developer.com may send you developer offers via email, phone and text message, as well as email offers about other products and services that developer believes may be of interest to you. developer will process your information in accordance with the Quinstreet Privacy Policy.


Thanks for your registration, follow us on our social networks to keep up-to-date