Пиши ASP-компоненту.

to GID:
ASP - кмпонента это и есть вибишная прога (dll). Вот как это может выглядеть в ASP (один из моих проектов):
<%
if Session("Ok")="" then
Session("lang")=Request.QueryString("Lang")
set rsMenuCatalog=Server.CreateObject("ADODB.Recordset")
set rsMenupositions=Server.CreateObject("ADODB.Recordset")
set rsOrder =Server.CreateObject("ADODB.Recordset")
set rsOrderPos=Server.CreateObject("ADODB.Recordset")
set objBL=Server.CreateObject("FFBL.FFClass")
objBL.GetMenu4Client rsMenuCatalog, rsMenupositions
set Session("rsMenuCatalog")=rsMenuCatalog
set Session("rsMenuPositions")=rsMenupositions
objBL.GetCurrentOrder Request.ServerVariables("REMOTE_HOST"), rsOrder, rsOrderPos
set Session("rsOrder")=rsOrder
set Session("rsOrderPos")=rsOrderPos
Session("Whisky")=Request.ServerVariables("REMOTE_HOST")
Session("Ok")="Ok"
if rsOrder("Status_Id")<>1 then Response.Redirect "orderfinal.asp"
else
session("rsMenuCatalog").movefirst
end if
%>

А вот содержимое FFBL.dll:

Public Sub GetMenu4Client(rsMenuCatalog, rsMenuPositions)
Dim cmd As New ADODB.Command
On Error GoTo errh
GetObjectContext.SetAbort
cmd.CommandType = adCmdText
cmd.CommandText = "select * from InventoryTypes; select * from Inventory where ShowInMenu = 1"
ExecCmdGetRecordsets cmd, rsMenuCatalog, rsMenuPositions
GetObjectContext.SetComplete
Exit Sub
errh:
PropagateError "GetMenu4Client"
End Sub

Public Sub GetCurrentOrder(Whisky As String, rsOrder, rsOrderPositions)
Dim cmd As New ADODB.Command
On Error GoTo errh
GetObjectContext.SetAbort
cmd.CommandText = "uspGetCurrentOrder"
cmd.Parameters.Append cmd.CreateParameter("Whisky", adVarChar, , 50, Whisky)
ExecCmdGetRecordsets cmd, rsOrder, rsOrderPositions
If rsOrder.RecordCount = 0 Then GetOrder 0, rsOrder, rsOrderPositions
GetObjectContext.SetComplete
Exit Sub
errh:
PropagateError "GetCurrentOrder"
End Sub

Правда это обычный COM+. В ASP-компоненте достаточно одного метода, в который передаются Request, Responce и другие необходимые аспешные объекты.