function exec(esql,etype)
if isconn=false then call conn_open()
'response.write vbcrlf&"//<br>"&esql
select case etype
case 0
conn.execute(esql)///21行,出错位置
case 1
set exec=conn.execute(esql)
end select
num_rs=num_rs+1
end function
sub conn_open()
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
isconn=true
end sub