CodeSamplesVsp

<docbook><section><title>CodeSamplesVsp</title><programlisting>&lt;?vsp 
  declare _name, _email, _title, _area, _pwd, _cpwd, _platform, _lang, _sub, _res varchar; 
  _res := get_keyword(&#39;res&#39;, params, &#39;&#39;); 
  _sub := get_keyword(&#39;sub&#39;, params, &#39;&#39;); 
  if (_res &lt;&gt; &#39;&#39;) 
    _name := _email := _title := _area := _platform := _lang := &#39;&#39;; 
  else 
  { 
    _name := trim(get_keyword(&#39;name&#39;, params, &#39;&#39;)); 
    _email := trim(get_keyword(&#39;email&#39;, params, &#39;&#39;)); 
    _title := get_keyword(&#39;title&#39;, params, &#39;&#39;); 
    _area := get_keyword(&#39;area&#39;, params, &#39;&#39;); 
    _pwd := get_keyword(&#39;pwd&#39;, params, &#39;&#39;); 
    _cpwd := get_keyword(&#39;cpwd&#39;, params, &#39;&#39;); 
    _platform := get_keyword(&#39;platform&#39;, params, &#39;&#39;); 
    _lang := get_keyword(&#39;lang&#39;, params, &#39;&#39;); 
  } 
?&gt;&lt;html&gt; 

&lt;head&gt; 
&lt;style&gt; 
      .message {font-family:Times New Roman; font-size:9pt; color:#800000; text-align:center} 
&lt;/style&gt; 
&lt;title&gt;The OpenLink Developer&lt;/title&gt; 
&lt;/head&gt; 

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