|
<% `subroutine to print the member functions
|
|
Sub printFunction(ByVal attrib)
|
|
FuncQuery = "select fname from sp_functions_table where "
|
|
FuncQuery = FuncQuery & " fattrib ='"&attrib&"' AND fclsid = " & cid
|
|
FuncQuery = FuncQuery & " order by fname"
|
|
Set funclist = OBJdbConnection.Execute(FuncQuery) `form the query and execute it
|
|
if(StrComp(attrib,"Free Standing Function") = 0) then
|
|
attrib = "Free Standing"
|
|
end if
|
|
attrib = attrib & " Methods"
|
|
if(Not funclist.Eof) then ` if result set is not empty then print them
|
|
printRecord attrib,funclist
|
|
end if
|
|
End Sub
|
|
%>
|
