<% i=1 sql="select intelligencer.idno, intelligencer.title, intelligencer.c_url, intelligencer.c_url_desc, editor.body from intelligencer, editor where intelligencer.active='Y' and intelligencer.volume='" & f_volume & "' and intelligencer.issue='" & f_issue & "' and intelligencer.idno=editor.ref_idno order by intelligencer.the_order" rs.open sql, strconn while not rs.eof %> <% i=i+1 rs.movenext wend rs.close %>
<% if i=1 then %> <% if f_image <> "" then %> <% end if %> <% end if %>
"><%=rs("title")%>
<%=rs("body")%><% if rs("c_url") <> "" then %> " class="nav" target="_blank"><% if rs("c_url_desc") <> "" then response.write rs("c_url_desc") else response.write "Read More" %><% end if %>

<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=1" rs1.open sql, strconn if not rs1.eof then f_image=rs1("c_image") else f_image="" if not rs1.eof then f_url=rs1("c_url") else f_url="" rs1.close if f_image<>"" then %> <%=f_url%> <% end if %>

<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=2" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>


<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=3" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>


<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=4" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>


<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=5" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>


<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=10" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>


<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=11" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>


<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=12" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>


<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=13" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>


<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=14" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>


<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=15" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>

 

<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=6" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="" if not rs.eof then f_url=rs("c_url") else f_url="" rs.close if f_image<>"" then %> <%=f_url%> <% end if %>