<% Class POBO_boards Public Properties Private p_id Private p_name Private p_slug Private p_import_from_printstream Private p_printstream_job_name Private p_created_at Private p_created_by Private p_updated_at Private p_updated_by Private Sub Class_Initialize() p_id = 0 p_name = "" p_slug = "" p_import_from_printstream = False p_printstream_job_name = "" p_created_at = #1/1/1970# p_created_by = "" p_updated_at = #1/1/1970# p_updated_by = "" Properties = Array("id","name","slug","import_from_printstream","printstream_job_name","created_at","created_by","updated_at","updated_by") End Sub Public Property Get PrimaryKey() : PrimaryKey = "id" : End Property Public Property Get TableName() : TableName = "boards" : End Property Public Property Get id() : id = p_id : End Property Public Property Let id(v) : p_id = CDbl(v) : End Property Public Property Get name() : name = p_name : End Property Public Property Let name(v) : p_name = CStr(v) : End Property Public Property Get slug() : slug = p_slug : End Property Public Property Let slug(v) : p_slug = CStr(v) : End Property Public Property Get import_from_printstream() : import_from_printstream = p_import_from_printstream : End Property Public Property Let import_from_printstream(v) : p_import_from_printstream = CBool(v) : End Property Public Property Get printstream_job_name() : printstream_job_name = p_printstream_job_name : End Property Public Property Let printstream_job_name(v) : p_printstream_job_name = CStr(v) : End Property Public Property Get created_at() : created_at = p_created_at : End Property Public Property Let created_at(v) : p_created_at = CDate(v) : End Property Public Property Get created_by() : created_by = p_created_by : End Property Public Property Let created_by(v) : p_created_by = CStr(v) : End Property Public Property Get updated_at() : updated_at = p_updated_at : End Property Public Property Let updated_at(v) : p_updated_at = CDate(v) : End Property Public Property Get updated_by() : updated_by = p_updated_by : End Property Public Property Let updated_by(v) : p_updated_by = CStr(v) : End Property End Class %>