%@LANGUAGE="VBSCRIPT"%> <% Dim MessageTypes Dim MessageTypes_cmd Dim MessageTypes_numRows Set MessageTypes_cmd = Server.CreateObject ("ADODB.Command") MessageTypes_cmd.ActiveConnection = MM_BoscolaWeb_STRING MessageTypes_cmd.CommandText = "SELECT * FROM dbo.MessageTypes ORDER BY MessageType" MessageTypes_cmd.Prepared = true Set MessageTypes = MessageTypes_cmd.Execute MessageTypes_numRows = 0 %>