• Topic
  • Discussion
  • UdaWikiWeb.CodeSamplesVsp(Last) -- Owiki? , 2016-08-19 14:59:44 Edit owiki 2016-08-19 14:59:44

    <?vsp 
      declare _name, _email, _title, _area, _pwd, _cpwd, _platform, _lang, _sub, _res varchar; 
      _res := get_keyword('res', params, ''); 
      _sub := get_keyword('sub', params, ''); 
      if (_res <> '') 
        _name := _email := _title := _area := _platform := _lang := ''; 
      else 
      { 
        _name := trim(get_keyword('name', params, '')); 
        _email := trim(get_keyword('email', params, '')); 
        _title := get_keyword('title', params, ''); 
        _area := get_keyword('area', params, ''); 
        _pwd := get_keyword('pwd', params, ''); 
        _cpwd := get_keyword('cpwd', params, ''); 
        _platform := get_keyword('platform', params, ''); 
        _lang := get_keyword('lang', params, ''); 
      } 
    ?><html> 
    
    <head> 
    <style> 
          .message {font-family:Times New Roman; font-size:9pt; color:#800000; text-align:center} 
    </style> 
    <title>The OpenLink Developer</title> 
    </head> 
    
    <body bgcolor="#ffffff"> 
    <form METHOD="POST" action="devregister.vsp"> 
    <table border="0" width="73%" cellpadding="5"> 
      <tr> 
        <td width="100%" colspan="2" height="66"><font face="Verdana" size="2">The 
          OpenLink <b><font color="#808000">Developer's Tools & Demos</font></b> 
          pages is designed for <font color="#000000">Virtuoso</font><font color="#808000"><b> 
          solutions developers</b></font>. Join today to receive personalized 
          instruction and other resources which will enable you to accomplish all of 
          your Virtuoso development goals.</font></td> 
      </tr> 
      <tr> 
        <td width="34%"><font face="Verdana" size="2" color="#31639C">Name: 
          </font></td> 
        <td width="66%"><input type="text" name="name" size="20" value="<?=_name?>"></td> 
      </tr> 
      <tr> 
        <td width="34%"><font face="Verdana" size="2" color="#31639C">Email:</font></td> 
        <td width="66%"><input type="text" name="email" size="20" value="<?=_email?>"></td> 
      </tr> 
      <tr> 
        <td width="34%"><font face="Verdana" size="2" color="#31639C">Jobtitle:</font></td> 
        <td width="66%"><select size="1" name="title"><?vsp for(select JobTitle from opie.opie.JobTitle where JobTitle <> 'Other' order by JobTitle) do { ?> 
      <OPTION <?=select_if(_title, JobTitle)?>><?=JobTitle?></OPTION> <?vsp } ?> 
      <OPTION <?=select_if(_title, 'Other')?>>Other</OPTION> 
          </select></td> 
      </tr> 
      <tr> 
        <td width="34%"><font face="Verdana" size="2" color="#31639C">Development 
          Arena:</font></td> 
        <td width="66%"><select size="1" name="area"><?vsp for(select DevArena from opie.opie.DevArena order by DevArena) do { ?> 
      <OPTION <?=select_if(_area, DevArena)?>><?=DevArena?></OPTION> <?vsp } ?> 
          </select></td> 
      </tr> 
      <tr> 
        <td width="34%"><font face="Verdana" size="2" color="#31639C">Platform:</font></td> 
        <td width="66%"><select size="1" name="platform"><?vsp for(select Platform from opie.opie.Platforms order by Platform) do { ?> 
      <OPTION <?=select_if(_platform, Platform)?>><?=Platform?></OPTION> <?vsp } ?> 
          </select></td> 
      </tr> 
      <tr> 
        <td width="34%"><font face="Verdana" size="2" color="#31639C">Languages:</font></td> 
        <td width="66%"><select size="1" name="lang"><?vsp for(select ScriptLang from opie.opie.ScriptLang where "ScriptLang" <> 'Other' order by ScriptLang) do { ?> 
      <OPTION <?=select_if(_lang, ScriptLang)?>><?=ScriptLang?></OPTION> <?vsp } ?> 
              <OPTION <?=select_if(_lang, 'Other')?>>Other</OPTION> 
          </select></td> 
      </tr> 
      <tr> 
        <td width="34%"><font face="Verdana" size="2" color="#31639C">Password:</font></td> 
        <td width="66%"><input type="password" name="pwd" size="20"></td> 
      </tr> 
      <tr> 
        <td width="34%"><font face="Verdana" size="2" color="#31639C">Confirm 
          Password:</font></td> 
        <td width="66%"><input type="password" name="cpwd" size="20"></td> 
      </tr> 
      <tr> 
        <td width="34%"></td> 
        <td width="66%"><input type="submit" value="Submit" name="sub"><input type="reset" value="Reset" name="res"></td> 
      </tr> 
    </table> 
    </form> 
    <?vsp 
      if (_sub <> '') 
      { 
    ?> 
        <hr> 
    <?vsp 
        declare _message varchar; 
        _message := '<table><tr><td class="message">%s</td></tr></table>'; 
        if (_name = '' or _email = '' or _title = '' or _area = '' or _pwd = '' or _cpwd = '' or _platform = '' or _lang = '') 
        { 
          http(sprintf(_message, 'You have not entered all the necessary fields.')); 
        } 
        else if(_pwd <> _cpwd) 
        { 
          http(sprintf(_message, 'Passwords do not match!')); 
        } 
        else if (exists(select 1 from opie.opie.DevReg where Email = _email)) 
        { 
          http(sprintf(_message, 'This E-Mail has already been registered.')); 
        } 
        else 
        { 
          insert into opie.opie.DevReg (Name, Email, JobTitle, DevArea, Platform, ScriptLang, Passwd) 
                  values (_name, _email, _title, _area, _platform, _lang, _pwd); 
          http(sprintf(_message, 'You have been registered.<br />In a few moments you will be entering the Developer\'s Page.')); 
          declare _uid integer; 
          _uid := (select DID from opie.opie.DevReg where Email = _email); 
    ?> 
        <SCRIPT language="javascript"> 
        function jumpTo() 
        { 
          document.location = 'developerpage.vsp?uid=' + <?=_uid?>; 
        } 
        window.setTimeout('jumpTo()', 9000); 
        </SCRIPT> 
    <?vsp 
        } 
      } 
    ?> 
    </body> 
    </html> 
    

    Referenced by...