


<%
dim fl1,fl2,fl3,fl4,fl5,fl6,fl7,fl8,fid1,fid2,fid3,fid4,fid5,fid6,fid7,fid8
set rsclass=server.createobject("adodb.recordset")
sqlclass = "select * from jle_class1 order by paixu desc"
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
response.write "请先添加栏目。"
response.end
else
kk=0
do while not rsclass.eof
kk=kk+1
%>

<% 
Select Case kk
                Case "1"
                fl1=rsclass("class1")
                Case "2"
                fl2=rsclass("class1")
                Case "3"
                fl3=rsclass("class1")
                Case "4"
                 fl4=rsclass("class1")
                Case "5"
                fl5=rsclass("class1")
                Case "6"
               fl6=rsclass("class1")
                Case "7"
                fl7=rsclass("class1")
                Case "8"
               fl8=rsclass("class1")
                End Select%>
<% 
Select Case kk
                Case "1"
                fid1=rsclass("id")
                Case "2"
                fid2=rsclass("id")
                Case "3"
                fid3=rsclass("id")
                Case "4"
                 fid4=rsclass("id")
                Case "5"
                fid5=rsclass("id")
                Case "6"
               fid6=rsclass("id")
                Case "7"
                fid7=rsclass("id")
                Case "8"
               fid8=rsclass("id")
                End Select%>
<%
rsclass.movenext
%>
				
				<%
loop
end if
%><%
rsclass.close
%>


<%sub floading1()%>
<SCRIPT language=javascript>
function secBoard(n)
{
for(i=0;i<secTable.cells.length;i++) {
secTable.cells[i].className="sec1";
secTable.cells[n].className="sec2";}
for(i=0;i<mainTable.tBodies.length;i++) {
mainTable.tBodies[i].style.display="none";
mainTable.tBodies[n].style.display="block";}
}
</SCRIPT>
<table width="373" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#Eeaaaa">
<tr><td height="33" background="img/tbg1.gif" style=" border-style:none;"><table width="332" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr id="secTable">
<td width="80" height="33"  class="sec2" onmouseover=secBoard(0) style="border-style:none"><div align="center">
<A href="info.asp?/=<%=fid1%>&cnmai=1"><%=fl1%></a></div></td>
<td width="80" height="33"  class="sec1" onmouseover=secBoard(1) style="border-style:none"><div align="center"><A href="info.asp?/=<%=fid2%>&cnmai=1"><%=fl2%></a></div></td>
<td width="173" height="24" style="border-style:none" class="sec1"></td>
  </tr>
</table></td>
</tr>
<tr>
<td  valign="top" bgcolor="#FFFFFF" style="border-style:none" width="373">
<table id="mainTable" width="373" border="0" align="center" cellpadding="0" cellspacing="0">
<!--最新信息-->
<TBODY style="DISPLAY: block">
<tr>
<td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid1&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid1&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo">
<A  href="x.asp?cnmai=<%=rsnh("id")%>">
&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>
<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
        </tr>
      </TBODY>
            <!--最新公告-->
            <TBODY style="DISPLAY: none">
              <tr>
                <td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid2&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid2&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo"><A  href="x.asp?cnmai=<%=rsnh("id")%>">&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>

<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
              </tr>
            </TBODY>
			<!--最新商家--><!--论坛发帖-->
</table></td></tr></table><%end sub%>
		<%sub floading2()%>
		<SCRIPT language=javascript>
