<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp"-->
<!--#include file="webtop.asp"-->
<!--#include file="sqlin.asp"-->
<%leixing=lcase(trim(request("lx")))
anclassid=request("anid")%> 

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=1) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}
//-->
var link_1=new Array(); //第一个连接列表

link_1[0]="<a href=class.asp?px=0 >Recommended products</a>";
link_1[1]="<a href=class.asp?px=1 >Date in stock (ascending)</a>";
link_1[2]="<a href=class.asp?px=2 >Date in stock (descending)</a>";
link_1[3]="<a href=class.asp?px=3 >Price range (ascending)</a>";
link_1[4]="<a href=class.asp?px=4 >Price range (descending)</a>";
link_1[5]="<a href=class.asp?px=5 >Rank (ascending)</a>";
link_1[6]="<a href=class.asp?px=6 >Rank (descending)</a>";

		  
var nStep = 10;
//动态效果速度
var nDelay = 20;
//动态效果延迟时间
var nChunk=25; 

nChunk = nStep;


function gg() {

document.all.aa.style.clip= "rect(0 "+ nChunk + "% " + nChunk + "% 0)";
nChunk += nStep;
//alert(nChunk);
nChunk<=200?setTimeout("gg()",nDelay):null
}
	

function aa() {
MM_showHideLayers('aa','','show');
return gg();
}

function bb() {
MM_showHideLayers('aa','','hide');
nChunk = 25;
}

</script>
<!-- onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">-->
<table width="1000" align="center" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
  <tr>
    <td width="20">&nbsp;</td>
    <td valign="bottom"><img src="<%=weburl%>images/arrow01.gif" width="11" height="11" /> Your present position: <a href="<%=weburl%>"><%=webname%></a> ->
      <%
set rs=server.createobject("adodb.recordset")
if leixing="big" then
anclassid=nosql(request("anid"))
if Not isChkInteger(anclassid) then
%>
  　　　<script language=javascript>alert("参数错误！");window.close();</script>
<%
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_anclass where xs=2 and anclassid="&anclassid,conn,1,1
if rs.recordcount=0 then 
%>
<script language='javascript'>alert('分类调用错误，请返回！');window.location.href='index.asp';</script>
<%end if
						anclassname=rs("anclass")
						pic=trim(rs("pic"))
						links=trim(rs("links"))
						sztys=trim(rs("sztys"))
						flsl=trim(rs("spdlh"))
						fll=trim(rs("spdll"))
						rs.close
						xml="<a href=rss_class.asp?lx=big&a="&anclassid&"><img src=img/xml.gif border=0  alt=""RSS2.0支持""></a>"
						response.write anclassname
												set rs_class=server.createobject("adodb.recordset")
												rs_class.open "select  count(*) from wygkcn_shop where anclassid="&anclassid,conn,1,1
												response.write "(Total:<font color=#FF0000>"&rs_class(0)&"</font>)"
												rs.open "select * from wygkcn_shop where anclassid="&anclassid&" order by adddate desc",conn,1,1
elseif leixing="small" then
anclassid=nosql(request("anid"))
nclassid=nosql(request("nid"))
		if Not isChkInteger(anclassid) then
%>
		<script language=javascript>alert("参数错误！");window.close();</script>
<%
		response.end
		end if
					  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
						anclassname=rs("anclass")
						sztys=trim(rs("sztys"))
						rs.close
						if Not isChkInteger(nclassid) then%>
             　　　　　　　 <script language=javascript>alert("参数错误！");window.close();</script>
              　　　　　<%response.end
						end if
						rs.open "select * from shop_nclass where nclassid="&nclassid,conn,1,1
						if rs.recordcount=0 then%>
              <script language='javascript'>alert('分类调用错误，请返回！');window.location.href='index.asp';</script>
              　　　　　<%end if
						nclassname=rs("nclass")
						piccc=trim(rs("piccc"))
						links=trim(rs("links"))
						xsztys=trim(rs("xsztys"))
						flsl=trim(rs("spxlh"))
						fll=trim(rs("spxll"))
						rs.close
						xml= "<a href=rss_class.asp?lx=big&a="&anclassid&"&n="&nclassid&"><img src=img/xml.gif border=0  alt=""RSS2.0支持""></a>"
		response.write "<a href=class.asp?lx=big&anid="&anclassid&">"&anclassname&"</a> -> "&nclassname&""
												set rs_nclass=server.createobject("adodb.recordset")
												rs_nclass.open "select  count(*) from wygkcn_shop where nclassid="&nclassid,conn,1,1
												response.write "(Total:<font color=#FF0000>"&rs_nclass(0)&"</font>)"
												rs.open "select * from wygkcn_shop where anclassid="&anclassid&" and nclassid="&nclassid&" order by adddate desc",conn,1,1
