ASP database operation code

<%

DB = "/book. mdb"
Set conn = server. Createobject ("ADODB. Connection ")
Connstr = "provider = Microsoft. Jet. oledb.4.0; Data Source =" & server. mappath (db)
Conn. Open connstr

Set rs = server. Createobject ("ADODB. recordset ")
SQL = "select * From ebook"
Rs. Open SQL, Conn, 1, 1
If not Rs. EOF then
%>

<% Do while not Rs. EOF %>
Name: <% = RS ("name") %> time: <% = RS ("time") %> <br>
<%
Rs. movenext
Loop
Rs. Close
Set rs = nothing
End if
%>

Set RSW = server. Createobject ("ADODB. recordset ")
Rs. Open "select * From ebook", Conn, 1, 3
Rs. addnew
RS ("title") = uname
RS ("QQ") = QQ
Rs. Update
Rs. Close
Set rs = nothing