***** from http://estes.on-line.com/getBusinessServices.asp
Estes Park On-Line - All Links(ADO)
<% Set Ad = Server.CreateObject("MSWC.Adrotator")
%>
<%= Ad.GetAdvertisement("/adrot.txt")%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "estes"
sql="SELECT esteslinks.URL, esteslinks.Title, esteslinks.Description FROM esteslinks WHERE (((esteslinks.Verified)=Yes) AND ((esteslinks.Visable)=Yes) AND ((esteslinks.BusinessServices)=Yes)) ORDER BY esteslinks.Priority;"
Set RS = Conn.Execute(sql)
%>
<% Set RS = Conn.Execute(sql)
%>
<% Do While not RS.eof%>
"target="_blank"><% = RS("Title") %>
<% = RS("Description") %>
<% RS.MoveNext
Loop
RS.close
Conn.close
%>