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;第 2 の [スクリプトの試行] によって、カスタマイズが成功したこと、およびスクリプトが正しく実行されることを明確にします。