<% ' Set conn = Server.CreateObject("ADODB.Connection") ' conn.open "stonestreet" %> <% set Conn = server.createobject("adodb.connection") constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/stonestreet.mdb")& ";" Conn.open constr Set Session( "Conn" ) = Conn %>
 

<%count = 0 set rs = conn.Execute("SELECT * FROM Article WHERE status = 'Active' AND Service = 'Personal Strategies' ORDER BY Title") If rs.BOF and rs.EOF Then%> <%Else Do While Not rs.EOF AND count = 0 %> <%rs.MoveNext count = count + 1 Loop End If rs.close%> <%count = 0 set rs = conn.Execute("SELECT * FROM Article WHERE status = 'Active' AND Service = 'Business Strategies' ORDER BY Title") If rs.BOF and rs.EOF Then%> <%Else Do While Not rs.EOF AND count = 0 %> <%rs.MoveNext count = count + 1 Loop End If rs.close%> <%count = 0 set rs = conn.Execute("SELECT * FROM Article WHERE status = 'Active' AND Service = 'Estate & Wealth Transfer Strategies' ORDER BY Title") If rs.BOF and rs.EOF Then%> <%Else Do While Not rs.EOF AND count = 0 %> <%rs.MoveNext count = count + 1 Loop End If rs.close%> <%count = 0 set rs = conn.Execute("SELECT * FROM Article WHERE status = 'Active' AND Service = 'Employee & Executive Benefits' ORDER BY Title") If rs.BOF and rs.EOF Then%> <%Else Do While Not rs.EOF AND count = 0 %> <%rs.MoveNext count = count + 1 Loop End If rs.close%> <%count = 0 set rs = conn.Execute("SELECT * FROM Article WHERE status = 'Active' AND Service = 'Asset & Income Protection' ORDER BY Title") If rs.BOF and rs.EOF Then%> <%Else Do While Not rs.EOF AND count = 0 %> <%rs.MoveNext count = count + 1 Loop End If rs.close%>
Personal Strategies
No results found
<%Response.Write(rs("Title").value)%>
<%Response.Write(rs("Description").value)%>
" target="_blank" class="admin">view the article
Display All
Business Strategies
No results found
<%Response.Write(rs("Title").value)%>
<%Response.Write(rs("Description").value)%>
" target="_blank" class="admin">view the article
Display All
Estate & Wealth Transfer Strategies
No results found
<%Response.Write(rs("Title").value)%>
<%Response.Write(rs("Description").value)%>
" target="_blank" class="admin">view the article
Display All
Employee & Executive Benefits
No results found
<%Response.Write(rs("Title").value)%>
<%Response.Write(rs("Description").value)%>
" target="_blank" class="admin">view the article
Display All
Asset & Income Protection
No results found
<%Response.Write(rs("Title").value)%>
<%Response.Write(rs("Description").value)%>
" target="_blank" class="admin">view the article
Display All
 
<%conn.close%>