关于sub的语法错误

[jordan4]

我写了一个sub，用call调用，可是运行时报错

call sub getsubk(1)

......

sub getsubk(x)
......
end sub

提示语法错误：在"sub getsubk(x)"这一行，是什么语法错误，我一直想不出来，请各位指点，谢谢！

[lolo2006]

call getsubk(rs2("k_id"))

sub getsubk(x) "这一行报错"
set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from kemu where k_parenet='"&x&"'"
rs3.open sql3,cn,3
if not rs3.eof then
for i=1 to rs3.recordcount
call getsubk(rs3("k_id"))
rs3.movenext
if rs3.eof then exit for
end if //试试
next
else
response.write rs3("k_id")
end if
end sub

[Agulado]

call getsubk(rs3("k_id"))

这句吧。rs3("k_id")肯定有东西？肯定是数字？

[Agulado]

不是数字好像无所谓，不过如果是空，是不是就该报错了？

[Agulado]

call sub getsubk(1)

===================
call getsubk(1)试试，可能是把sub getsubk当成一个完整的过程名了。

[singsin]

call getsubk(x)

[moodboy1982]

错误都记不住，别人又怎么帮你？
把报错信息贴出来，还有代码，你这样问问题谁知道。

[jordan4]

call getsubk(rs2("k_id"))

sub getsubk(x) "这一行报错"
set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from kemu where k_parenet='"&x&"'"
rs3.open sql3,cn,3
if not rs3.eof then
for i=1 to rs3.recordcount
call getsubk(rs3("k_id"))
rs3.movenext
if rs3.eof then exit for
next
else
response.write rs3("k_id")
end if
end sub

错误为：
Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

/calcu.asp，行 48

sub getsubk(x)

[Agulado]

想不出了。。。关注一下

[lolo2006]

貌似少个end if

[cnrk_net]

把call 去掉，直接用
getsubk(rs2("k_id"))