| <%
sql1 = "select * from ybf_adv where category = 9 order by oorder desc"
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Open sql1,cm, 1,3,1
if not rs1.eof then
%>
<% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 5 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 1 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 2 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 3 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 8 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 13 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 10 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 11 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 4 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 6 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 7 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 12 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> <% sql1 = "select * from ybf_adv where category = 14 order by oorder desc" set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open sql1,cm, 1,3,1 if not rs1.eof then %> <% while not rs1.eof %> " target="_blank" class="style16 style11" style="text-decoration:none"> <%=rs1("title")%> <%=rs1("date1")%> <%rs1.movenext wend end if %> |