% dim Cn,Rs set Cn=Server.CreateObject("ADODB.Connection") Cn.Open "Tours-26" set Rs=Server.CreateObject("ADODB.Recordset") Rs.Open "City",Cn %>
Select city to view its transport list