20 Arpominen

Arpomiset eli satunnaijutut ovat usein oiva apukeino monen eri ongelman ratkaisuun. Tässä esimerkki kuinka ASP-tekniikalla saadaan arvottua erilaisia lauseita.

<%
  Dim RandomNumber

  Randomize
  RandomNumber = Int(Rnd * 6)   

  Select Case RandomNumber
     Case 1
       Response.Write "Maito on hyvää"
     Case 2
       Response.Write "Maito vahvistaa luustoa"
     Case 3
       Response.Write "Maito on laiffii"
     Case 4,5,6
       Response.Write "En oo ikinä juonu maitoa, enkä juo"
  End Select
%> 

Tehtävä
Rakenna puppugeneraattori. Tässä alla mahdollisia lauseenosia.

<fun1>
<ix:arponautor>
<item>Jo edellisellä kaudella ilmennyt kehitys, ja</item>
<item>Arkipäivän kokemukset osoittavat, että</item>
<item>Laaja ja monipuolinen kokemus osoittavat, että</item>
<item>Keskeiset periaatteet samoin kuin</item>
<item>Organisaation tuntema huoli, mutta ennen kaikkea</item>
</ix:arponautor>
</fun1>

<fun2>
<ix:arponautor>
<item>ohjelman vaatimuksen toteuttaminen </item>
<item>henkilöstön osaksi tulevien opintojen vaikutustaso ja kohdentaminen </item>
<item>toimintamme määrän ja alan jatkuva kasvu </item>
<item>nykyinen organisaatiorakenne </item>
</ix:arponautor>
</fun2>

<fun3>
<ix:arponautor>
<item>velvoittaa meitä analysoimaan </item>
<item>näyttelee keskeistä osaa pohdittaessa </item>
<item>vaatii täsmällisyyttä ja päättäväisyyttä sekä </item>
<item>edellyttää huolellista valmistautumista ja </item>
</ix:arponautor>
</fun3>

<fun4>
<ix:arponautor>
<item>nykyisiä taloudellisia ja hallinnollisia oloja. </item>
<item>ennusteita tulevaisuuden kehityssuunnista. </item>
<item>osallistumistason kohottamista. </item>
</ix:arponautor>
</fun4>