function secBoard1(n)
{
for(i=0;i<secTable1.cells.length;i++) {
secTable1.cells[i].className="sec1";
secTable1.cells[n].className="sec2";}
for(i=0;i<mainTable1.tBodies.length;i++) {
mainTable1.tBodies[i].style.display="none";
mainTable1.tBodies[n].style.display="block";}
}
</SCRIPT>
<table width="373" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#Eeaaaa">
<tr><td height="33" background="img/tbg1.gif" style=" border-style:none;"><table width="332" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr id="secTable1">
<td width="80" height="33"  class="sec2" onmouseover=secBoard1(0) style="border-style:none"><div align="center"><A href="info.asp?/=<%=fid3%>&cnmai=1"><%=fl3%></a></div></td>
<td width="80" height="33"  class="sec1" onmouseover=secBoard1(1) style="border-style:none"><div align="center"><A href="info.asp?/=<%=fid4%>&cnmai=1"><%=fl4%></a></div></td>
<td width="173" height="24" style="border-style:none" class="sec1"></td>
  </tr>
</table></td>
</tr>
<tr>
<td colspan="3" valign="top" bgcolor="#FFFFFF" style="border-style:none" width="373">
<table id="mainTable1" width="373" border="0" align="center" cellpadding="0" cellspacing="0">
<!--最新信息-->
<TBODY style="DISPLAY: block">
<tr>
<td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid3&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid3&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo"><A  href="x.asp?cnmai=<%=rsnh("id")%>">&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>
<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
          </tr>
        </TBODY>
            <!--最新公告-->
            <TBODY style="DISPLAY: none">
              <tr>
                <td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid4&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid4&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo"><A  href="x.asp?cnmai=<%=rsnh("id")%>">&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>

<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
              </tr>
            </TBODY>
			<!--最新商家--><!--论坛发帖-->
</table></td></tr></table><%end sub%>


<%sub floading3()%>
		<SCRIPT language=javascript>
function secBoard2(n)
{
for(i=0;i<secTable2.cells.length;i++) {
secTable2.cells[i].className="sec1";
secTable2.cells[n].className="sec2";}
for(i=0;i<mainTable1.tBodies.length;i++) {
mainTable2.tBodies[i].style.display="none";
mainTable2.tBodies[n].style.display="block";}
}
</SCRIPT>
<table width="373" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#Eeaaaa">
<tr><td height="33" background="img/tbg1.gif" style=" border-style:none;"><table width="332" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr id="secTable2">
<td width="80" height="33"  class="sec2" onmouseover=secBoard2(0) style="border-style:none"><div align="center"><A href="info.asp?/=<%=fid5%>&cnmai=1"><%=fl5%></a></div></td>
<td width="80" height="33"  class="sec1" onmouseover=secBoard2(1) style="border-style:none"><div align="center"><A href="info.asp?/=<%=fid6%>&cnmai=1"><%=fl6%></a></div></td>
<td width="173" height="24" style="border-style:none" class="sec1"></td>
  </tr>
</table></td>
</tr>
<tr>
<td colspan="3" valign="top" bgcolor="#FFFFFF" style="border-style:none" width="373">
<table id="mainTable2" width="373" border="0" align="center" cellpadding="0" cellspacing="0">
<!--最新信息-->
<TBODY style="DISPLAY: block">
<tr>
<td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid5&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid5&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo"><A  href="x.asp?cnmai=<%=rsnh("id")%>">&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>
<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
          </tr>
        </TBODY>
            <!--最新公告-->
            <TBODY style="DISPLAY: none">
              <tr>
                <td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid6&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid6&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo"><A  href="x.asp?cnmai=<%=rsnh("id")%>">&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>

<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
              </tr>
            </TBODY>
			<!--最新商家--><!--论坛发帖-->
</table></td></tr></table><%end sub%>
		
<%sub floading4()%>
		<SCRIPT language=javascript>
function secBoard3(n)
{
for(i=0;i<secTable3.cells.length;i++) {
secTable3.cells[i].className="sec1";
secTable3.cells[n].className="sec2";}
for(i=0;i<mainTable1.tBodies.length;i++) {
mainTable3.tBodies[i].style.display="none";
mainTable3.tBodies[n].style.display="block";}
}
</SCRIPT>
<table width="373" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#Eeaaaa">
<tr><td height="33" background="img/tbg1.gif" style=" border-style:none;"><table width="332" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr id="secTable3">
<td width="80" height="33"  class="sec2" onmouseover=secBoard3(0) style="border-style:none"><div align="center"><A href="info.asp?/=<%=fid7%>&cnmai=1"><%=fl7%></a></div></td>
<td width="80" height="33"  class="sec1" onmouseover=secBoard3(1) style="border-style:none"><div align="center"><A href="info.asp?/=<%=fid8%>&cnmai=1"><%=fl8%></a></div></td>
<td width="173" height="24" style="border-style:none" class="sec1"></td>
  </tr>
