set conn= Server.CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("news.mdb")
conn.open connstr

set cmd= Server.CreateObject("adodb.command")
cmd.activeconnection=conn

prmname="tid"
prmtype=200
prmdirection=1
prmsize=10
prmvalue=request.querystring("typeid")
set prm=cmd.createparameter(prmname,prmtype,prmdirection,prmsize,prmvalue)

cmd.parameters.append(prm)

cmd.commandtext="sp_news"
cmd.commandtype=4
set rs=cmd.execute
response.write rs("title")