Support-Airport code finder

Search the three letter airport codes or simply by name or the country...

Airportcode: " onblur="this.style.border=(ctlCheck(this.value,/^.*$/,this,'no')?'2px inset white':'2px solid red');" type="text" />
Airportname: " onblur="this.style.border=(ctlCheck(this.value,/^.*$/,this,'no')?'2px inset white':'2px solid red');" type="text" /> Country:  
<% whereclause="" if Request("countrycode")<>"" then whereclause=whereclause & " and countrycode='"& Request("countrycode") & "'" end if if Request("airportcode")<>"" then whereclause=whereclause & " and airportcode='"& Request("airportcode") & "'" end if if Request("airportname")<>"" then whereclause=whereclause & " and airportname like '%"& Request("airportname") & "%'" end if if whereclause<>"" then Set portRS = Server.CreateObject("ADODB.Recordset") 'portRS.ActiveConnection = objConn portRS.CursorType = 3 'Static cursor. portRS.LockType = 1 'Pessimistic Lock. sql="Select * from [Sheet1$] where 1=1 " & whereclause & " order by Airportcode" portRS.open sql,objConn 'portRS.MoveFirst While Not portRS.EOF and Not portRS.BOF %> <% portRS.MoveNext Wend portRS.Close Set portRS = Nothing end if objConn.Close Set objConn = Nothing %>
Airportcode Airportname Country code Country
<%=portRS("Airportcode")%> <%=portRS("Airportname")%> <%=portRS("Countrycode")%> <%=portRS("Country")%>