<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>
|