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