<%
dim conn,mdbfile
function getrecordset(filename,sql)
mdbfile=server.mappath(filename)
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&mdbfile
set getrecordset=server.createobject("adodb.recordset")
getrecordset.open sql,conn,3,3,1
end function
%>