<% sqltext="select * from depart" Set rs1 = Server.CreateObject("ADODB.RecordSet") DnsText = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\new\db2.mdb" '"UID=;PWD=;DSN=1" Rs1.Open SqlText, DnsText,3,1 Do While Not rs1.Eof k=rs1.fields(i) %> <%=k%> <% rs1.MoveNext Loop %>
