<%
Dim Cnn,objrs,sql

Set Cnn = Server.CreateObject("ADODB.Connection")
cnn.open = "Driver={Microsoft Access Driver (*.mdb)};"&" DBQ=" & Server.MapPath("../store.mdb")
set objrs=server.createobject("adodb.recordset")
sql="select proname,prointro,data,company,address,fax,tel,person,E-mail,QQ,interaddress,companyintro from tbbuy "
objrs.open sql,cnn,2,3
response.write "success"
dim proname,prointro,data,company,address,fax,tel,person,E-mail,QQ,interaddress,companyintro 显示这里出错，搞不懂，那位大哥可以告诉我啊
proname=request("proname")
prointro=request("prointro")
data=request("data")
company=request("company")
address=request("address")
fax=request("fax")
tel=request("tel")
person=request("person")
E-mail=request("E-mail")
QQ=request("QQ")
interaddress=request("interaddress")
companyintro=request("companyintro")
objrs.addnew array("proname","prointro","data","company","address","fax","tel","person","E-mail","QQ","interaddress","companyintro")_
array(proname,prointro,data,company,address,fax,tel,person,E-mail,QQ,interaddress,companyintro)
objrs.updata

%>