elseif leixing="snsn" then
anclassid=nosql(request("anid"))
nclassid=nosql(request("nid"))
xclassid=nosql(request("xid"))
		if Not isChkInteger(anclassid) then
%>
		<script language=javascript>alert("参数错误！");window.close();</script>
<%
		response.end
		end if
					  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
						anclassname=rs("anclass")
						sztys=trim(rs("sztys"))
						rs.close
						if Not isChkInteger(nclassid) then%>
             　　　　　　　 <script language=javascript>alert("参数错误！");window.close();</script>
              　　　　　<%response.end
						end if
						rs.open "select * from shop_nclass where nclassid="&nclassid,conn,1,1
						if rs.recordcount=0 then%>
              <script language='javascript'>alert('分类调用错误，请返回！');window.location.href='index.asp';</script>
              　　　　　<%end if
						nclassname=rs("nclass")
						rs.close
						if Not isChkInteger(xclassid) then%>
             　　　　　　　 <script language=javascript>alert("参数错误！");window.close();</script>
              　　　　　<%response.end
						end if
						rs.open "select * from shop_xclass where id="&xclassid,conn,1,1
						if rs.recordcount=0 then%>
              <script language='javascript'>alert('分类调用错误，请返回！');window.location.href='index.asp';</script>
    　　　　　<%end if
						xclassname=rs("xclass")
						xpic=trim(rs("xpic"))
						xurl=trim(rs("xurl"))
						xxs=trim(rs("xxs"))
						flsl=trim(rs("xh"))
						fll=trim(rs("xl"))
						rs.close
						xml= "<a href=rss_class.asp?lx=big&a="&anclassid&"&n="&nclassid&"><img src=img/xml.gif border=0  alt=""RSS2.0支持""></a>"
		response.write "<a href=class.asp?lx=big&anid="&anclassid&">"&anclassname&"</a> -> <a href=class.asp?lx=small&anid="&anclassid&"&nid="&nclassid&">"&nclassname&"</a> -> "&xclassname&""
												set rs_nclass=server.createobject("adodb.recordset")
												rs_nclass.open "select  count(*) from wygkcn_shop where nclassid="&nclassid&" and xclassid="&xclassid,conn,1,1
												response.write "(Total:<font color=#FF0000>"&rs_nclass(0)&"</font>)"
												rs.open "select * from wygkcn_shop where anclassid="&anclassid&" and nclassid="&nclassid&" and xclassid="&xclassid&" order by adddate desc",conn,1,1
elseif leixing="tejia" then 
		response.write "Free gift" 
		xml= "<a href=rss_class.asp?lx=tejia><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
		set rs_nclass=server.createobject("adodb.recordset")
		rs_nclass.open "select  count(*) from wygkcn_shop where tejiashop=1",conn,1,1
		response.write "(Total:<font color=#FF0000>"&rs_nclass(0)&"</font>)"
		rs.open "select * from wygkcn_shop where tejiashop=1 order by adddate desc",conn,1,1
elseif leixing="cx" then 
		response.write "Recommend" 
		xml= "<a href=rss_class.asp?lx=cx><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
		set rs_nclass=server.createobject("adodb.recordset")
		rs_nclass.open "select  count(*) from wygkcn_shop where cxiaoshop=1",conn,1,1
		response.write "(Total:<font color=#FF0000>"&rs_nclass(0)&"</font>)"
		rs.open "select * from wygkcn_shop where cxiaoshop=1 order by adddate desc",conn,1,1
