麻烦我帮修改下代码,提示类型不匹配

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: '[string: "招聘"]'

<%sub dix()
set rsdq=server.createobject("adodb.recordset")
sqldq = "select leixing from config "
rsdq.open sqldq,conn,1,1
leixing=split(rsdq("leixing"),"|")
xn=leixing(0)
response.write "<select name=""InfoClass"">"
'response.write "<option value=>选择类型</option>"
for x=1 to xn
response.write "<option value="""&leixing(x)&""">"&leixing(x)&"</option>"
next
response.write "</select>&nbsp;"
rsdq.close
set rsdq=nothing
end sub%>

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: '[string: "招聘"]'