ASP Source Code
ASP File: vbscript/general/tropics/tropics.asp
ASP Script
Comments
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>