大伙帮忙看看这段代码哪里有问题? 急死啦~` 找不出问题症结~~`
<%
Dim   WebUrl,ToUrl,sUrl,WebID,TmpUrl,Url
intRandomNumber   =   Int   (1000*Rnd)+1
Set   Rs   =   Server.CreateObject( "ADODB.RecordSet ")
        Rs.Open   "Select   ID,UserUrl   From   Member   Where   UserPower> 100   And   WebUrlON=1   And   UserIspass=1 ",Conn,1,1
        If   Not   Rs.Eof   Then
        WebUrl   =   DisRndRecord(1,rs.recordCount)
TmpUrl   =   Split(WebUrl, "? ")
        sUrl   =   TmpUrl(0)
WebID   =   TmpUrl(1)
        Else
Url   =     "http://www.sprice.com.cn/ "
        End   If
        Rs.Close
Conn.Execute( "Update   Member   Set   UserPower=UserPower-1,WebTotal=WebTotal+1   Where   ID= "   &   WebID   &   " ")
Conn.Execute( "Update   Member   Set   UserPower=UserPower+1,WebClick=WebClick+1   Where   ID= "   &   CLng(Request.Cookies( "CookiesPATH ")( "UserID "))   &   " ")
Set   Rs   =   Nothing
Conn.Close
Set   Conn   =   Nothing
      If   InStr(sUrl, " <br> ")> 0   Then
      ToUrl   =   Split(sUrl, " <br> ")
      i   =   Ubound(ToUrl)
      Url   =   ToUrl(GetRnd(i))
      Else   If   Len(sUrl)> 8   Then
      Url   =     sUrl
      Else
      Url   =   "http://www.sprice.com.cn/ "
      End   If
      End   If
%>

大伙帮忙看看代码哪里有问题     这个代码作用是:每个用户注册一个网址,程序从数据库里读取网址数据,页面每隔一段时间就随机跳到其中一个网址,可是为什么我调试的时候,页面总是跳到     http://www.sprice.com.cn/   这里啊?     我看不出有什么问题啊
谢谢大伙`~~~

------解决方案--------------------
请把报错的那行指出来
------解决方案--------------------
你打出sUrl他看一下是个什么值，有可能你的数据库里没有取出来数据
------解决方案--------------------
1 在数据库中执行下面语句看看有没有记录
Select ID,UserUrl From Member Where UserPower> 100 And WebUrlON=1 And UserIspass=1

2、如果1有记录 WebUrl = DisRndRecord(1,rs.recordCount) 这个是啥意思？
DisRndRecord 是一个函数？看看这个是不是有问题　

３如果只是想 “就随机跳到其中一个网址 ”
Select top 1
ID,UserUrl From Member Where UserPower> 100 And WebUrlON=1 And UserIspass=1
order by newid() ---随机排序


------解决方案--------------------
逐步用
response.write
response.end
调试。