<%
set rs=Server.CreateObject("adodb.recordset")
rs.Open "select * from book_sub order by name",con,3,3
rs.MoveFirst
do until rs.EOF
Response.Write("- ")
Response.Write(rs.Fields("name"))
Response.Write("
")
rs.MoveNext
loop
rs.Close
set rs=nothing
con.close
set con=nothing
%>
|
