>***Example 1: The Delete column is missing the question mark after /wc.dll >#DEFINE TAG1 "<A HREF='/expert/wc.dll?" >#DEFINE TAG2 "</A>" > >CREATE CURSOR customer (cid I, name C(10), address C(10)) >INSERT INTO customer (cid, name, address) ; >VALUES (1, [Tom], [123 Main]) >INSERT INTO customer (cid, name, address) ; >VALUES (2, [Bob], [123 South]) > >SELECT customer.name AS person, ; >customer.address AS address, ; >TAG1 + ; >"myapp~myproc~EDITRECORD~" + ALLTRIM(STR(customer.cid)) + ['>] + ; >"Edit " + ; >TAG2 AS Edit, ; >TAG1 + ; >"myapp~myproc~DELETERECORD~" + ALLTRIM(STR(customer.cid)) + ['>] + ; >"Delete " + ; >TAG2 AS Delete ; >FROM customer ; >INTO CURSOR c_customer NOFILTER >************** > > >***Example 2: This works but only if I use a var instead of the constant. >#DEFINE TAG1 "<A HREF='/expert/wc.dll?" >#DEFINE TAG2 "</A>" > >lc_tag1 = "<A HREF='/expert/wc.dll?" &&Works with var. > >CREATE CURSOR customer (cid I, name C(10), address C(10)) >INSERT INTO customer (cid, name, address) ; >VALUES (1, [Tom], [123 Main]) >INSERT INTO customer (cid, name, address) ; >VALUES (2, [Bob], [123 South]) > >SELECT customer.name AS person, ; >customer.address AS address, ; >TAG1 + ; >"myapp~myproc~EDITRECORD~" + ALLTRIM(STR(customer.cid)) + ['>] + ; >"Edit " + ; >TAG2 AS Edit, ; >lc_tag1 + ; >"myapp~myproc~DELETERECORD~" + ALLTRIM(STR(customer.cid)) + ['>] + ; >"Delete " + ; >TAG2 AS Delete ; >FROM customer ; >INTO CURSOR c_customer NOFILTER >************* >>