拉下线奖励积分的asp程序怎么写？

<%
Set rsb=Server.CreateObject("ADODB.recordset")
mysq="select * from imlm_user where yesno and sx1='"&imlmusername&"'"
rsb.open mysq,conn,1,1
response.write rsb.recordcount&"  人"
update imlm_user set ajine='rsb.recordcount*300+ajine' where yesno and username='imlmusername'
rsb.close
set rsb=nothing%>

‘imlm_user是表名，sx1是上线字段，ajine是积分字段！

错误信息如下：

Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/accounts.asp，行 79 update imlm_user set ajine='rsb.recordcount*300+ajine' where yesno and username='imlmusername'

答案： response.write cstr(rsb.recordcount)&"  人"
mysq="update imlm_user set ajine='"&cstr(rsb.recordcount*300+ajine)&"' where yesno and username='"&imlmusername&"'"
rsb.open mysq,conn,1,3

rsb.close
QQ 1493784541 
你加我。我远程帮你看
高手救命啊. 网站被黑了,请人编程!316183793
http://bbs.hackfans.com.cn/?fromuser=Anqir 饭客网络 集齐了网络安全、编程语言、网站建设、PS美工等尽在 饭客网络！！！

上一个：学计算机语言要不要学很多
下一个：Xampp可以调试asp程序吗？ - 技术问答