A database "Country"
A Table "Country" two Fileds, "Country" with Countries Names and "Cities" With three or four cities separated by comma.

I have this code:

<table>
<%
Response.Write "<tr >"
Response.Write "<td align=center>" & "Number" & "</td>"
Response.Write "<td align=center>" & "Country" & "</td>"
Response.Write "<td align=center>" & "Cities" & "</td>"
Response.Write "</tr>"

SQL = "SELECT * FROM Country"
SET RS = CreateObject("ADODB.RECORDSET")
RS.Open SQL, "Country"
i = 1

WHILE NOT RS.EOF
Country = RS("Country")
Cities = RS("Cities")

Response.Write "<tr >"
Response.Write "<td>" & i & "</td>"
Response.Write "<td>" & Country & "</td>"
Response.Write "<td>" & Cities & "</td>"
Response.Write "</tr>"
End If

RS.MOVENEXT
i=i+1
WEND
%>
</table>

This displays all the Countries and all the cities, Now I want to write codes to display All the cities in alphabetical order, I am confused becuase Cities are listed in one filed and they have comma in between.

Database looks like this:

Country: USA
Cities: New York, Los Angeles, Chicago, Washington DC, Philadelphia.

Country: Canada
Cities: Toronto, Montreal, Ottawa, Vancouver

Country: Australia
Cities: Sydney, Melbourne, Brisbane, Canberra

and so on...

Thanks

i suggest creating an array for the cities. Populate the array with the country's cities. Resort the array alphabeticallly. write the country and the array. rinse and repeat.

Even before sorting it I am trying to display a list, tell me what I am doing wrong.
Thanks
eg.
Cities: New York, Los Angeles, Chicago, Washington DC, Philadelphia.

pos = InStr(Cities, ",") ' defining first comma position, pos will return 8 in our example.
While pos <> 0
Cities = Mid (Cities, 1, pos-1) ' moving city name from position 1 to 7, means Value New York.
Response.Write(Cities &"<br>") ' Displaying first City name, which in our example is New York.
Cities = Mid (Cities, pos+1, Len(Cities) - pos) ' Moving 2nd city name from current position which is 8+1 to 59-8.
pos = InStr(Cities, ",") ' defining second position.
Wend