elseif leixing="news" then 
		response.write "New Arrival" 
		xml= "<a href=rss_class.asp?lx=news><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
		set rs_nclass=server.createobject("adodb.recordset")
		rs_nclass.open "select  count(*) from wygkcn_shop where newsshop=1",conn,1,1
		response.write "(Total:<font color=#FF0000>"&rs_nclass(0)&"</font>)"
		rs.open "select * from wygkcn_shop where newsshop=1 order by adddate desc",conn,1,1
elseif leixing="tj" then
		response.write "Special offer"
		xml= "<a href=rss_class.asp?lx=tj><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
		set rs_nclass=server.createobject("adodb.recordset")
		rs_nclass.open "select  count(*) from wygkcn_shop where bestshop=1",conn,1,1
		response.write "(Total:<font color=#FF0000>"&rs_nclass(0)&"</font>)"
		rs.open "select * from wygkcn_shop where bestshop=1 order by adddate desc",conn,1,1
elseif leixing="cx" then
		response.write "Recommend"
		xml= "<a href=rss_class.asp?lx=cx><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
		set rs_nclass=server.createobject("adodb.recordset")
		rs_nclass.open "select  count(*) from wygkcn_shop where cxiaoshop=1",conn,1,1
		response.write "(Total:<font color=#FF0000>"&rs_nclass(0)&"</font>)"
		rs.open "select * from wygkcn_shop where cxiaoshop=1 order by adddate desc",conn,1,1
else
 xml= "<a href=rss_class.asp?lx=tejia><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
      response.write "其它查看方式"
		px=request.QueryString("px")
				if px="" then
						set rs_nclass=server.createobject("adodb.recordset")
						rs_nclass.open "select  count(*) from wygkcn_shop where newsshop=1",conn,1,1
						response.write "(Total:<font color=#FF0000>"&rs_nclass(0)&"</font>)"
				rs.open "select * from wygkcn_shop where newsshop=1 order by adddate desc",conn,1,1
				else
						set rs_nclass=server.createobject("adodb.recordset")
						rs_nclass.open "select  count(*) from wygkcn_shop",conn,1,1
						response.write "(Total:<font color=#FF0000>"&rs_nclass(0)&"</font>)"

				select case px
				case "0" 
						rs.open "select * from wygkcn_shop where  bestshop=1 ",conn,1,1
				case "1" 
						rs.open "select * from wygkcn_shop order by adddate asc",conn,1,1
				case "2" 
						rs.open "select * from wygkcn_shop  order by adddate desc",conn,1,1
				case "3" 
						rs.open "select * from wygkcn_shop  order by shichangjia desc",conn,1,1
				case "4" 
						rs.open "select * from wygkcn_shop  order by shichangjia asc",conn,1,1
				case "5" 
						rs.open "select * from wygkcn_shop  order by sx desc",conn,1,1
				case "6" 
						rs.open "select * from wygkcn_shop  order by sx asc",conn,1,1
				end select
				end if
