<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conndb.asa"-->
<!--#include file="inc/function.asp"--> 
<script language="JavaScript"> 
<!-- 
document.onkeydown=function up(){ 
if(event.ctrlKey&&event.keyCode==13) 
document.save.submit(); 
} 
//--> 
// 发帖时验证帖子内容是否完整
function regcheck(formct){
	if (formct.boardid.value=='' ){
		alert('请您选择要发布的贴吧名.');
		return false; 
	}
	if (formct.title.value=='' ){
		alert('标题不能为空,请填写.');
		return false; 
	}
		if (formct.content.value=='' ){
		alert('内容不能为空,请填写..');
		return false; 
	}
<%if Dreamsun_name="" then%>
		if (formct.zd_code.value=='' ){
		alert('验证码不能为空,请填写.');
		return false; 
	}
<% end if%>
	formct.Submit.disabled=true;
	return true;
}
</script>
<%
Dim titlenum,keys,act,boardid,iskey,isact,isboardid,kkkj,boardname,boardadmin00,boardyes,boardadmin,tdim00,bz,CurPage,isup
titlenum=70'这里设置字数
keys = formatQueryStr(Request.QueryString("keys"))
act=Request.QueryString("act")

'给分版主isbanzhu权限 Add At 2007-11-11 CHANG,ZIDONE
if Dreamsun_name <>"" then
	'Edit At 2007-11-13 CHANG,ZIDONE
		if CInt(IsAdmin)<>9 then
			if AdminLevel(Dreamsun_name)>0 then isbanzhu = 1
		end if
end if

'分类功能
boardid=CInt(Request.QueryString("boardid"))
If keys<>"" Then iskey="&keys="&keys
If act<>"" Then isact="&act="&act
If boardid="" Then boardid=0
If boardid<>"" Then isboardid="boardid="&boardid

If boardid=0 Then
		'Edit For V1.5
		'fl=" IsCheck>0 "
		fl=" IsCheck>-1 "
	Else 
		'Edit For V1.5
		'fl=" IsCheck>0 and (istop=2 or (istop<2 and boardid="&boardid&")) "
		fl=" IsCheck>-1 and (istop=2 or (istop<2 and boardid="&boardid&")) "
		'从缓存中读出吧的相关信息
	if ubound(Arr_Category,1)=0 then Response.Write("还没有贴吧")
	Category_Len=ubound(Arr_Category,2)
		For kkkj=0 To Category_Len
				'开始循环
				If boardid=Arr_Category(1,kkkj) Then
					boardname=Arr_Category(0,kkkj)
					boardadmin00=Arr_Category(3,kkkj)
					boardyes=1
				Exit For
				End If
		Next
		If boardyes<>1 Then Call backmsg("很抱歉，没有此分类，请确认","")
		If boardadmin00<>"" Then
			boardadmin=" 版主:"&"<select name='boardadmin' class='selBoardManager'><option value=''>"& vbCrlf & Replace(boardadmin00,"|","</option><option value=''>")&"</option></select>"
			'Edit At 2007-11-13 CHANG,ZIDONE
			If Dreamsun_name<>"" And CInt(isadmin)<>9 Then 
				tdim00=split(boardadmin00,"|")
				for bz=0 to ubound(tdim00)
					If Dreamsun_name=tdim00(bz) Then isadmin=1 '斑竹是1，高官是9
				next
			End If

		Else
			If boardid<>"" And boardid<>"0" Then  boardadmin=" 版主:<select name='boardadmin' class='selBoardManager'><option value=''>暂无版主</option></select>"
		End if
End if
'判断参数
If (act="title" Or act="username" Or act="content") And keys="" Then response.write backmsg("搜索关键字不能为空","")
	If Request("CurPage") = "" or Request("CurPage") = 0 then
		CurPage = 1
			Else
		CurPage = CINT(Request("CurPage"))
	End If
's数据读取条件
Select Case isup
	Case "0"'不根据最后回复时间排序
		isups="addtime"
	Case "1" '根据最后回复时间排序
		isups="retime"
End Select 

