<% Dim Connect, rs Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open strConnect Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT County FROM Counties ORDER BY County", Connect Do Until rs.EOF response.write "" & rs("County") & "" rs.MoveNext Loop rs.Close Set rs = Nothing Connect.Close Set Connect = Nothing %>