dcsimg
June 19, 2018
Hot Topics:

Pseudo-Objects in Active Server Pages

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

<%
' Car.inc -- Functions and subroutines for Car pseudo-object.

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

   set objCar = Server.CreateObject("Scripting.Dictionary")

   objCar.Add "VIN",   ""
   objCar.Add "make",  ""
   objCar.Add "model", ""
   objCar.Add "color", ""
   objCar.Add "year",  0

   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)
   dim recordset
   dim list
   dim car

   ' Create the list.

   set list = Server.CreateObject("Scripting.Dictionary")

   ' Run the database query.
   
   set recordset = DB_Query(strConn, "*", "Cars", where, orderBy)

   ' Loop through the recordset to load the list.

   do while not recordset.EOF
      ' Create an empty car.
      
      set car = Car_New()

      ' Get the field values.
      
      car("VIN") = recordset("VIN").Value
      car("make") = recordset("make").Value
      car("model") = recordset("model").Value
      car("color") = recordset("color").Value
      car("year") = CInt(recordset("year").Value)

      ' Add the car to the list.

      list.Add car("VIN"), car

      ' Move to the next record.

      recordset.MoveNext
   loop

   ' Close the recordset.

   recordset.Close

   ' Return the list.

   set Car_Load = list
end function

' Car_Insert(): Inserts the given Car object into the database.
'
function Car_Insert(strConn, objCar)
   dim fields
   dim values

   fields = "VIN, make, model, color, year"
   values = _
      "'" & objCar("VIN")   & "', " & _
      "'" & objCar("make")  & "', " & _
      "'" & objCar("model") & "', " & _
      "'" & objCar("color") & "', " & _
      objCar("year")

   Car_Insert = DB_Insert(strConn, "Cars", fields, values)
end function

' Car_Update(): Updates the given Car object in the database.
'
function Car_Update(strConn, objCar)
   dim values

   values = _
      "make = '" & objCar("make")  & "', " & _
      "model = '" & objCar("model") & "', " & _
      "color = '" & objCar("color") & "', " & _
      "year = " & objCar("year")

   Car_Update = DB_Update(strConn, "Cars", values, _
      "VIN = '" & objCar("VIN") & "'")
end function

' Car_Delete(): Deletes the given Car object from the database.
'
function Car_Delete(strConn, objCar)
   Car_Delete = DB_Delete(strConn, "Cars", _
      "VIN = '" & objCar("VIN") & "'")
end function
%>





Page 5 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.

Sitemap

×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date