Select Case act
	Case "jinghua"'精华
		jh=" and isgood=1"
	Case "title" '搜索的标题
		jh=" and title like '%"&keys&"%'"
	Case "username" '搜索的用户
		jh=" and username like '%"&keys&"%'"
	Case "content" '搜索的用户
		jh=" and content like '%"&keys&"%'"

	Case "recount"'回复排行榜
		isups="recount"
	Case "hits"'点击排行榜
		isups="hits"
End Select

'根据权限判断显示所有帖子还是只显示通过审核的
'版主或管理员可以看到所有的帖子
'普通会员和游客只能看到通过审核的帖子
'Add For V1.5
if Dreamsun_name <> "" then
	if AdminLevel(Dreamsun_name)>0 then
		showIsCheck = " And b.IsCheck>-1"
	else
		showIsCheck = " And b.IsCheck=1 "
	end if
else 
	showIsCheck = " And b.IsCheck=1 "
end if

'2007.4.11新增加是否从回复中搜索信息
If keys<>"" Then 
	allreplies=Request.QueryString("allreplies")
	If allreplies=1 Then inreplys=" or b.id in (Select re from "&rebbstable&" where ischeck>0 "&jh&")"
End If 

Dim title,username,addtime,retime,rename
SQL = "SELECT b.id,b.title,b.addtime,b.retime,b.isgood,b.istop,"& _
	"b.hits,b.recount,b.rename,b.username,b.titlecolor,b.titlebold,"& _
	"b.boardid as boardid,b.IsCheck as checked,b.IsFee as IsFee,"& _
	"t.board_name as board_name FROM "&bbstable&" as b,"&boardtable& _
	" as t where (("&fl&" "&jh&")"&inreplys&") and b.boardid=t.board_id "& _
	showIsCheck&" ORDER BY b.istop desc,b."&isups&" DESC" 

Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
'------------------------------------------开始进行列表输出----------------------------------------------------



showlist="<table width='900' height='30' border='1' align='center' cellpadding='1' cellspacing='1' bordercolor='#EC4D00' style='border-style:dashed'><tr> "& vbCrLf
showlist=showlist&"<td width=50 bgcolor='#FFF5F0'style='border-style:none'></td>"& vbCrLf
showlist=showlist&"<td width=450  bgcolor='#FFF5F0'style='border-style:none'>主题</td>"& vbCrLf
showlist=showlist&"<td width=100 bgcolor='#FFF5F0'style='border-style:none'>作者</td>"& vbCrLf
showlist=showlist&"<td width=100 bgcolor='#FFF5F0'style='border-style:none'>时间</td>"& vbCrLf
showlist=showlist&"<td width=100 bgcolor='#FFF5F0'style='border-style:none'><a href=""index.asp?act=hits&"&isboardid& _
""" title=""根据阅读次数从高到低排序"">阅</A>/<a href=""index.asp?act=recount&"&isboardid& _
""" title=""根据回复次数从高到低排序"">回</A></td>"& vbCrLf
showlist=showlist&"<td width=100 bgcolor='#FFF5F0'style='border-style:none'>回复</td>"& vbCrLf
showlist=showlist&"</tr></table>"& vbCrLf

If rs.eof and rs.bof Then
	showlist=showlist&"<table width='900' height='30' border='1' align='center' cellpadding='1' cellspacing='1' bordercolor='#EC4D00' style='border-style:dashed'><tr>"& vbCrLf
	showlist=showlist&"<td width=50 bgcolor='#FFF5F0'style='border-style:none'></td>"& vbCrLf
	showlist=showlist&"<td width=450  bgcolor='#FFF5F0'style='border-style:none'>暂无 <font color=red>"&keys& _
	"</font> 相关的内容，或作者的帖子，感谢支持本帖吧！</td>"& vbCrLf
	showlist=showlist&"<td width=100 bgcolor='#FFF5F0'style='border-style:none'>作者</td>"& vbCrLf
	showlist=showlist&"<td width=100 bgcolor='#FFF5F0'style='border-style:none'>"&Now()&"</td>"& vbCrLf
	showlist=showlist&"<td width=100 bgcolor='#FFF5F0'style='border-style:none'>0</td>"& vbCrLf
	showlist=showlist&"<td width=100 bgcolor='#FFF5F0'style='border-style:none'>0</td>"& vbCrLf
	showlist=showlist&"</tr></table>"& vbCrLf
