Sub Application_OnStart()
	dim db3Schema
	set db3Schema=server.CreateObject("db3NF.schemaload")

	'all the error messages here are default. They are put to show format. 
	 
	db3Schema.ValueMustBeNull = "Value must be null"
	db3Schema.ValueTooBig = "Value must not exceed %1"
	db3Schema.ValueTooSmall = "Value must be at least %1"
	db3Schema.ValueNotaNumber = "The entry is not a valid number"
	db3Schema.DateIsTooLate = "The latest allowed date is %1"
	db3Schema.DateIsTooEarly = "The earliest allowed date is %1"
	db3Schema.ValueNotaValidDate = "The entry cannot be recognized as a valid date. Please use MM/DD/YYYY format"
	db3Schema.StringTooShort = "String must have at least %1 characters"
	db3Schema.StringMustBeBetween = "String must be between %1 and %2 in length"
	db3Schema.StringTooLong = "String length must not exceed %1 characters"
	db3Schema.ValueDoesntMatchAnyOption = "Property does not match any allowed option"
	db3Schema.PropertyRequired = "Required field"
	db3Schema.ValueNotUnique = "Unfortunately that entry already exists in the database, please choose another."
	
	'create default instance	
	db3Schema.AddDBInstance "", _
				"driver={SQL Server};server=someserver;database=Schema;", _
				"driver={SQL Server};server=someserver;database=Data"
	
	'------if more instances of DB3NF are needed:-----
	'modify error messages if needed
	db3Schema.PropertyRequired = "This field is required"
	
	'create new instance
	db3Schema.AddDBInstance "name_of_another_instance", _
				"driver={SQL Server};server=someserver;database=Schema2;", _
				"driver={SQL Server};server=someserver;database=Data2"

	set db3Schema=Nothing
End Sub