proc make_trg {} {

	global base UbyUID Tables Tnames trgf

	set trids ""

	set sqlcmd "select distinct id from dbo.sysobjects where type = 'TR'"
	set sqt sysobjects
	doSQL 1

	while {1} {
		set oi [sybNext 1]
		if {$oi == ""} {break}
		lappend trids $oi
	}

	set lown dbo

	if {$trids == ""} {
		puts stderr "OUCH no triggers at all in $base"
		return
	}

	foreach t $trids {

	set sqlcmd "select o.id, c.colid, name, user_name(o.uid), \
	isnull(text, ' ') from dbo.syscomments c, dbo.sysobjects o where \
	o.id = $t and o.id = c.id order by c.colid"

	set sqt "sysobject syscomments"
	doSQL 1

	set txt ""

	while {1} {
		set line [sybNext 1]
		if {$line == ""} {break}

		lassign $line tid cid tname own ttext
		if {$cid == 1} {
		puts $trgf "drop trigger $tname\ngo\n"
		}
		append txt "$ttext" 
	}

	if {$own != $lown} {
		puts $trgf "setuser $own"
		set lown $own
	}
	puts $trgf "[string trimright $txt]"

	puts $trgf "\ngo\n"

	}

	return trg

}
	
