<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>姓名五格配对评分</TITLE>

<!--#include file="top.asp"--><SCRIPT language=javascript>
<!--
function Check(theForm)
{
var name1 = theForm.name1.value;
if (name1 == "") 
{
alert("请输入您的姓名！");
theForm.name1.value="";
theForm.name1.focus();
return false;
}
if (theForm.name1.value.length < 2 || theForm.name1.value.length>4)
{
alert("错误：名字应在2-4个字之间！");
theForm.name1.focus();
return (false);
}
if (name1.search(/[`1234567890-=\~!@#$%^&*()_+|<>;':",.?/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]/) != -1) 
{
alert("请务必输入简体汉字！");
theForm.name1.value = "";
theForm.name1.focus();
return false;
}
var name2 = theForm.name2.value;
if (name2 == "") 
{
alert("请输入您爱人的名字！");
theForm.name2.value="";
theForm.name2.focus();
return false;
}
if (theForm.name2.value.length < 2 || theForm.name2.value.length>4)
{
alert("错误：名字应在2-4个字之间！");
theForm.name2.focus();
return (false);
}
if (name2.search(/[`1234567890-=\~!@#$%^&*()_+|<>;':",.?/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]/) != -1) 
{
alert("请务必输入简体汉字！");
theForm.name2.value = "";
theForm.name2.focus();
return false;
}

}

//-->
</SCRIPT><!--#include file="../inc/function.asp"--><!--#include file="../inc/conn.asp"-->  
<div id="right">
<!--#include file="right.asp"-->
</div><div id="left">
<div style="width:100%">
  <table width="100%" border="0" cellspacing="0" cellpadding="0" class="b1" style="table-layout:fixed;word-wrap:break-word;">
<tbody><tr>
  <td width="81%" class="ttd"><span class="red">姓名五格配对评分:</span><br>
    根据《易经》的"象"、"数"理论，依据姓名的笔画数和一定规则建立起来天格、地格、人格、总格、外格等五格数理关系，并运用阴阳五行相生相克理论，来推算的各方面运势。 </td>
    <td width="19%" class="ttd"><img src="../images/xmpd.jpg" width="105" height="140"></td>
</tr>
<form name="form1" onSubmit="return Check(this)" method="post" action="">
<input type="hidden" name="act" value="ok" />
  <tr>
    <td colspan="2" class="new">
请输入您的姓名：<input name="name1" type="text" id="name1" size="20" onKeyUp="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" maxLength="4">&nbsp;<select size="1" name="xing1">
<option value="1" <%if xing2="" then%>selected="selected"<%end if%>>单姓</option>
<option value="2"<%if xing2<>"" then%>selected="selected"<%end if%>>复姓</option>
          </select>&nbsp;<select size="1" name="sex1">
<option value="男" <%if xingbie="男" then%>selected="selected"<%end if%>>男性</option>
<option value="女" <%if xingbie="女" then%>selected="selected"<%end if%>>女性</option>
          </select>
  <tr>
    <td colspan="2" class="new">输入另一个姓名:  <input name="name2" type="text" id="name2" size="20" onKeyUp="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" maxLength="4">&nbsp;<select size="1" name="xing2">
<option value="1">单姓</option>
<option value="2">复姓</option>
</select>&nbsp;<select size="1" name="sex2">
<option value="男" <%if xingbie="女" then%>selected="selected"<%end if%>>男性</option>
<option value="女" selected <%if xingbie="男" then%>selected="selected"<%end if%>>女性</option>
</select>
<input type="submit" name="Submit1" value="开始测试" style="cursor:hand;">
  </form>
    </tr></tbody>
</table><%
	if request("act")="ok" then
tiange=0
dige=0
renge1=0
renge2=0
renge=0
'姓
bihua1=0
bihua2=0
xing1=mid(xing,1,1)
xing11=mid(xing,1,1)
bihua1=getnum(xing1)
tiange=bihua1+1
tiangee=bihua1+1
renge1=bihua1
if mid(xing,2,1) <> "" then
xing2=mid(xing,2,1)
xing22=mid(xing,2,1)
bihua2=getnum(xing2)
tiange=bihua1+bihua2
tiangee=bihua1+bihua2
renge1=bihua2 
end if
'名
bihua3=0
bihua4=0
ming1=mid(ming,1,1)
ming11=mid(ming,1,1)
bihua3=getnum(ming1)
dige=bihua3+1
digee=bihua3+1
renge2=bihua3
if mid(ming,2,1) <> "" then
ming2=mid(ming,2,1)
ming22=mid(ming,2,1)
bihua4=getnum(ming2)
dige=bihua3+bihua4
digee=bihua3+bihua4
end if
zhongge=bihua1+bihua2+bihua3+bihua4
zhonggee=bihua1+bihua2+bihua3+bihua4
'计算三才
renge=renge1+renge2
rengee=renge1+renge2
waige=zhongge-renge
waigee=zhonggee-rengee
if mid(xing,2,1) = "" then
waige=waige+1
waigee=waigee+1
end if
if mid(ming,2,1) = "" then
waige=waige+1
waigee=waigee+1
end if%>
<%
name1=request.form("name1")
name2=request.form("name2")
xing1=request.form("xing1")
xing2=request.form("xing2")
sex1=request.form("sex1")
sex2=request.form("sex2")
tiange=0
dige=0
renge1=0
renge2=0
renge=0
bihua1=0
bihua2=0
nxing1=mid(name1,1,1)
nxing11=mid(name1,1,1)
bihua1=getnum(nxing1)
tiange1=bihua1+1
tiangee1=bihua1+1
renge1=bihua1
rengee1=bihua1
'判断第一个名字 姓
if xing1 = "2" then
nxing2=mid(name1,2,1)
nxing22=mid(name1,2,1)
bihua2=getnum(nxing2)
tiange1=bihua1+bihua2
tiangee1=bihua1+bihua2
renge1=bihua2
rengee1=bihua2
bihua3=0
bihua4=0
nming1=mid(name1,3,1)
nming12=mid(name1,3,1)
bihua3=getnum(nming1)
dige1=bihua3+1
digee1=bihua3+1
renge2=bihua3
rengee2=bihua3
if mid(name1,4,1) <> "" then
nming2=mid(name1,4,1)
nming22=mid(name1,4,1)
bihua4=getnum(nming2)
dige1=bihua3+bihua4
digee1=bihua3+bihua4
end if
else
bihua3=0
bihua4=0
nming1=mid(name1,2,1)
nming12=mid(name1,2,1)
bihua3=getnum(nming1)
dige1=bihua3+1
digee1=bihua3+1
renge2=bihua3
rengee2=bihua3
waige1=waige1+1
waigee1=waigee1+1
if mid(name1,3,1) <> "" then
nming2=mid(name1,3,1)
nming22=mid(name1,3,1)
bihua4=getnum(nming2)
dige1=bihua3+bihua4
digee1=bihua3+bihua4
end if
end if
zhongge1=bihua1+bihua2+bihua3+bihua4
zhonggee1=bihua1+bihua2+bihua3+bihua4
renge1=renge1+renge2
rengee1=rengee1+rengee2
waige1=zhongge1-renge1
waigee1=zhonggee1-rengee1
if nxing2 = "" then
waige1=waige1+1
waigee1=waigee1+1
end if
if nming2 = "" then
waige1=waige1+1
waigee1=waigee1+1
end if
%><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#5391EE"  style="MARGIN-BOTTOM: 10px; table-layout:fixed;word-wrap:break-word;">  
  <tbody>    <tr>
      <td colspan="3" class=new bgcolor="#FFFFFF">姓名：<%=name1%>  性别：<%=sex1%>  </td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="2" cellspacing="1"  style="MARGIN-BOTTOM: 10px; table-layout:fixed;word-wrap:break-word;">
        <tbody>
          <tr>
            <td bgcolor="#FFFFFF"></td>
            <td align="center" bgcolor="#FFFFFF"><font color="ababab">繁体</font></td>
            <td align="center" bgcolor="#FFFFFF"><font color="ababab">拼音</font></td>
            <td align="center" bgcolor="#FFFFFF"><font color="ababab">笔划</font></td>
            <td align="center" bgcolor="#FFFFFF"><font color="ababab">五行</font></td>
            </tr>
          <tr>
            <td  align="center" bgcolor="#FFFFFF" class="new2"><%=nxing1%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=GbToBig(nxing1)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=c(mid(nxing11,1,1))%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=bihua1%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=getzywh(nxing11)%></td>
          </tr>
          <tr>
         <%if nxing2<>"" then%>   <td align="center" bgcolor="#FFFFFF" class="new2"><%=nxing2%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=GbToBig(nxing2)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=c(nxing22)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=bihua2%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=getzywh(nxing22)%></td>
          </tr><%end if%>
          <tr>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=nming1%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=GbToBig(nming1)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=c(nming12)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=bihua3%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=getzywh(nming12)%></td>
          </tr>
          <%if nming2<>"" then%><tr>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=nming2%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=GbToBig(nming2)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=c(nming22)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=bihua4%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=getzywh(nming22)%></td>
          </tr><%end if%>
        </tbody>
      </table></td>
      <td width="25%" colspan="-3" align="center" bgcolor="#FFFFFF"  class="new2">天格-&gt; <%=tiange1%> (<%=getsancai(tiange1)%>) <%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&tiangee1&"'"
rs.open sql,conn,1,1
tgjx=rs("jx")
rs.close
tgf1=getpf(tgjx)
%> ->(<font color=red><%=tgjx%></font>)<br />
      <p>人格-&gt; <%=renge1%> (<%=getsancai(renge1)%>)<%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&rengee1&"'"
rs.open sql,conn,1,1
rgjx=rs("jx")
rs.close
rgf1=getpf(rgjx)
%> ->(<font color=red><%=rgjx%></font>)</p>        <p>地格-&gt; <%=dige1%> (<%=getsancai(dige1)%>)<%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&digee1&"'"
rs.open sql,conn,1,1
dgjx=rs("jx")
rs.close
dgf1=getpf(dgjx)
%> ->(<font color=red><%=dgjx%></font>)</p></td>
      <td width="25%"  class="new2" align="center" bgcolor="#FFFFFF">外格-&gt; <%=waige1%> (<%=getsancai(waige1)%>)<%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&waigee1&"'"
rs.open sql,conn,1,1
wgjx=rs("jx")
rs.close
wgf1=getpf(wgjx)
%> ->(<font color=red><%=wgjx%></font>)<br />
      <p>　</p>        <p>总格-&gt; <%=zhongge1%> (<%=getsancai(zhongge1)%>)<%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&zhonggee1&"'"
rs.open sql,conn,1,1
zgjx=rs("jx")
rs.close
zgf1=getpf(zgjx)
%> ->(<font color=red><%=zgjx%></font>)</p></td>
    </tr>
    <tr>
      <td colspan="3" class=new bgcolor="#FFFFFF">姓名蕴含的个性分析：<%sancai1=getsancai(tiangee1)+getsancai(rengee1)+getsancai(digee1)
	  sqlsancai="select * from sancai where title='"&sancai1&"'"
	  set rssancai=conn.execute(sqlsancai)
if not (rssancai.bof and rssancai.eof) then
xg1=rssancai("xg")
end if
%><%=xg1%></td>
    </tr>
  </tbody>
</table><%
name2=request.form("name2")
name2=request.form("name2")
xing1=request.form("xing1")
xing2=request.form("xing2")
sex1=request.form("sex1")
sex2=request.form("sex2")
ntiange=0
ndige=0
nrenge1=0
nrenge2=0
nrenge=0
nbihua1=0
nbihua2=0
n2xing1=mid(name2,1,1)
n2xing11=mid(name2,1,1)
nbihua1=getnum(n2xing1)
ntiange1=nbihua1+1
ntiangee1=nbihua1+1
nrenge1=nbihua1
nrengee1=nbihua1
'判断第一个名字 姓
if xing2 = "2" then
n2xing2=mid(name2,2,1)
n2xing22=mid(name2,2,1)
nbihua2=getnum(n2xing2)
ntiange1=nbihua1+nbihua2
ntiangee1=nbihua1+nbihua2
nrenge1=nbihua2
nrengee1=nbihua2
nbihua3=0
nbihua4=0
n2ming1=mid(name2,3,1)
n2ming12=mid(name2,3,1)
nbihua3=getnum(n2ming1)
ndige1=nbihua3+1
ndigee1=nbihua3+1
nrenge2=nbihua3
nrengee2=nbihua3
if mid(name2,4,1) <> "" then
n2ming2=mid(name2,4,1)
n2ming22=mid(name2,4,1)
nbihua4=getnum(n2ming2)
ndige1=nbihua3+nbihua4
ndigee1=nbihua3+nbihua4
end if
else
nbihua3=0
nbihua4=0
n2ming1=mid(name2,2,1)
n2ming12=mid(name2,2,1)
nbihua3=getnum(n2ming1)
ndige1=nbihua3+1
ndigee1=nbihua3+1
nrenge2=nbihua3
nrengee2=nbihua3
nwaige1=nwaige1+1
nwaigee1=nwaigee1+1
if mid(name2,3,1) <> "" then
n2ming2=mid(name2,3,1)
n2ming22=mid(name2,3,1)
nbihua4=getnum(n2ming2)
ndige1=nbihua3+nbihua4
ndigee1=nbihua3+nbihua4
end if
end if
nzhongge1=nbihua1+nbihua2+nbihua3+nbihua4
nzhonggee1=nbihua1+nbihua2+nbihua3+nbihua4
nrenge1=nrenge1+nrenge2
nrengee1=nrengee1+nrengee2
nwaige1=nzhongge1-nrenge1
nwaigee1=nzhonggee1-nrengee1
if n2xing2 = "" then
nwaige1=nwaige1+1
nwaigee1=nwaigee1+1
end if
if n2ming2 = "" then
nwaige1=nwaige1+1
nwaigee1=nwaigee1+1
end if
%><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#5391EE"  style="MARGIN-BOTTOM: 10px; table-layout:fixed;word-wrap:break-word;">  
  <tbody> <tr>
      <td colspan="3" class=new bgcolor="#FFFFFF">姓名：<%=name2%>  性别：<%=sex2%>  </td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="2" cellspacing="1"  style="MARGIN-BOTTOM: 10px; table-layout:fixed;word-wrap:break-word;">
        <tbody>
          <tr>
            <td bgcolor="#FFFFFF"></td>
            <td align="center" bgcolor="#FFFFFF"><font color="ababab">繁体</font></td>
            <td align="center" bgcolor="#FFFFFF"><font color="ababab">拼音</font></td>
            <td align="center" bgcolor="#FFFFFF"><font color="ababab">笔划</font></td>
            <td align="center" bgcolor="#FFFFFF"><font color="ababab">五行</font></td>
            </tr>
          <tr>
            <td  align="center" bgcolor="#FFFFFF" class="new2"><%=n2xing1%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=GbToBig(n2xing1)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=c(mid(n2xing11,1,1))%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=nbihua1%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=getzywh(n2xing11)%></td>
          </tr>
          <tr>
         <%if n2xing2<>"" then%>   <td align="center" bgcolor="#FFFFFF" class="new2"><%=n2xing2%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=GbToBig(n2xing2)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=c(n2xing22)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=nbihua2%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=getzywh(n2xing22)%></td>
          </tr><%end if%>
          <tr>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=n2ming1%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=GbToBig(n2ming1)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=c(n2ming12)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=nbihua3%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=getzywh(n2ming12)%></td>
          </tr>
          <%if n2ming2<>"" then%><tr>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=n2ming2%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=GbToBig(n2ming2)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><font color="aaaaaa"><%=c(n2ming22)%></font></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=nbihua4%></td>
            <td align="center" bgcolor="#FFFFFF" class="new2"><%=getzywh(n2ming22)%></td>
          </tr><%end if%>
        </tbody>
      </table></td>
      <td width="25%" colspan="-3" align="center" bgcolor="#FFFFFF"  class="new2">天格-&gt; <%=ntiange1%> (<%=getsancai(ntiange1)%>) <%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&ntiangee1&"'"
rs.open sql,conn,1,1
tgjx=rs("jx")
rs.close
tgf2=getpf(tgjx)
%> ->(<font color=red><%=tgjx%></font>)<br />
      <p>人格-&gt; <%=nrenge1%> (<%=getsancai(nrenge1)%>)<%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&nrengee1&"'"
rs.open sql,conn,1,1
rgjx=rs("jx")
rs.close
rgf2=getpf(rgjx)
%> ->(<font color=red><%=rgjx%></font>)</p>        <p>地格-&gt; <%=ndige1%> (<%=getsancai(ndige1)%>)<%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&ndigee1&"'"
rs.open sql,conn,1,1
dgjx=rs("jx")
rs.close
dgf2=getpf(dgjx)
%> ->(<font color=red><%=dgjx%></font>)</p></td>
      <td width="25%"  class="new2" align="center" bgcolor="#FFFFFF">外格-&gt; <%=nwaige1%> (<%=getsancai(nwaige1)%>)<%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&nwaigee1&"'"
rs.open sql,conn,1,1
wgjx=rs("jx")
rs.close
wgf2=getpf(wgjx)
%> ->(<font color=red><%=wgjx%></font>)<br />
      <p>　</p>        <p>总格-&gt; <%=nzhongge1%> (<%=getsancai(nzhongge1)%>)<%set rs=server.createobject("adodb.recordset")
sql="select * from 81 where num='"&nzhonggee1&"'"
rs.open sql,conn,1,1
zgjx=rs("jx")
rs.close
zgf2=getpf(zgjx)
%> ->(<font color=red><%=zgjx%></font>)</p></td>
    </tr>
    <tr>
      <td colspan="3" class=new bgcolor="#FFFFFF">姓名蕴含的个性分析：<%sancai1=getsancai(ntiangee1)+getsancai(nrengee1)+getsancai(ndigee1)
	  sqlsancai="select * from sancai where title='"&sancai1&"'"
	  set rssancai=conn.execute(sqlsancai)
if not (rssancai.bof and rssancai.eof) then
xg1=rssancai("xg")

end if
%><%=xg1%></td>
    </tr>
  </tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="b1" style="table-layout:fixed;word-wrap:break-word;">
    <TBODY>
      <tr><%
	  n1=abs(rgf1-rgf2)
	  n2=abs(dgf1-dgf2)
	  n3=abs(zgf1-zgf2)
	  n4=abs(tgf1-tgf2)
	  n5=abs(wgf1-wgf2)
	  zf=(n1+n2+n3)+(n4+n5)/5
	  zf=round(100-zf)
	  %>
        <TD class=ttd>经过分析，[<%=name1%>]和[<%=name2%>]的姓名配对评分如下：</TD>
      </tr>      <tr>
        <TD class=new>姓名缘份指数：<span class="pf"><%=zf%></span></TD>
        </tr>  <tr>
        <TD class=new><%if sex1=sex2 then%><font color=red>本站是按中国民俗学的一些测算方法来计算的，暂时不支持同性缘份的测试</font><%else%><font color=green>
		 <%if zf<60 then%>你们的姓名五格可能不是太合，不过八字配合所起的作用更大，另外彼此的努力也会让你们改善关系，记住：事在人为！
		<%elseif zf<70 and zf>=60 then%>
		你们的姓名五格相合程度马马虎虎，不过八字配合所起的作用更大，继续努力改善关系，会对你们的关系有帮助的！ 
		<%elseif zf<80 and zf>=70 then%>你们的姓名五格相合一般！ 
		<%elseif zf<80 and zf>=70 then%>你们的姓名五格相合程度还不错哟！ 
		<%elseif zf<90 and zf>=80 then%>
		你们的姓名五格相合程度相当棒！ 
		<%elseif zf>=90then%>
		你们的姓名五格相合程度太棒了！！恭喜！</font><%if name1=name2 then%><br /><font color=#0000ff>^_^ 你们俩同名同姓嘛，真巧哟！</font> <%end if%><%end if%>
		<%end if%></TD>
        </tr>
    </TBODY>
</TABLE>
<%end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="b1" style="table-layout:fixed;word-wrap:break-word;">
  <TBODY>
    <tr>
      <TD align="left" class=new style="PADDING-BOTTOM:5px"><script src="../images/urlcopy.js"></script></TD>
    </tr>
  </TBODY>
</TABLE>
</div>
</div>
<!--#include file="../foot.asp"-->
</center>
</body></html>
