Route Searching

From Place                                     TO Place

<% dim rsvia dim via() dim Route() dim From() dim fromFinal() dim j set rsvia=server.CreateObject("adodb.recordset") rsvia.Open "select distinct via_place from tbl_timetable",session("Con"),1,3,1 i=0 while rsvia.EOF =false redim preserve via(i) via(i)=rsvia.Fields(0) rsvia.MoveNext i=i+1 wend dim cnt cnt = 0 dim Temp redim Route(0) redim From(0) redim fromFinal(0) for i= 0 to ubound(via) Temp = split(via(i),",") for j=0 to UBound(Temp) Redim preserve Route(cmt+j) Redim preserve From(cnt+1) Route(UBound(Route))=Temp(j) From(UBound(From))=Temp(j) cnt = cnt + 1 'Response.Write(Route(UBound(Route))&" ") next next dim rsFrom set rsFrom=server.CreateObject("adodb.recordset") rsFrom.Open "select distinct from_place from tbl_timetable",session("Con"),1,3,1 dim ct ct = 1 while rsFrom.EOF =false redim preserve From(UBound(From)+ct) From(UBound(From))=rsFrom.Fields(0) rsFrom.MoveNext i=i+1 wend dim MyNumber dim first for i= 0 to UBound(From) From(i) = UCase(From(i)) redim preserve fromFinal(i) fromFinal(i) = "" if Len(From(i)) > 0 then for j = 1 to Len(From(i)) first = Mid(From(i),j,1) if len(first) > 0 then MyNumber = Asc(first) else MyNumber = "00" end if fromFinal(i) = fromFinal(i) & MyNumber next end if ' Response.Write From(i)& " : " & fromFinal(i)& " " next 'dim temp Response.Write " "& "Ubound : " & UBound(fromFinal)&" " 'for i= 0 to UBound(fromFinal) for i= 0 to 5 for j = i to 4 'Response.Write ("i = " & i & " j = " & j & " Previous " & fromFinal(j) & "After " & fromFinal(j+1)) & " " if fromFinal(j) <= fromFinal(j+1) then Response.Write (" = " & i & " j = " & j & " Previous " & fromFinal(j) & "After " & fromFinal(j+1)) & " " temp = fromFinal(j) Response.Write "Temp : " & Temp & " " fromFinal(j) = fromFinal(j+1) Response.Write "Previous : " & fromFinal(j) & " " fromFinal(j+1)= temp Response.Write "After : " & fromFinal(j+1) & " " end if next Response.Write fromFinal(i)& " " next Response.Write " ----------" & " " for i= 0 to 5 Response.Write fromFinal(i)& " " next ' for i= 0 to UBound(From) ' for j=i to UBound(From) ' if asc(From(i)) = ' ' next ' next %> <% dim rsForm set rsFrom=server.CreateObject("adodb.recordset") rsFrom.Open "select distinct(from_place) from tbl_timetable", session("Con") ,1,3,1 while rsFrom.EOF = false if trim(request.Form("cmbFromPlace"))=rsFrom.fields(0) then %> <%=rsFrom.Fields(0)%> <%else%> <%=rsFrom.Fields(0)%> <%end if%> <% rsFrom.MoveNext %> <% wend %>                             <% dim rsToStation set rsToStation=server.CreateObject("adodb.recordset") rsToStation.Open "select distinct(to_place) from TBL_TIMETABLE", session("Con") ,1,3,1 while rsToStation.EOF = false if trim(request.Form("cmbToPlace"))=rsToStation.Fields(0) then %> <%= rsToStation.Fields(0)%> <%else%> <%= rsToStation.Fields(0)%> <%end if%> <% rsToStation.MoveNext %> <% wend %>