<%const adCmdText=&H0001
const adInteger=3
const adVarChar=200
const adParamInput = &H0001
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.Createobject("ADODB.Command")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("as.mdb")
comm.ActiveConnection=conn
comm.CommandType=adCmdText
comm.CommandText="insert into erso (title,nname)"& _
"values(TL,NM)"
set param=comm.CreateParameter("TL",adVarChar,adParamInput,255,"bill")
comm.Parameters.Append param
set param=comm.CreateParameter("NM",adVarChar,adParamInput,255,"yunyunyun")
comm.Parameters.Append param
comm.Execute
conn.close
%>
显示：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'

[Microsoft][ODBC Microsoft Access 驱动程序] 参数不足，期待是 2。

/action/jia1.asp, 行17

帮帮忙