我在写函数的时候出现下面的错误,该怎么去解决?
sub defaultmid(name1,name2,name3,n)
call bgmid()
call titlezd(name1,1)
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from "&name2
call panduansql()
'response.write sql&"<br>"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
nline=1
rs.pagesize=20
select case n
case 1 rssum=rs.recordcount
nummer=rs.pagesize
del_temp=nummer
end select
page=clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href=name3
rs.absolutepage=page
for ipage=1 to rs.pagesize
end sub
提示出错:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft VBScript 编译器错误 错误 '800a0400'
缺少语句
请大家帮忙看一下