<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("DSN_International")
Method = GetVariable("Method")
Continent = GetVariable("Continent")
Country = GetVariable("Country")
Select Case Method
Case "Contact Last Name"
Set RS = Conn.Execute("EXEC spGetAllLastNames")
Response.Write("
")
Case "Geographic Location"
Select Case Continent
Case "Antarctica"
Response.Write("There are no projects listed for Antarctica. Sometimes it can take a few days for a project to be listed here so using the ""search"" feature may produce better results.")
Case "Australia"
Response.Write("There are no projects listed for Australia. Sometimes it can take a few days for a project to be listed here so using the ""search"" feature may produce better results.")
Case "South America"
Response.Write("There are no projects listed for South America. Sometimes it can take a few days for a project to be listed here so using the ""search"" feature may produce better results.")
Case "Africa"
Response.Write("
")
End Select
Case Else
Response.Write("You can browse this section by Contact Last Name, Institution, Keyword, or Geographic Location. Click on the item you would like to browse by.")
Response.Write("
")
End Select
Private Function GetVariable(Variable)
If IsEmpty(Request.Form(Variable)) Then
If IsEmpty(Request.QueryString(Variable)) Then
GetVariable = Null
Else
GetVariable = Trim(Request.QueryString(Variable))
End If
Else
GetVariable = Trim(Request.Form(Variable))
End If
End Function
%>
