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

语句未结束

/ssyz/display.asp,行 1

dim classname,typeid,typenameif IsNumeric(Request.QueryString("id"))=False thenResponse.Redirect"info.asp?info=错误的参数"elseid=cint(Request.QueryString("id"))end ifset temprs=conn.execute("select typeid,classid,name from desktop where id="&id)typeid=temprs(0)filename=temprs(2)classname=temprs(0)set temprs=nothingset temprs=conn.execute("select name from type where id="&typeid)typename=temprs(0)set temprs=nothing
---------------------------^