<%   
     Set conn = Server.CreateObject("ADODB.Connection")
     DBPath = Server.MapPath("AD2.mdb")
     conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
   
  Set rs = Server.CreateObject("ADODB.Recordset")
   
  SortSql = "SELECT * FROM Tc where account=" & "'Teacher'" & " order by 'account' desc"
     rs.Open SortSql, conn, 1,1


//rs("欄位名稱")

do while not rs.eof
'或用 if not rs.eof then ... end if
response.write(rs("account")
//rs("欄位名稱")
rs.movenext
loop

%>