| 1 |
<% `print the member variables depending on the attribute
|
| 2 |
Sub printData(ByVal attrib)
|
| 3 |
DataQuery = "select dname from sp_data_table where "
|
| 4 |
DataQuery = DataQuery &" dattrib ='" & attrib &"' AND dclsid = " & cid
|
| 5 |
DataQuery = DataQuery & " order by dname"
|
| 6 |
`form the query and execute it
|
| 7 |
Set datalist = OBJdbConnection.Execute(DataQuery)
|
| 8 |
attrib = attrib & " Data"
|
| 9 |
if(Not datalist.Eof) then ` if the result set is not empty then print it
|
| 10 |
printRecord attrib,datalist
|
| 11 |
end if
|
| 12 |
End Sub
|
| 13 |
%>
|
