<%
dim conn
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("Database/oso.mdb")
conn.open
sql="select * from oso002 where oso_004=1"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"