ASP - Example Code II (contd.)

<% ‘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

%>

Previous slide

Next slide

Back to first slide

View graphic version