<%=LocationCode%> <% On Error Resume Next SET GENERAL = Server.CreateObject("ADODB.Recordset") GENERAL.ActiveConnection = "DSN=ODBC NAME" or connection string of choice GENERAL.Source = "Select DESCRIPTION From DESCRIPTION Order By DESCRIPTION" GENERAL.CursorType = 0 GENERAL.LockType = 3 GENERAL.Open GENERAL_numRows = 0 Do until GENERAL.EOF = True response.write "" & trim(GENERAL.Fields.Item("DESCRIPTION").value) & "" GENERAL.Movenext Loop GENERAL.Close Set General = Nothing response.write "OTHER" %>