ASP Source Code
ASP File: jscript/general/tropics/tropics.asp
ASP Script
Comments
HTML and Text
<%@language=jscript%>
<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">
<%
function GetName(value)
{
var getname1
switch(value){
case "aruba":
getname1 = "Aruba"
break;
case "ashmore":
getname1 = "Ashmore Island"
break;
case "australia":
getname1 = "Australia"
break;
case "bahamas":
getname1 = "Bahamas"
break;
case "baker":
getname1 = "Baker Islands"
break;
case "barbados":
getname1 = "Barbados"
break;
case "barbuda":
getname1 = "Barbuda"
break;
case "bermuda":
getname1 = "Bermuda"
break;
case "britishvirgin":
getname1 = "British Virgin Islands"
break;
case "cook":
getname1 = "Cook Islands"
break;
case "coralsea" :
getname1 = "Coral Sea Islands"
break;
case "fiji":
getname1 = "Fiji"
break;
case "jamaica" :
getname1 = "Jamaica"
break;
case "macau":
getname1 = "Macau"
break;
case "solomon":
getname1 = "Solomon Islands"
break;
case "virgin":
getname1 = "U.S. Virgin Islands"
break;
}
return getname1;
}
if (Request.Form("islands").Count == 0){
%>
<p>You did not provide an island name.</p>
<% }else {
var islands
islands= Request.Form("islands")
var islandflag
islandflag = islands + "flag.gif"
var islandmap = islands +"map.gif"
var islandinfo = Server.MapPath(islands + "info.txt")
var IslandName = GetName(islands)
} %>
<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 = ""
var obj
obj = Server.CreateObject("attrib")
i = obj.initialize (islandinfo)
%>
<p>BASIC DATA: <br>
<% = obj.getBasicData()%>
<% if (Request.Form("GEOGRAPHY") == "GEOGRAPHY"){ %>
<p>GEOGRAPHIC DATA: <br>
<%= obj.getGeographyData () %>
<%}
if (Request.Form("LAND") == "LAND"){ %>
<p>LAND DATA: <br>
<%= obj.getLandData () %>
<% }
if (Request.Form("ENVIRONMENT") == "ENVIRONMENT"){ %>
<p>ENVIRONMENTAL DATA: <br>
<%= obj.getEnvironmentData () %>
<%}
%>
</p>
<br>
</p>
</font>
</body>
</html>