Active server object怎么写函数！(很急的问题！)(200分)

我想用Active server object为Asp写些函数，
查询时Asp把条件参数传给我，我生成Sql语句，把Sql语句传给Asp
怎么做？我只知道写过程，直接写页面，但是实在找不到函数处理的例子？
是不是有其它方法？
如 Sel("a","b","c")是Asp给我的，我把结果变成 select * from table where Field1="a" and Fieldb2="c"
怎么做？
很急的问题！很急的问题！很急的问题！

new 一个 activex liberary
然后new 个 aspobject
然后打开菜单 view->type liberary
在Ixxxx里面添加一个method
在metod里面申明一个可以in,out 的参数VARIANT *
然后就可以了

在你的AutomationObject中新建一个Method：

HRESULT _stdcall GetData([in] BSTR DB, [in] BSTR Cols, [out, retval] BSTR * Value );

相应的Delphi对象方法为：
function TGenDataList.Get_GetData(const DB, Cols: WideString): WideString;
...

——上面的这个函数就可以根据传入的字符串： DB,Cols生成结果字符串： Value

具体的ASP调用代码如下：
<%
Set DelphiASPObj = Server.CreateObject("PagePro.GenDataList")
DIM DB,Cols
DB=Request.QueryString("DB")
Cols=Request.QueryString("Cols")
Response.Write DelphiASPObj.GetData(DB,Cols)
%>

to creation-zy
有没有源码？能否尽快发来seawater001@yeah.net，我看不太懂！我用method不能生成function.
to dcsdcs
我照你的方法去做了，但是行不能啊！以下是我的源码
procedure TMyFirstTest.Method1(const Param1: WideString;
out Param2: OleVariant);
var
i:integer
tmpString:String;
begin
tmpString:='';
for i:=0 to 5 do
begin
tmpString:=tmpString+Param1;
end;
Param2:=tmpString;
end;

<% dim a
Set DelphiASPObj = Server.CreateObject("Project1.MyFirstTest")
DelphiASPObj.Method1("abcd",a)
response.write a
%>
不知错在哪里？

问题解决！谢谢各位！小弟太粗心了，没看清！