类型不匹配
<!--#include   file= "conn.asp "-->
<%
Function   SendSms(DstMobile,SmsMsg)  
  sName=rs( "sName ")     '用户账号
  sPwd=rs( "sPwd ")     '用户密码
 
 
  Set   obj   =   Server.CreateObject( "urlsend.sms ")  
    temp=obj.PostInfo( "/send/ssend.asp?name= "&sName& "&pwd= "&sPwd& "&dst= "&DstMobile& "&msg= "&SmsMsg& " ", "a ")
    response.write   temp
    set   obj=nothing
    if   left(temp,4) <> "id=0 "   then  
        '发送短信成功,可进一步做成功后续处理
'可对SrcMobile号码做进一步处理，如扣除用户预存费用等.
        SendSms=true
        exit   Function
    else
        SendSms=false
exit   Function
    end   if
End   Function

DstMobile=   rs( "D_Dst ")     ---> > > 24行
SmsMsg=   rs( "D_Msg ")
if   SendSms(DstMobile,   SmsMsg)   then
      scount=scount+1    
      response.write   "发送成功! "
%>
<%=DstMobile%> <BR>

<%=SmsMsg%> <BR>

<%else

response.write   "发送不成功! "


end   if

%>


错误类型：
Microsoft   VBScript   运行时错误   (0x800A000D)
类型不匹配:   'rs '
/qq/ssms.asp,   第   24   行


------解决方案--------------------
你的rs哪儿来的//??