<!--#include file="Header.asp"-->
<%
Dim Rs, Sql, iData, I
	If pId = 0 Then
		Sql = "select pId,pTitle,pinyin from " & TablePre & "province order by pinyin;"
	Else
		Sql = "select c1.pId,c1.sTitle,c1.pinyin,c2.pTitle from " & TablePre & "station as c1 inner join " & TablePre & "province as c2 on c1.pId = c2.pId where c1.pId=" & pId & " order by c1.pinyin;"
	End If
	Set Rs = Db.ExeCute(Sql)
	If Not(Rs.Eof And Rs.Bof) Then iData = Rs.getRows(-1)
	Rs.Close:Set Rs = Nothing
If IsArray(iData) Then
%><br />
<div id="maintable">
	<div id="NavTabTop">列表式站名查询(按拼音排列)
	  <% If Ubound(iData) = 3 Then %>　[&nbsp;<%= iData(3,1) %>&nbsp;]<% End If %></div>
	<div id="NavTabMid" class="fl" style="text-align: left;"><ol>
	<%
	For I = 0 To Ubound(iData,2)
		If pId = 0 Then
			If I = 0 Then Write "<li><a href=""./"">&nbsp;</a></li>"
			Write "<li><a href=""?pId=" & iData(0,I) & """>" & iData(1,I) & "</a></li>"
		Else
			If I = 0 Then Write "<li><a href=""./"">返回</a></li>"
			Write "<li><a href=""trainlist.asp?pId=" & iData(0,I) & "&tId=3&sTitle=" & iData(1,I) & """>" & iData(1,I) & "</a></li>"
		End If
	Next
	%>
	</ol></div>
	<div id="NavTabBottom"></div>
</div>
<% End If %>
<!--#include file="Footer.asp"-->
