%@LANGUAGE="VBSCRIPT"%> <% Dim rsPracticeAreas Dim rsPracticeAreas_numRows Set rsPracticeAreas = Server.CreateObject("ADODB.Recordset") rsPracticeAreas.ActiveConnection = MM_LawyerFind_STRING rsPracticeAreas.Source = "SELECT * FROM CategoryInfo ORDER BY CategoryName ASC" rsPracticeAreas.CursorType = 0 rsPracticeAreas.CursorLocation = 2 rsPracticeAreas.LockType = 1 rsPracticeAreas.Open() rsPracticeAreas_numRows = 0 %>
![]() |
![]() |
![]() ![]() ![]() ![]() ![]() |
|
|
|
|
|
|