Provider 错误 '80020005'
类型不匹配。
/qq_meetmanageadd.asp,行 89
代码如下:
m_title=trim(request("name")) 'checkStr函数
m_area=trim(request("area"))
m_address=trim(request("address"))
m_content=HTMLEncode(request("content"))
m_time=cdate(request("meettime1")&" "&request("meettime2")&":"&request("meettime3")&":00")
m_endtime=cdate(request("meetendtime1")&" "&request("meetendtime2")&":"&request("meetendtime3")&":00")
m_timeout=cdate(request("meettimeout1")&" "&request("meettimeout2")&":"&request("meettimeout3")&":00")
m_count=trim(request("count"))
m_price=trim(request("price"))
m_content=HTMLEncode(request("content"))
m_class=trim(request("class"))
m_contact=trim(request("contact"))
'地区
m_TypeID = checkStr(Trim(Request("TypeID")))
if instr(m_TypeID,":") <> 0 then
m_bigarea = mid(m_TypeID,1,instr(m_TypeID,":")-1)
m_Smallarea = mid(m_TypeID,instr(m_TypeID,":")+1)
else
m_bigarea = "0"
m_Smallarea = "0"
end if
'添加活动信息
set rs_c=server.createobject("adodb.recordset")
sql_c="select * from t_club_meet"
rs_c.open sql_c,conn,1,3
rs_c.addnew
rs_c("f_club_id")=club_id
rs_c("f_title")=m_title
rs_c("f_username")=m_username
rs_c("f_area")=m_area
rs_c("f_address")=m_address
rs_c("f_time")=m_time
rs_c("f_count")=m_count
rs_c("f_price")=m_price
rs_c("f_content")=m_content
rs_c("f_class")=m_class
rs_c("f_endtime")=m_endtime
rs_c("f_timeout")=m_timeout
rs_c("f_contact")=m_contact
rs_c("f_bigarea")=m_bigarea
rs_c("f_smallarea")=m_smallarea '出错行!
'区分是否审核,目前自动通过审核
rs_c("f_ischeck")=true
rs_c("f_regtime")=now()
rs_c.update
rs_c.close
set rs_c=nothing
rs_a("f_clubactive")=rs_a("f_clubactive")+1
rs_a.update
url="QQ_sendploy.asp?id="&rs_a("f_id")
response.redirect url
'////////////////////////////////
rs_a.close
set rs_a=nothing
%>
rs_c("f_smallarea")=m_smallarea '出错行!