<% cn.Open DBString1 Set rs = cn.Execute("Select SpeechHeader,SpeechLocation From Speeches Order By SpeechLocation desc") %> <%While not rs.EOF%> "><%=rs("SpeechHeader")%> <% rs.MoveNext() Wend%> <% rs.Close() cn.Close() %>