Else     
	'设置分页 Edit At 2007-11-14 CHANG,ZIDONE''''设置分页开始
	RS.PageSize=indexnum'设置每页记录数           
	Dim TotalPages              
	TotalPages = RS.PageCount              
		If CurPage>RS.Pagecount Then               
		CurPage=RS.Pagecount              
		end if              
	RS.AbsolutePage=CurPage
	rs.CacheSize = RS.PageSize'设置最大记录数  
	Dim Totalcount              
	Totalcount =INT(RS.recordcount)              
	StartPageNum=1              
	do while StartPageNum+10<=CurPage              
		StartPageNum=StartPageNum+10              
		Loop              
	EndPageNum=StartPageNum+9              
	If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
	I=0
	p=RS.PageSize*(Curpage-1)
	'''''''''''''''''''''''''''''''''''''''''''''''设置分页结束

	do while (Not RS.Eof) and (I<RS.PageSize) 
		titlepic="icoz.gif"
		'判断是否通过审核
		'Add For V1.5
		if CInt(rs("checked")) = 0 then
			isCheck = " <font color=gray>[未审核]</font>"
		else
			isCheck = ""
		end if
		'判断是否需要积分
		'add For V1.5
		if CInt(rs("IsFee"))>0 then
			needFee = " <font color=gray title='阅读此帖子需要减掉您"&rs("isFee")&"分'>[需"&rs("isFee")&"分]</font> "
		else
			needFee = " "
		end if
		p=p+1
		hitss=Rs("Hits")
		if hitss > hothits Then hitss="<span class=hotcolor><b>"&hitss&"</b></span>"
		recount=Rs("recount")
		if recount > hotrehits Then recount="<span class=hotcolor><b>"&recount&"</b></span>"
		If boardid=0 Then
			fenlei="[<a href=index.asp?boardid="&rs("boardid")&">"&rs("board_name")& "</a>] "
			tnum=Int(titlenum)-Len(rs("board_name"))-2
		Else
			tnum=titlenum
		End If 
		title=Trim(TitleLeft(DropFuckWords(CStr(Rs("title"))),tnum))
		if Rs("TitleColor")<>"" Then title="<font color="&Rs("TitleColor")&">"&title&"</font>"
		if CInt(Rs("titleBold"))=1 Then title="<B>" & title & "</B>"
		if Rs("isTop")=1 Then titlepic="icoz_top.gif"
		if Rs("isTop")=2 Then titlepic="icoz_top2.gif"
		if Rs("isGood")=1 Then titlepic="icoz_good.gif"
		if Rs("isGood")=1 And Rs("isTop")>0 Then titlepic="icoz_both.gif"
		
		'Add For V1.5 Detail页面分页快捷进入
		if CInt(Rs("recount"))>bbsnum then
			rep ="<span id='rp_"&Rs("id")&"' style='display:none;'>"& _
			GetRePageNo("show.asp?id="&Rs("id")&"&CurPage=",CInt(Rs("recount")),bbsnum,false) &"</span>"
			rep_over="document.getElementById('rp_"&Rs("id")&"').style.display='';"
			rep_out="document.getElementById('rp_"&Rs("id")&"').style.display='none';"
		else
			rep = ""
			rep_over = ""
			rep_out = ""
		end if
		'Add End
		
		username=DropFuckWords(LCase(Rs("username")))
		username2=LCase(Rs("username"))
			If ubound(split(username,"."))<3 And instr(username,".*")=0 And _
			((Dreamsun_Name<>"" And isuserinfo=0) Or isuserinfo=1) Then
				username = "<a href=user.asp?Action=infoshow&username="&username2&">"& username &"</a>"
			else
				if isShowIpName>0 And instr(username,".*")>0  then
					n_name = Replace(username,"*","1")
					username = "<span id='n_"&username&"_"&p&"' onmouseover=""showShortIpData('user.asp?Action=ipname&ip="&n_name& _
					"','n_"&username&"_"&p&"');""  onmouseout=""SetValue('n_"&username&"_"&p&"','"&username&"');"">"&username&"</span>"
				end if
			End If 
		retime=Rs("retime")
		addtime=FormatDateTime(rs("addtime"),2)
		If IsNull(Rs("rename")) Or Rs("rename")=""  Then
			rename="暂无"
		Else 
			rename=DropFuckWords(Trim(LCase(Rs("rename"))))
			rename2=LCase(Trim(Rs("rename")))
			If ubound(split(rename2,"."))<3 And instr(rename2,"*")=0 And _
			((Dreamsun_Name<>"" And isuserinfo=0) Or isuserinfo=1) Then
				rename="<a href=user.asp?Action=infoshow&username="&rename2&">"&rename&"</a>"
			else
				'Add For V1.5 IP Show
				if isShowIpName>0 and instr(rename2,"*")>0 then
					n_rename = Replace(rename,"*","1")
					rename = "<span id='n_"&rename&"_r"&p&"' onmouseover=""showShortIpData('user.asp?Action=ipname&ip="&n_rename& _
					"','n_"&rename&"_r"&p&"');"" onmouseout=""SetValue('n_"&rename&"_r"&p&"','"&rename&"');"">"&rename&"</span>"
				end if
			End If 
		End If 

		
		showlist=showlist&"<table width='900' height='30' border='0' align='center' cellpadding='1' cellspacing='1'  class='list'><tr>"& vbCrLf
		showlist=showlist&"<td width=50 bgcolor='#fffbfc'style='border-style:none' align=center><img src=""images/fen/"&titlepic&"""></td>"& vbCrLf
		showlist=showlist&"<td width=450  bgcolor='#fffbfc'style='border-style:none'>"&fenlei& _
		"<a href=""show.asp?id="&Rs("id")&"""  title="""&DropFuckWords(CStr(Rs("title")))&""">"& _
		title&isCheck&needFee&"</a> "&rep&"</td>"& vbCrLf
		showlist=showlist&"<td width=100  bgcolor='#fffbfc'style='border-style:none'>"&username&"</td>"& vbCrLf
		showlist=showlist&"<td width=100 bgcolor='#fffbfc'style='border-style:none'>"&addtime&"</td>"& vbCrLf
		showlist=showlist&"<td width=100 bgcolor='#fffbfc'style='border-style:none'>"&hitss&"/"&recount&"</td>"& vbCrLf
		showlist=showlist&"<td width=100 bgcolor='#fffbfc'style='border-style:none' title=""最后回复:"&retime&""">"&rename&"</td>"& vbCrLf
		showlist=showlist&"</tr></table>"& vbCrLf
		
		I=I+1              
		RS.MoveNext
	Loop
	showlist=showlist&"<table width='900' border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFF5F0><tr><td  height=30>"& _
	viewpage(Totalcount, indexnum,"10",CurPage,isboardid&isact&iskey,"当前总数:","index.asp")& _
	"</td></tr></table>"& vbCrLf
 '总记录,显示记录数,显示页数,当前页,传替参数,总数说明,当前页面名称
End If

rs.close
set rs=nothing
'------------------------------------------开始进行 导航条 输出----------------------------------------------------
ggg=boardname&"第"&curpage&"页"
If boardid<>"0" Then navdh=navdh&boardname&" &gt;&gt; " 
if keys="" then
	navdh=navdh&"全部帖子" 
else
	navdh=navdh&"搜索关键字："&keys 
end If

' 这里显示Index页面标题
' 如需修改Index页面标题，请修改conndb.asa文件中“TieBa_Index_Title”的值
' 请勿在此修改
webtitle=boardname & " - " & TieBa_Index_Title

if boardid = 0 then
	nr_board = "帖吧"
else
	nr_board = "本版"
end if
navright= nr_board & "共有主题 <FONT color=#ff0000>"&Totalcount&"</FONT> 篇 &nbsp;"&boardadmin
if boardid = 0 then 
	navright =navright&"  吧主:"&sysManager
end if
Call showpage()
Sub pagecontent()
%> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="38%"><a href="#new"><img src="images/fen/nav_post.gif" width="72" height="24" border="0"></a> <a href="index.asp?act=jinghua&<%=isboardid%>"><img src="images/fen/nav_good.gif" width="52" height="24"border="0"></a> <a href="help.asp"><img src="images/fen/nav_help.gif" width="72" height="24" border="0"></a></td>
    <td width="62%"><% Call boardlist()%></td>
  </tr>
</table><table width="900" height="4" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#EC4D00" style="border-bottom-style: none; border-left-style:none; border-right-style:none">
          <tr>
            <td height="6" bgcolor="#FFFFFF" style="border-style:none"></td>
          </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><% 
	if Left(sys_close,1)="1" then
	showList = "<center>&nbsp;<p>&nbsp;<p>&nbsp;很抱歉,本帖吧因为下列原因暂时关闭:<br> -  " & _ 
				Right(sys_close,(len(sys_close)-1))&_
				"<p>&nbsp;<p>&nbsp;</center>"
%>
<%=showlist%>
<%
	else
%>
<%=showlist%></td>
  </tr>
</table><table width="900" height="4" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#EC4D00" style="border-bottom-style: none; border-left-style:none; border-right-style:none">
          <tr>
            <td height="15" bgcolor="#FFFFFF" style="border-style:none"></td>
          </tr>
</table>
<script language="vbscript" src="images/vbs2js.vbs"></script>
<script type="text/javascript"  language="javascript" src="images/ClientAjaxWithVBS.js"></script>

<table width="900" height="30" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#EC4D00" style="border-style:dashed">
          
 <%
If (Dreamsun_name="" And guestadd=1) Or Dreamsun_name<>""  Then 
%>
<form name="save" method="post" action="tzsave.asp?cz=addsave" onSubmit="return regcheck(this);" class=postform>
  <tr>
      <td height="20" colspan="2"  bgcolor="#FFF5F0" style="border-style:none"><%If boardid<>"0" Then  %>
            <input name="boardid" type="hidden" id="boardid" value="<%=boardid%>">
        <% Else %>
            <DIV class="bo" style="margin-left:20px;">
                <Label for="boardid"><strong>贴 吧： </strong></Label> 
                <% Call boardselect()%>
            </DIV>
      <% End If %>
     </td>
    </tr>
  <tr>
    <td height="21" colspan="2"  bgcolor="#FFF5F0" style="border-style:none"><div style="margin-left:20px;"><LABEL for=title><strong>标 题：</strong></label>
            <input name="title" type="text" id="title" size="50" maxlength="50" style="color:#000000">
			<% 
                'Add For V1.5 判断发积分帖权限
                if isFeeTopic = 0  or _
                    (isFeeTopic = 1 and (isbanzhu <> "" or CInt(isAdmin)=9)) or _
                    (isFeeTopic = 2 and CInt(isAdmin)=9) then
            %>
                <LABEL for="isFee"><strong>看帖需积分：</strong></label>
                <input type="text" name="isFee" value="0" id="isFee" size="4">
            <%
                else
            %>
            <input type="hidden" name="isFee" value="0">
            <%	
                end if					 
            %>
      <A HREF="tietu.htm" target=_blank>转贴圣手</A></div></td>
  </tr>
  <tr>
    <td height="42" colspan="2"  bgcolor="#FFF5F0" style="border-style:none">  <DIV class="bo" style="padding-left:20px;"><%If Dreamsun_name<>"" And Isadmin<>0 Then %>					
    
        
			<script language="JavaScript" src="images/title_color.js"></script>
                <TABLE id=ColorPanel cellSpacing=0 cellPadding=0 border=0>
                  <TBODY>
                    <TR>
                      <TD id=ColorUsed 
                     onclick="if(this.bgColor.length > 0) insertTag(this.bgColor)" 
                     vAlign=center align="middle"><Label for=""><Strong>颜 色：</strong></Label></TD>
                      <SCRIPT language=JavaScript>rgb(pas,width1,height1)</SCRIPT>
                    </TR>
                  </TBODY>
              </TABLE><input name="titlecolor" type="hidden" id="titlecolor">
            
                <LABEL for="titleBold1"><strong>标 题：</Strong></label>
                <input type="radio" name="titleBold" value="0" checked id="titleBold1">
                <label for="titleBold1">正常</label>
                <input type="radio" name="titleBold" value="1" id="titleBold2">
                <label for="titleBold2">粗体</label>
        
         <% End If %>
      
            <!--#include file="inc/ubb.asp" -->
      </DIV></td>
  </tr>
  <tr>
    <td height="42" colspan="2" valign="top"   bgcolor="#FFF5F0" style="border-style:none"><Label for="contents"><strong><a name="new"></a>&nbsp;&nbsp;&nbsp;内 容：</strong></label>
      <textarea name="content" cols="60" rows="5" id="contents" title='Ctrl+Enter快速提交' onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyUp="javascript: storeCaret(this);"></textarea></td>
  </tr>
  <tr>
    <td width="256" height="42" bgcolor="#FFF5F0" style="border-style:none">&nbsp;&nbsp;
      <% 
			'Add For V1.5 判断发积分帖权限
            if isReTopic = 0  or _
                (isReTopic = 1 and (isbanzhu <> "" or CInt(isAdmin)=9)) or _
                (isReTopic = 2 and CInt(isAdmin)=9) then
        %>
      <LABEL for="isRe1"><strong>回 复：</strong></label>
            <input name="isRe" type="radio" id="isRe1" value="1" checked>
            <label for="isRe1">允许</label> 
            <input name="isRe" type="radio" id="isRe2" value="0" >
            <label for="isRe2">不允许</label>
        <%
            else
        %>
            <input type="hidden" name="isRe" value="1">
      <%	
            end if					 
        %></td>
    <td width="625" height="42"   bgcolor="#FFF5F0" style="border-style:none"><% If ispicurl=1 And Dreamsun_name<>"" Then %>
            <DIV class="bo">
                <LABEL for=picurl><strong>幻 灯：</strong></label>
                <input name="picurl" type="text" id="picurl" size="50" maxlength="250">
            </DIV>
      <%End If %></td>
  </tr>
  <tr>
    <td height="42"   bgcolor="#FFF5F0" style="border-style:none"> <Label for=""><strong>&nbsp;&nbsp;&nbsp;作 者：</strong></Label>
      <%
                if Dreamsun_name= "" then
                    response.write"您目前是匿名发表 <A href='user.asp'  id='forUser'>登录</A> | <A href='user.asp?Action=reg'>注册</A>"
                else
                    response.write Dreamsun_name&" | <A href='user.asp?Action=exit' id='forUser'>退出</A>"
                end if
            %> </td>
    <td height="42"   bgcolor="#FFF5F0" style="border-style:none"><%if Dreamsun_name="" then%>
            <DIV class="bo">
                <Label for="valid_code"><strong>验证码：</strong></Label>
                <input name="zd_code" type="text" id="valid_code" size="4" maxlength="4" onKeyPress="if ((event.keyCode<48 || event.keyCode>57)) event.returnValue=false">
                <img src="inc/GetCode.asp?a=index" alt= "验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onClick="this.src='inc/GetCode.asp?a=index'">            </DIV>
        <%end if%>
    <DIV class="bo">
        <input type="submit" name="Submit" value="发表帖子">
        &nbsp;&nbsp;
        <input type="reset" name="Submit" value="重新填写"> 
      [Ctrl] + [Enter]直接提交帖子    </DIV></td>
  </tr>
  <tr>
    <td colspan="2"><font color=gray>
        发帖请遵守《计算机信息网络国际联网安全保护管理办法》、《互联网信息服务管理办法》、
        《互联网电子公告服务管理规定》、《维护互联网安全的决定》等法律法规。
        </font>
   
  
      <%
		Else 
			response.write "<BR><BR><CENTER>目前不允许游客发表新贴,请 <A href='user.asp'>登录</A> <A href='user.asp?Action=reg'>注册</A> 发贴.</CENTER><BR><BR>"
		End If 
		'------------------------------------------'发帖区域结束----------------------------------------------------
%> </td></tr>
  </form>
</table>
<table width="900" height="4" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#EC4D00" style="border-bottom-style: none; border-left-style:none; border-right-style:none">
          <tr>
            <td height="6" bgcolor="#FFFFFF" style="border-style:none"></td>
          </tr>
</table>
<%End if%>
<%
End Sub
%>