%@LANGUAGE="VBSCRIPT"%> <% set rsMenu = Server.CreateObject("ADODB.Recordset") rsMenu.ActiveConnection = MM_connSoya_STRING rsMenu.Source = "SELECT KATEGORI FROM RECEPIES" rsMenu.CursorType = 0 rsMenu.CursorLocation = 2 rsMenu.LockType = 3 rsMenu.Open() rsMenu_numRows = 0 %>