版主和各位高手指点一下,
我想实现从数据库读取ItemID段的数据,然后运行Response.Redirect "?action=begin&ItemID=" & Rs("ItemID") & "&ChannelID=" & ChannelID & ""
下面是一段函数,但是运行起来Rs("ItemID")值始终是第一个,不能到达下一个,DO语句在不停的运行ItemID的起始值
那位给指点下

Private Sub abcmain()
        Dim Rs,totalnumber,ItemID,ChannelID
        Dim i

        totalnumber = MyConn.Execute("SELECT COUNT(ItemID) FROM NC_NewsItem WHERE ChannelID=" & ChannelID)(0)
        Set Rs = CreateObject("ADODB.Recordset")
        SQL = "SELECT ItemID,ItemName,SiteUrl,ChannelID,ClassID,SpecialID,StopItem,lastime,RemoteListUrl FROM [NC_NewsItem] WHERE ChannelID=" & ChannelID & " ORDER BY lastime DESC,ItemID DESC"
        Rs.Open SQL, MyConn, 1, 1

            i = 0
            Do While  i < totalnumber
                Response.Redirect "?action=begin&ItemID=" & Rs("ItemID") & "&ChannelID=" & ChannelID & ""
                Rs.MoveNext
                i = i + 1
                If i >= totalnumber Then Exit Do
            Loop
        
        
    End Sub