代码问题！！给分！！

Question

TRY:set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.ConnectionTimeout = 300
cn.Open Session("DZCRM_connection_string") strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1 do while not (rst.EOF and rst.bof) RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
rst.Close

Answer 1

set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.ConnectionTimeout = 300
cn.Open Session("DZCRM_connection_string") strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1
do while not rst.EOF and not rst.BOF
  RoadFeeName=rst("CustomerName")
  RoadAddress=rst("Address")
         Loop
rst.Close

Answer 2

set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.NonnectionTimeout = 300
cn.Open Session("DZCRM_connection_string") strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1
while not rst.EOF
RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
         rst.next
rst.Close