ActiveX Data Objects
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%>
<%while not RS.eof%>
<%=RS("ProductName")%>
<%=RS("ProductDescription")%>
<% RS.MoveNext wend RS.close Conn.close %>