请大家我、帮我看看怎么解决Microsoft VBScript 运行时错误 错误 '800a000d'类型不匹配: '[string: ""]'
/vod/admin/change.asp，行 5 的问题。
change.asp代码如下：
<!--#include file="../../check.asp"-->
<!--#include file="articleconn.asp"-->
<html>
<%if session("flag")>1 then ------这是第5行吧？！是不是这里错了哦
response.write "<script>alert('您的操作权限不够！');history.back();</script>"
response.end
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="css/css.css">
<title></title>
<style type=text/css>
body { background:#336699; margin:0px; font:9pt 宋体; }
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover { color:#000000;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title { }
.menu_title span { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2 { }
.menu_title2 span { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
</head>
<body bgcolor="#D6EF7E">
<%
dim rs,sql,sel
set rs=server.createobject("adodb.recordset")
sql="select * from password where id=1"
rs.open sql,conn,1,1
%>
<table border="0" align="center" cellspacing="0" cellpadding="3">
<tr>
<td bgcolor="#Fff000" height="30">
<p align="center"><b><font size="2">电影分类管理</font></b></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><font size="2"> </font></td>
<%set rs=server.createobject("adodb.recordset")
sql="select * from type"
rs.open sql,conn,1,3
do while not rs.eof%>
</tr>
</form>
<form method="POST" onsubmit action="changeadmin.asp?typeid=<%=rs("typeid")%>">
<tr>
<td nowrap bgcolor="#FFFFFF">
<font size="2"><%=rs("type")%></font><font size="2">
<input type="text" name="typename" size="15">
<input type="submit" value="修改" name="change">
<input type="submit" value="删除" name="delet"></font></td>
</tr>
</form>
<% rs.movenext
loop
%>
<tr>
<td align="center" height="10"bgcolor="#FFFFFF"></td>
</tr>
<br>
</table>
<br>
<table border="0" width="300" align="center" cellspacing="0" cellpadding="0">
<form method="POST" onsubmit action="changeadmin.asp">
<tr>
<td align="center" height="35" nowrap bgcolor="#FFFFFF">
<font color=ff0000><b>添加分类</b>：</font>
<font size="2">
<input type="text" name="type" size="15"> <input type="submit" value="开始添加" name="addname"></font></td>
</tr>
</form>
</table>
</body>
</body>
</html>
谢谢大家！！！
