求救高手！！！

mikall

下了一个程序，上传到空间，到后台测试，添加不了内容，上面提示：Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'cint'

以下是出错代码段:

'编辑表单
sub so_article_edit(act,nid)
select case act
case "edit"
actstr = "编辑"
sql = "select * from so_article where id = "&nid
rs.open sql,conn,1,1
title = rs("title")
datestr = rs("datestr")
hits = rs("hits")
page_title = rs("page_title")
page_keywords = rs("page_keywords")
page_description = rs("page_description")
author = rs("author")
url = rs("url")
pic_min = rs("pic_min")
content = rs("content")
classid = rs("classid")
smallid = rs("smallid")
rs.close
case "add"
actstr = "添加"
title = ""
datestr = now()
hits = 0
page_title = ""
page_keywords = ""
page_description = ""
author = "本站整理"
url = config_url
pic_min = ""
content = ""
classid = cint(request.cookies(config_cname)("classid")) (提示就是这里出错）
smallid = cint(request.cookies(config_cname)("smallid"))


高手们帮忙看看，怎样才能添加内容！