VBScript Sample:
vbscript/general/tropics/tropics.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<html>
<head>
<title>Island Fact Book: RESULTS</title>
</head>

<body BGCOLOR="#FFFFFF">

<h3 align="center"><font SIZE="+2" COLOR="#3366FF" FACE="Comic Sans MS"><b><i>Hacker Joe's</i>

Tropical Island Fact Book</b></font></h3>

<h3 align="center"><img SRC="dolphin.gif" BORDER="0" HEIGHT="60" WIDTH="72"></h3>

<font COLOR="#3333FF" face="Verdana, Arial, Helvetica">

<%

If Request.Form("islands").Count = 0 Then

%>


<p>You did not provide an island name.</p>

<%  Else

islands= Request.Form("islands")

islandflag = islands & "flag.gif"

islandmap = islands & "map.gif"

islandinfo = islands & "info.txt"



Function GetName(value)

      If value = "aruba" Then

           GetName = "Aruba"

      ElseIf value = "ashmore" Then

           GetName = "Ashmore Island"

      ElseIf value = "australia" Then

           GetName = "Australia"

      ElseIf value = "bahamas" Then

           GetName = "Bahamas"

  ElseIf value = "baker" Then

           GetName = "Baker Islands"

      ElseIf value = "barbados" Then

           GetName = "Barbados"

      ElseIf value = "barbuda" Then

           GetName = "Barbuda"

      ElseIf value = "bermuda" Then

           GetName = "Bermuda"

      ElseIf value = "britishvirgin" Then

           GetName = "British Virgin Islands"

      ElseIf value = "cook" Then

           GetName = "Cook Islands"

      ElseIf value = "coralsea" Then

           GetName = "Coral Sea Islands"

      ElseIf value = "fiji" Then

           GetName = "Fiji"

      ElseIf value = "jamaica" Then

           GetName = "Jamaica"

      ElseIf value = "macau" Then

           GetName = "Macau"

      ElseIf value = "solomon" Then

           GetName = "Solomon Islands"

      ElseIf value = "virgin" Then

           GetName = "U.S. Virgin Islands"

         End If

End Function



IslandName = GetName(islands)

End If %>


<hr>

<p> <img SRC="<%=islandflag%>" BORDER="0" HEIGHT="36" WIDTH="54" ALIGN="TEXTTOP"></font><font COLOR="#3333FF" SIZE="+2" face="Verdana, Arial, Helvetica"> <%=IslandName%></font><font COLOR="#3333FF" face="Verdana, Arial, Helvetica"> <br>

<br>

<img SRC="<%=islandmap%>" BORDER="0" HEIGHT="377" WIDTH="351" ALIGN="LEFT">



<%

GeographyData = ""

LandData = ""

EnvironmentData = ""



dim obj

set obj = server.CreateObject("attrib")

i = obj.initialize (islandinfo)

%>




<p>BASIC DATA: <br> <%  = obj.getBasicData()%>



<%     If Request.Form("GEOGRAPHY") = "GEOGRAPHY" THEN %>

        <p>GEOGRAPHIC DATA: <br> <%= obj.getGeographyData () %>

<%   End If



     If Request.Form("LAND") = "LAND" THEN %>


         <p>LAND DATA: <br><%= obj.getLandData () %>

<%   End If



     If Request.Form("ENVIRONMENT") = "ENVIRONMENT" THEN %>


         <p>ENVIRONMENTAL DATA: <br> <%= obj.getEnvironmentData ()

     End If

  %>
  </p>



<br>

</p>

</font>

</body>

</html>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.