如何得到一堆记录的数量

[伊凡yifan]

<%

public Function UserCount(userstr)


ourssql = "select DISTINCT PHONE_FROM from SENDimgOP where partner_account = '"&userstr&"' and phone_from is not null and is_valid = 1 union select DISTINCT PHONE_FROM from SENDringOP where partner_account = '"&userstr&"' and phone_from is not null and is_valid = 1 union select DISTINCT PHONE_FROM from SENDTEXTOP where partner_account = '"&userstr&"' and phone_from is not null and is_valid = 1"


set myUsercount =conn.execute(ourssql)
'UserCount = myUserCount.count
'UserCount = myUserCount.RecordCount
UserCount = myUserCount.Fields("PHONE_FROM").Count
'UserCount = myUsercount("PHONE_FROM")
End Function


%>