%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsCategories Dim rsCategories_numRows Set rsCategories = Server.CreateObject("ADODB.Recordset") rsCategories.ActiveConnection = MM_musicians_STRING rsCategories.Source = "SELECT distinct Category FROM zzounds" rsCategories.CursorType = 2 rsCategories.CursorLocation = 2 rsCategories.LockType = 1 rsCategories.Open() rsCategories_numRows = 0 %>
|
<% rsCategories.Close() Set rsCategories = Nothing %>