dim conn
dim connstr
dim DBPath
DBPath = "/jntm.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
button=request.form("button")
select case button
case "按申请人名称查询 "
sele_db = "select * from query where sqrmc like '%"&sqrmc&"%' "
case "按商标名称查询"
sele_db = "select * from query where sbmc like '%"&sbmc&"%' "
case "按商标类别查询"
sele_db = "select * from query where sblb ='"&sblb&"' "
case "按交费情况查询"
sele_db = "select * from query where jfqk ='"&jfqk&"' "
case "按代理人查询"
sele_db = "select * from query where dlr ='"&dlr&"' "
case "按国家局查询人查询"
sele_db = "select * from query where cxr ='"&cxr&"' "
end select
set dbls=conn.Execute(sele_db)
%>
</head>