%
IDD = request.querystring("IDE")
'ON ERROR RESUME NEXT
Dim AdoCon
Dim RsP
Dim Rsd
Dim SQLP
Dim SQLPP
Set AdoCon = server.createobject ("ADODB.CONNECTION")
AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("fh.mdb")
Set RsPl = server.createobject ("ADODB.RECORDSET")
SQLPl = "select * from invest where flag='b' AND ID='" & IDD &"'"
RsPl.open SQLPl,AdoCon,3,3
%>