Simple Example Query using a fetch loop
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ADOSamples" sql="select ProductName, ProductDescription from Products where ProductType in ('Boot', 'Tent')" Set RS = Conn.Execute(sql) %> Here are the results from the query:
<%=sql%>
<% Do While not RS.eof%>
<% = RS("ProductName") %>
<% = RS("ProductDescription") %>
<% RS.MoveNext Loop RS.close Conn.close %>