dclparam
sSessionInfo1 : string;
dcluser
user
VUser
transactions
TInit : begin;
TMain : 1;
var
sFormSid1 : string;
// ...
WebParseDataBoundEx(sSessionInfo1, STRING_COMPLETE,
"name=\"", 3, "\"", WEB_FLAG_IGNORE_WHITE_SPACE
| WEB_FLAG_CASE_SENSITIVE, 1);
WebPageLink("Check out", "ShopIt - Check Out");// Link 3
Print("sSessionInfo1: " + sSessionInfo1);
sFormSid1 := sSessionInfo1;
WebPageUrl("http://u2/ShopItV60/kindofpayment.asp",
"Unnamed page", SHOPITV60_KINDOFPAYMENT_ASP003);
// ...
dclform
SHOPITV60_KINDOFPAYMENT_ASP003:
"choice" := "CreditCard",
"price" := "15.9",
// "sid" := "348363999";
"sid" := sFormSid1;
A second Try Script run reveals that the customization was successful and that the script now runs correctly.