</table></td>
</tr>
<tr>
<td colspan="3" valign="top" bgcolor="#FFFFFF" style="border-style:none" width="373">
<table id="mainTable3" width="373" border="0" align="center" cellpadding="0" cellspacing="0">
<!--最新信息-->
<TBODY style="DISPLAY: block">
<tr>
<td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid7&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid7&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo"><A  href="x.asp?cnmai=<%=rsnh("id")%>">&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>
<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
          </tr>
        </TBODY>
            <!--最新公告-->
            <TBODY style="DISPLAY: none">
              <tr>
                <td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid8&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid6&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo"><A  href="x.asp?cnmai=<%=rsnh("id")%>">&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>

<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
              </tr>
            </TBODY>
			<!--最新商家--><!--论坛发帖-->
</table></td></tr></table><%end sub%>

<%sub floading5()%>
		<SCRIPT language=javascript>
function secBoard3(n)
{
for(i=0;i<secTable3.cells.length;i++) {
secTable3.cells[i].className="sec1";
secTable3.cells[n].className="sec2";}
for(i=0;i<mainTable1.tBodies.length;i++) {
mainTable3.tBodies[i].style.display="none";
mainTable3.tBodies[n].style.display="block";}
}
</SCRIPT>
<table width="373" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#Eeaaaa">
<tr><td height="33" background="img/tbg1.gif" style=" border-style:none;"><table width="332" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr id="secTable3">
<td width="80" height="33"  class="sec2" onmouseover=secBoard3(0) style="border-style:none"><div align="center"><A href="info.asp?/=<%=fid7%>&cnmai=1"><%=fl7%></a></div></td>
<td width="80" height="33"  class="sec1" onmouseover=secBoard3(1) style="border-style:none"><div align="center"><A href="info.asp?/=<%=fid8%>&cnmai=1"><%=fl8%></a></div></td>
<td width="173" height="24" style="border-style:none" class="sec1"></td>
  </tr>
</table></td>
</tr>
<tr>
<td colspan="3" valign="top" bgcolor="#FFFFFF" style="border-style:none" width="373">
<table id="mainTable3" width="373" border="0" align="center" cellpadding="0" cellspacing="0">
<!--最新信息-->
<TBODY style="DISPLAY: block">
<tr>
<td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid7&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid7&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo"><A  href="x.asp?cnmai=<%=rsnh("id")%>">&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>
<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
          </tr>
        </TBODY>
            <!--最新公告-->
            <TBODY style="DISPLAY: none">
              <tr>
                <td style="padding:6px;"><%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 10 id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&fid8&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1%>

<%sqlnh = "select top 1 * from jle_xinxi where yz=1 and class1="&fid6&" and tupian<>'0' order by fbsj desc,b desc,id desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="infoftpic"><div id="picbox">
<img src="<%=rsnh("tupian")%>" width="90" height="70"/></div><div id="picinfo"><A  href="x.asp?cnmai=<%=rsnh("id")%>">&nbsp;&nbsp;&nbsp;<%=left(rsnh("memo"),56)%>...</A></div></div>

<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing%>

<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
%>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1("id")%>"><%response.write ""&left(rs1("biaoti"),18)&""%></A></div>

<%rs1.movenext
Loop
rs1.close
set rs1=nothing%></td>
              </tr>
            </TBODY>
			<!--最新商家--><!--论坛发帖-->
</table></td></tr></table><%end sub%>