Populating country/city select boxes

TribeMan · Jan 25, 2010

I have a mySQL table with a list of countries, and a second table with a list with cities.

To display the countries, I call the following code:

Code:

<%
Function list_CountryOptions(ByVal intSelectedCountry)
	Dim tempRS
	intSelectedCountry = Trim(intSelectedCountry)
	
	If Not util_IsValidID(intSelectedCountry) Then
		intSelectedCountry = util_GetCountry()			
	End If
	
	''refresh application value?
	If Application("Countries_" & util_GetLanguage()) = "" Or Request.QueryString("init") <> "" Then
		Call dalList_GetCountryList( _
				  list_GetLanguageColumnName(), _
				  list_GetLanguageColumnName(), _
				  tempRS)
							  
		list_CountryOptions = list_GetListOptions(tempRS)
				
		Set tempRS = Nothing	
		Application.Lock
			Application("Countries_" & util_GetLanguage()) = list_CountryOptions
		Application.UnLock
	Else
		''get value
		list_CountryOptions = Application("Countries_" & util_GetLanguage())	
	End If
	
	''mark selected ID option
	list_CountryOptions = Replace(list_CountryOptions, _
										"""" & intSelectedCountry & """", _
										"""" & intSelectedCountry & """ SELECTED")

End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%>

And to call the cities, I call the following function:

Code:

Function list_CityOptions(ByVal SelectedID)
	list_CityOptions = list_CityOptionsForCountry(SelectedID, _
									util_GetCountry(), util_GetLanguage())
End Function

I now wish to populate 2 select boxes (javascript) so that when a specific country displays in the 1st box, the cities for taht country will display in the second.

Any help will be appreciated.

TribeMan · Jan 25, 2010

Oops! Left out this part of the City code:

Code:

Function list_CityOptionsForCountry(ByVal SelectedID, ByVal intCountryID, ByVal intLanguageID)
	Dim tempRS
	Dim strOptions, strListItems
	
	strOptions = ""
	''refresh application value?
	Call list_CityListsForCountry(intCountryID, intLanguageID, _
                                  strOptions, strListItems)
		
	''mark selected ID option
	strOptions = Replace(strOptions, _
										("""" & Trim(SelectedID) & """"), _
										("""" & Trim(SelectedID) & """ SELECTED") )
	list_CityOptionsForCountry = strOptions
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

foxbox · Jan 25, 2010

This cries for some Ajax.
Eg like this:

(index.asp)

Code:

<html>

<script language="javascript" type="text/javascript">
  
    function CityList(countryid){
      var url="city.asp?c=" + countryid ;
      if (window.XMLHttpRequest) { 
           http_request = new XMLHttpRequest();
       } else if (window.ActiveXObject) { 
           http_request = new ActiveXObject("Microsoft.XMLHTTP");
       }
       http_request.onreadystatechange = alertContents;
       http_request.open('GET', url, true);
       http_request.send(null);
   } 

    
    function alertContents() {
       if (http_request.readyState == 4) {
           if (http_request.status == 200) {
               document.getElementById('citylist').innerHTML = http_request.responseText;
           } else {
               document.getElementById('citylist').innerHTML = "(Pick a country)";
           }
       }

   }
   

</script>


<form name="testform" method="POST" action="index.asp">

Country:
<select name="fCountry" onchange="CityList(this.value);">
<option value="NL">Nederland</option>
<option value="USA">USA</option>
</select>
<br />
City:
<div id=citylist></div>


<input type=submit value=submit>
</form>

</body>
</html>

(of course you'll pull the countries from the database

city.asp:

Code:

<select>
<%
dim cCountryId
cCountryId = request.QueryString("c")
if cCountryId = "NL" then
 response.Write "<option value=AMS>Amsterdam</option>" &_
                "<option value=RDM>Rotterdam</option>" 
else  ' USA
 response.Write "<option value=NY>New York</option>" & _
                "<option value=LA>Los Angeles</option>" 
end if
%>
</select>

and of course you'll retrieve the cities from a table with a query based on the incoming country_id (this is just a q&d example)

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Populating country/city select boxes

TribeMan

Programmer

TribeMan

Programmer

foxbox

Programmer

Similar threads

Part and Inventory Search

Sponsor