end if
%></td>
    <td valign="bottom">        
    </td>
  </tr>
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
</table>
<table width="1000"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="205" valign="top">
      <!--#include file="index_login.asp"--><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table><%if anclassid <> ""  then%>
	  <table width="200" border="0" align="center" cellpadding="1" cellspacing="1" background="<%=weburl%>images/skin<%=cssid%>/z02.jpg">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td height="30" background="<%=weburl%>images/skin<%=cssid%>/z01.jpg"><div align="center"><span style="font-weight: bold; color: #000000">All Subdirectories</span></div></td>
            </tr>
            <tr>
              <td valign="middle"><table align=center cellSpacing=0 cellPadding=0 width="93%" border=0>
                            <%
		'dim rss,rs2,ii,i
		set rss = server.CreateObject ("adodb.recordset")
		set rs2 = server.CreateObject ("adodb.recordset")
		sql = "select nclass,nclassid,xsztys from shop_nclass where anclassid="&anclassid&" and xs=2 order by nclassidorder asc"
		rss.open sql,conn,1,1
		if rss.eof and rss.bof then
		response.write "没有添加分类"
		else
		i=1
		do while not rss.eof
	 %>
                            <TR>
                              <TD height=24 id=item$pval[CatID]) style="CURSOR: hand" onMouseUp="opencat(cat10<%=i%>000,&#13;&#10;  img10<%=i%>000);" language=javascript> 　<IMG src="<%=weburl%>images/btn_on.gif" width="15" height="15" align=absMiddle id=img10<%=i%>000>　<font color=<%=trim(rss("xsztys"))%>><%=rss("nclass")%><%
           classsl=conn.execute("Select count(*)from wygkcn_shop where nclassid="&rss("nclassid")&"")(0)
		   response.write "(<font color=#FF0000>"&classsl&"</font>)"%></font>
                              <SCRIPT language=javascript>
	function opencat(cat,img)
	{
 	 	if(cat.style.display=="none"){
     	cat.style.display="";
    	 img.src="<%=weburl%>images/btn_vdn.gif";
  		} else {
     	cat.style.display="none"; 
     	img.src="<%=weburl%>images/btn_on.gif";
  		}
	}
	            </SCRIPT></TD>
                          </TR>
                            <TR>
                              <TD id=cat10<%=i%>000 style="DISPLAY: none">
                                <%
				sql =  "select * from shop_xclass where anclassid="&anclassid&" and nclassid="&rss("nclassid")&" and xxs=2 order by xpx asc"
				rs2.open sql,conn,1,1
				if rs2.eof and rs2.bof then
				response.write "<IMG height=20 src="""&weburl&"img/class3.gif"" width=36 align=absMiddle border=0><a href=""class.asp?lx=small&anid="& anclassid&"&nid=" & rss("nclassid") & """ >Show this Category </a>"
				else
				ii=1
				do while not rs2.eof
			%>
                              <IMG height=20 src="img/class3.gif" width=36 align=absMiddle border=0><A href=class.asp?lx=snsn&anid=<%=anclassid%>&nid=<%=rss("nclassid")%>&xid=<%=rs2("id")%>><%=rs2("xclass")%><%
           classsl=conn.execute("Select count(*)from wygkcn_shop where xclassid="&rs2("id")&"")(0)
		   response.write "(<font color=#FF0000>"&classsl&"</font>)"%></font></a><BR>
                              <%
				rs2.movenext
				ii=ii+1
				loop
				end if
				rs2.close
			%>                              </TD>
                            </TR>
                            <%
		rss.movenext
		i=i+1
		loop
		end if
		rss.close
  		set rs2=nothing
  		set rss=nothing
	%>
                        </table></td>
            </tr>
        </table></td>
      </tr>
    </table>
<%
end if
%><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table>
	  <!--#include file="rexiao.asp"--><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table>
	  
    </td><td height="30" valign="top">	  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="sm_debrown">
          <tr>
            <td height="30" colspan="2" background="<%=weburl%>images/skin<%=cssid%>/newsbj.gif">&nbsp;<a href="?lx=<%=lcase(trim(request("lx")))%>&anid=<%=anclassid%>&nid=<%=nclassid%>&xid=<%=xclassid%>&px=<%=request.QueryString("px")%>&text=2" style="font-weight: bold">Picture Version</a> | <a href="?lx=<%=lcase(trim(request("lx")))%>&anid=<%=anclassid%>&nid=<%=nclassid%>&xid=<%=xclassid%>&px=<%=request.QueryString("px")%>&text=1" style="font-weight: bold">Text Version</a> | <font 
                  color=#ff6600><a href="class_zhk.asp?action=1">SAVE 80%-90%</a></font> <font 
                  color=#ff6600><a href="class_zhk.asp?action=2">70%-80%</a></font> <font 
                  color=#ff6600><a href="class_zhk.asp?action=3">60%-70%</a></font> <font 
                  color=#ff6600><font 
                  color=#ff6600><a href="class_zhk.asp?action=4">60%-50%</a></font></font> <a href="class_zhk.asp">MORE DISCOUNT</a> | <span  onMouseOver="aa()" onMouseOut="bb()">OTHER VERSION</span>
              <div id="Layer1" style="position:absolute; z-index:0">
                <div id="aa" style="position:absolute; width:130px; height:260px;left:-4.5px;top:-1px; z-index:6; visibility: hidden;filter: Alpha(Opacity=90,Style=0) Shadow(Color=#000000, Direction=-225,Strength=3)" onMouseOver="MM_showHideLayers('aa','','show')" onMouseOut="bb()">
                  <table width="120" border="0" cellpadding="2" cellspacing="0" bgcolor="#ffffff">
                    <script language=javascript>
			var j;
			for (j=0;j<link_1.length;j++){
			document.write('<tr align=center><td height=100% width=100% class=tblbevel1>'+link_1[j]+'</td></tr>');
		  }
		      </script>
                  </table>
                </div>
            </div></td>
            <td width="60" background="<%=weburl%>images/skin<%=cssid%>/newsbj.gif"><div align="right"><%=xml%>&nbsp;</div></td>
          </tr>
      </table>      
        <table width="795" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><%
if x1<>"" then
      response.Write "<a href="&x1url&" target=_blank><img src="&x1&" width="&x1w&" height="&x1h&"  border=0></a>"
end if
if  x2<>"" then
      response.Write "<a href="&x2url&" target=_blank><img src="&x2&" width="&x2w&" height="&x2h&"  border=0></a>"
end if
if  x3<>"" then
      response.Write "<a href="&x3url&" target=_blank><img src="&x3&" width="&x3w&" height="&x3h&"  border=0></a>"
end if 
if x4<>"" then
      response.Write "<a href="&x4url&" target=_blank><img src="&x4&" width="&x4w&" height="&x4h&"  border=0></a>"
end if
%></td>
          </tr>
        </table>
        <%if rs.recordcount=0 then%>
        <table width="370" border="0" cellspacing="0" cellpadding="5" align="center">
          <tr>
            <td align=center>No Products</td>
          </tr>
        </table>
        <%
		else

		if request.QueryString("text")=1 then'如果是文字形式 则列等于 1
		text=1
		l=1
		elseif  request.QueryString("text")=2 then'如果是文字形式 则列等于 1
        l=fll	
		else
				if class_text=1 then
		           text=1
		           l=1
		        else
				   l=fll			'显示的列数
		        end if
		end if
			hang=flsl			'显示的行数
	  		rs.PageSize =hang*l '每页记录条数,必须是3的倍数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page
			response.write "<table>"
		for ii=1 to hang
			response.write "<tr>"
			for jj=1 to l
				response.write "<td>"
				if not rs.eof then
					%>
        <!--#include file="class_shangpin.asp"-->
        <%rs.movenext
				else
					response.write "&nbsp;"
				end if
				response.write "</td>"
			next
			response.write "</tr>"
		next
			response.write "</table>"
			
		call PageControl(iCount,maxpage,page,"border=0 align=center widtj=100% ","<p align=center>")
		end if
		rs.close
		set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("First " & vbCrLf)        
        Response.Write ("Prev " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>First</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">Prev</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("Next " & vbCrLf)
        Response.Write ("Last " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">Next</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">Last</A> " & vbCrLf)            
    end if

    Response.Write(" Totel Page：" & page & "/" & pageCount & " " &  vbCrLf)
    Response.Write(" Totel Goods：" & iCount & " " &  vbCrLf) 
    Response.Write(" Goto Page：" & "<INPUT TYEP=TEXT class=wenbenkuang NAME=page SIZE=3 Maxlength=5 VALUE=" & page & ">" & ""  & vbCrLf & "<input name=go type=image  src=" &weburl&"img/butn_go.gif alt=GO align=absMiddle  border=0>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%>
    <a href="help.asp"><font color="#FF0000"> </font></a></td><td width="12" valign="top">&nbsp;</td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>