<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open("Provider=MSDASQL.1;Password=GANZHOU;Persist Security Info=True;User ID=GANZHOU;Data Source=GANZHOU_ODBC")
set rs = Conn.Execute("select * from ZYJKXD where XLMC='赣文一线'")
if not rs.eof then
do while not rs.eof
Response.Write(rs("DJ"))&"<BR>"
rs.movenext
loop
end if