<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="../Inc/Conn.asp" -->
<!--#include file="../Inc/SK.Session.asp" -->
<!--#include file="../Inc/SK.Funtion.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>系统桌面</title>
<META http-equiv=Page-Enter content=SKCRM>
<META http-equiv=Page-Exit content=SKCRM>
<META content="MSHTML 6.00.3790.2858" name=GENERATOR>
<LINK href="../images/style.css" type=text/css rel=stylesheet>
<script language="javascript" src="../Inc/Check.js"></script>
<script language="javascript" src="../Inc/Calendar.js"></script>
<script language="javascript">
<!--  
  if (window == top)top.location.href = "index.asp";
// -->
</script>
<style type="text/css">
<!--
body {
margin: 5px 0px 5px 0px;
overflow-x: hidden;
}
-->
</style>
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<TBODY>
<tr>
<td class="SK_Td_Top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12" height="25"><img src="../images/tab_03.gif" width="12" height="25" /></td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="46%" valign="middle">系统桌面</td>
<td width="54%"></td>
</tr>
</table></td>
<td width="16"><img src="../images/tab_07.gif" width="16" height="25" /></td>
</tr>
</table></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8" background="../images/tab_12.gif"></td>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="b5d6e6">
<tr>
<td class="SK_Title1">论坛新帖</td>
<td class="SK_Title1">最新新闻</td>
</tr>
<tr>
<td width="50%" class="SK_Text1" valign="top">
<%
Dim Rs12,M
set rs12=Server.createobject("adodb.recordset")
sql12="select top 5 * from SK_OfficeForum order by ForumID Desc"
rs12.open sql12,conn,1,1
if rs12.bof and rs12.eof then 
Call ReturnError8()
else
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<%
M=0
while not rs12.eof
M=M+1
%>
<tr onMouseOver="this.style.backgroundColor = '#ECECFF';" onMouseOut="this.style.backgroundColor = '#FFFFFF';">
<td width="70%" class="hometd"><%=M%>.
<a href="javascript:void(0)" onClick="javascript:var win=window.open('../Office/SK.ReBBS.asp?id=<%=Rs12("ForumID")%>','Read','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes');win.focus()" title="作者：<%
set RsFuser=server.createobject("adodb.recordset")
SqlFuser="select * from SK_SystemUsers where UsersID="&Rs12("SK_SalesID")&""
RsFuser.open SqlFuser,conn,1,1
Response.write""&RsFuser("SK_OName")&""
RsFuser.close
Set RsFuser=Nothing
%>"><%=left(Rs12("SK_Title"),20)%></a></td>
<td width="30%" align="left"><%=Rs12("SK_Atime")%></td>
</tr>
<tr>
<td Height=1 colspan="2" background="../images/SK_Line.gif"></td>
<%
rs12.movenext
wend
%>
<tr>
<td colspan="2" height="2"></td>
</tr>
</table>
<%
end if
rs12.close
Set Rs12=Nothing
%></td>
<td width="50%" class="SK_Text1" valign="top">
<%
Dim Rs13,N
set rs13=Server.createobject("adodb.recordset")
sql13="select top 5 * from SK_OfficeNews order by NewsID Desc"
rs13.open sql13,conn,1,1
if rs13.bof and rs13.eof then 
Call ReturnError8()
else
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<%
N=0
while not rs13.eof
N=N+1
%>
<tr onMouseOver="this.style.backgroundColor = '#ECECFF';" onMouseOut="this.style.backgroundColor = '#FFFFFF';">
<td width="70%" class="hometd"><%=N%>.
<a href="javascript:void(0)" onClick="javascript:var win=window.open('../Office/SK.ReNews.asp?id=<%=Rs13("NewsID")%>','Read','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes');win.focus()"><%=left(Rs13("SK_Title"),20)%></a></td>
<td width="30%" align="left"><%=Rs13("SK_ATime")%></td>
</tr>
<tr>
<td Height=1 colspan="2" background="../images/SK_Line.gif"></td>
<%
rs13.movenext
wend
%>
<tr>
<td colspan="2" height="2"></td>
</tr>
</table>
<%
end if
rs13.close
Set Rs13=Nothing
%></td>
</tr>
<%if Getconfig("SK_Client")="0" AND (Session("Manager")="1" OR (JudgePopedomTF(Session("UserName"),"SK200000000"))) then%>
<tr>
<td height="26" class="SK_Title1">最新客户</td>
<td class="SK_Title1">最新跟进</td>
</tr>
<tr>
  <td class="SK_Text1" height="22" valign="top">
<%
Dim Rs14,A
set rs14=Server.createobject("adodb.recordset")
if Session("Manager")=1 or Session("Manager")=2 then
sql14="select top 5 * from SK_Client where SK_Del=0 order by ClientID Desc"
elseif Session("Manager")=3 then
sql14="select top 5 * from SK_Client INNER JOIN SK_SystemUsers ON SK_Client.SK_SalesID=SK_SystemUsers.UsersID where SK_Client.SK_Del=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" Order by SK_Client.ClientID Desc"
elseif Session("Manager")=4 then
sql14="select top 5 * from SK_Client INNER JOIN SK_SystemUsers ON SK_Client.SK_SalesID=SK_SystemUsers.UsersID where SK_Client.SK_Del=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" Order by SK_Client.ClientID Desc"
elseif Session("Manager")=5 then
sql14="select top 5 * from SK_Client INNER JOIN SK_SystemUsers ON SK_Client.SK_SalesID=SK_SystemUsers.UsersID where SK_Client.SK_Del=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" and SK_SystemUsers.SK_Dept3="&Session("Dept3")&" Order by SK_Client.ClientID Desc"
elseif Session("Manager")=6 then
sql14="select top 5 * from SK_Client where SK_Del=0 AND SK_SalesID="&Session("UID")&" order by ClientID Desc"
end if
rs14.open sql14,conn,1,1
if rs14.bof and rs14.eof then 
Call ReturnError8()
else
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<%
A=0
while not rs14.eof
A=A+1
%>
<tr onMouseOver="this.style.backgroundColor = '#ECECFF';" onMouseOut="this.style.backgroundColor = '#FFFFFF';">
<td width="70%" class="hometd">
<a href="javascript:void(0)" onClick="javascript:var win=window.open('../Client/SK.ReClient.asp?id=<%=Rs14("ClientID")%>','Read','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes');win.focus()"><%=left(Rs14("SK_Wname"),20)%></a></td>
<td width="30%" align="left"><%=Rs14("SK_ATime")%></td>
</tr>
<tr>
<td Height=1 colspan="2" background="../images/SK_Line.gif"></td>
<%
rs14.movenext
wend
%>
<tr>
<td colspan="2" height="2"></td>
</tr>
</table>
<%
end if
rs14.close
Set Rs14=Nothing
%></td>
<td class="SK_Text1" valign="top">
<%
Dim Rs15,B
set rs15=Server.createobject("adodb.recordset")
if Session("Manager")=1 or Session("Manager")=2 then
sql15="select top 5 * from SK_Follow order by FollowID Desc"
elseif Session("Manager")=3 then
sql15="select top 5 * from SK_Follow INNER JOIN SK_SystemUsers ON SK_Follow.SK_SalesID=SK_SystemUsers.UsersID where SK_Follow.SK_Del=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" Order by SK_Follow.FollowID Desc"
elseif Session("Manager")=4 then
sql15="select top 5 * from SK_Follow INNER JOIN SK_SystemUsers ON SK_Follow.SK_SalesID=SK_SystemUsers.UsersID where SK_Follow.SK_Del=0 and  SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" Order by SK_Follow.FollowID Desc"
elseif Session("Manager")=5 then
sql15="select top 5 * from SK_Follow INNER JOIN SK_SystemUsers ON SK_SalesOrders.SK_SalesID=SK_SystemUsers.UsersID where SK_Follow.SK_Del=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" and SK_SystemUsers.SK_Dept3="&Session("Dept3")&" Order by SK_Follow.FollowID Desc"
elseif Session("Manager")=6 then
sql15="select top 5 * from SK_Follow where SK_SalesID="&Session("UID")&" order by FollowID Desc"
end if
rs15.open sql15,conn,1,1
if rs15.bof and rs15.eof then 
Call ReturnError8()
else
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<%
B=0
while not rs15.eof
B=B+1
%>
<tr onMouseOver="this.style.backgroundColor = '#ECECFF';" onMouseOut="this.style.backgroundColor = '#FFFFFF';">
<td width="70%" class="hometd">
<a href="javascript:void(0)" onClick="javascript:var win=window.open('../Client/SK.ReFollow.asp?id=<%=Rs15("FollowID")%>','Read','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes');win.focus()"><%=left(Rs15("SK_Ftitle"),20)%></a></td>
<td width="30%" align="left"><%=Rs15("SK_AFollowtime")%></td>
</tr>
<tr>
<td Height=1 colspan="2" background="../images/SK_Line.gif"></td>
<%
rs15.movenext
wend
%>
<tr>
<td colspan="2" height="2"></td>
</tr>
</table>
<%
end if
rs15.close
Set Rs15=Nothing
%></td>
</tr>
<%end if%>
<%if Getconfig("SK_Sales")="0" AND (Session("Manager")="1" OR (JudgePopedomTF(Session("UserName"),"SK300000000"))) then%>
<tr>
<td height="26" class="SK_Title1">最新报价</td>
<td class="SK_Title1">最新订单</td>
</tr>
<tr>
<td height="22" valign="top" class="SK_Text1">
<%
Dim Rs16,C
set rs16=Server.createobject("adodb.recordset")
if Session("Manager")=1 or Session("Manager")=2 then
sql16="select top 5 * from SK_SalesProPrice order by ProPriceID Desc"
elseif Session("Manager")=3 then
sql16="select top 5 * from SK_SalesProPrice INNER JOIN SK_SystemUsers ON SK_SalesProPrice.SK_SalesID=SK_SystemUsers.UsersID where SK_SalesProPrice.SK_Del=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" Order by SK_SalesProPrice.ProPriceID Desc"
elseif Session("Manager")=4 then
sql16="select top 5 * from SK_SalesProPrice INNER JOIN SK_SystemUsers ON SK_SalesProPrice.SK_SalesID=SK_SystemUsers.UsersID where SK_SalesProPrice.SK_Del=0 and  SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" Order by SK_SalesProPrice.ProPriceID Desc"
elseif Session("Manager")=5 then
sql16="select top 5 * from SK_SalesProPrice INNER JOIN SK_SystemUsers ON SK_SalesProPrice.SK_SalesID=SK_SystemUsers.UsersID where SK_SalesProPrice.SK_Del=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" and SK_SystemUsers.SK_Dept3="&Session("Dept3")&" Order by SK_SalesProPrice.ProPriceID Desc"
elseif Session("Manager")=6 then
sql16="select top 5 * from SK_SalesProPrice where SK_SalesID="&Session("UID")&" order by ProPriceID Desc"
end if
rs16.open sql16,conn,1,1
if rs16.bof and rs16.eof then 
Call ReturnError8()
else
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<%
C=0
while not rs16.eof
C=C+1
%>
<tr onMouseOver="this.style.backgroundColor = '#ECECFF';" onMouseOut="this.style.backgroundColor = '#FFFFFF';">
<td width="70%" class="hometd">
<a href="javascript:void(0)" onClick="javascript:var win=window.open('../Sales/SK.ReProPrice.asp?id=<%=Rs16("ProPriceID")%>','Read','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes');win.focus()"><%=left(Rs16("SK_PriceNo"),20)%></a></td>
<td width="30%" align="left"><%=Rs16("SK_Time")%></td>
</tr>
<tr>
<td Height=1 colspan="2" background="../images/SK_Line.gif"></td>
<%
rs16.movenext
wend
%>
<tr>
<td colspan="2" height="2"></td>
</tr>
</table>
<%
end if
rs16.close
Set Rs16=Nothing
%>  </td>
<td class="SK_Text1" valign="top">
<%
Dim Rs17,D
set rs17=Server.createobject("adodb.recordset")
if Session("Manager")=1 or Session("Manager")=2 then
sql17="select top 5 * from SK_SalesOrders order by OrdersID Desc"
elseif Session("Manager")=3 then
sql17="select top 5 * from SK_SalesOrders INNER JOIN SK_SystemUsers ON SK_SalesOrders.SK_SalesID=SK_SystemUsers.UsersID where SK_SalesOrders.SK_Del=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" Order by SK_SalesOrders.OrdersID Desc"
elseif Session("Manager")=4 then
sql17="select top 5 * from SK_SalesOrders INNER JOIN SK_SystemUsers ON SK_SalesOrders.SK_SalesID=SK_SystemUsers.UsersID where SK_SalesOrders.SK_Del=0 and  SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" Order by SK_SalesOrders.OrdersID Desc"
elseif Session("Manager")=5 then
sql17="select top 5 * from SK_SalesOrders INNER JOIN SK_SystemUsers ON SK_SalesOrders.SK_SalesID=SK_SystemUsers.UsersID where SK_SalesOrders.SK_Del=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" and SK_SystemUsers.SK_Dept3="&Session("Dept3")&" Order by SK_SalesOrders.OrdersID Desc"
elseif Session("Manager")=6 then
sql17="select top 5 * from SK_SalesOrders where SK_SalesID="&Session("UID")&" order by OrdersID Desc"
end if
rs17.open sql17,conn,1,1
if rs17.bof and rs17.eof then 
Call ReturnError8()
else
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<%
D=0
while not rs17.eof
D=D+1
%>
<tr onMouseOver="this.style.backgroundColor = '#ECECFF';" onMouseOut="this.style.backgroundColor = '#FFFFFF';">
<td width="70%" class="hometd">
<a href="javascript:void(0)" onClick="javascript:var win=window.open('../Sales/SK.ReProOrder.asp?id=<%=Rs17("OrdersID")%>','Read','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes');win.focus()"><%=left(Rs17("SK_OrdersNo"),20)%></a></td>
<td width="30%" align="left"><%=Rs17("SK_Time")%></td>
</tr>
<tr>
<td Height=1 colspan="2" background="../images/SK_Line.gif"></td>
<%
rs17.movenext
wend
%>
<tr>
<td colspan="2" height="2"></td>
</tr>
</table>
<%
end if
rs17.close
Set Rs17=Nothing
%></td>
</tr>
<tr>
<td height="26" class="SK_Title1">本周到期订单</td>
<td class="SK_Title1">本周到期合同</td>
</tr>
<tr>
<td height="22" valign="top" class="SK_Text1">
<%
Dim Rs18,E
set rs18=Server.createobject("adodb.recordset")
if Session("Manager")=1 or Session("Manager")=2 then
sql18="select top 5 * from SK_SalesOrders where datediff(week,[SK_Btime],getdate())=0 order by OrdersID Desc"
elseif Session("Manager")=3 then
sql18="select top 5 * from SK_SalesOrders INNER JOIN SK_SystemUsers ON SK_SalesOrders.SK_SalesID=SK_SystemUsers.UsersID where SK_SalesOrders.SK_Del=0 and datediff(week,[SK_SalesOrders.SK_Btime],getdate())=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" Order by SK_SalesOrders.OrdersID Desc"
elseif Session("Manager")=4 then
sql18="select top 5 * from SK_SalesOrders INNER JOIN SK_SystemUsers ON SK_SalesOrders.SK_SalesID=SK_SystemUsers.UsersID where SK_SalesOrders.SK_Del=0 and datediff(week,[SK_SalesOrders.SK_Btime],getdate())=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" Order by SK_SalesOrders.OrdersID Desc"
elseif Session("Manager")=5 then
sql18="select top 5 * from SK_SalesOrders INNER JOIN SK_SystemUsers ON SK_SalesOrders.SK_SalesID=SK_SystemUsers.UsersID where SK_SalesOrders.SK_Del=0 and datediff(week,[SK_SalesOrders.SK_Btime],getdate())=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" and SK_SystemUsers.SK_Dept3="&Session("Dept3")&" Order by SK_SalesOrders.OrdersID Desc"
elseif Session("Manager")=6 then
sql18="select top 5 * from SK_SalesOrders where SK_SalesID="&Session("UID")&" and datediff(week,[SK_Btime],getdate())=0 order by OrdersID Desc"
end if
rs18.open sql18,conn,1,1
if rs18.bof and rs18.eof then 
Call ReturnError8()
else
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<%
E=0
while not rs18.eof
E=E+1
%>
<tr onMouseOver="this.style.backgroundColor = '#ECECFF';" onMouseOut="this.style.backgroundColor = '#FFFFFF';">
<td width="70%" class="hometd">
<a href="javascript:void(0)" onClick="javascript:var win=window.open('../Sales/SK.ReProOrder.asp?id=<%=Rs18("OrdersID")%>','Read','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes');win.focus()"><%=left(Rs18("SK_OrdersNo"),20)%></a></td>
<td width="30%" align="left"><%=Rs18("SK_Btime")%></td>
</tr>
<tr>
<td Height=1 colspan="2" background="../images/SK_Line.gif"></td>
<%
rs18.movenext
wend
%>
<tr>
<td colspan="2" height="2"></td>
</tr>
</table>
<%
end if
rs18.close
Set Rs18=Nothing
%>
</td>
<td class="SK_Text1" valign="top">
<%
Dim Rs19,H
set rs19=Server.createobject("adodb.recordset")
if Session("Manager")=1 or Session("Manager")=2 then
sql19="select top 5 * from SK_ItemContract where datediff(week,[SK_Btime],getdate())=0 order by ItemContractID Desc"
elseif Session("Manager")=3 then
sql19="select top 5 * from SK_ItemContract INNER JOIN SK_SystemUsers ON SK_ItemContract.SK_SalesID=SK_SystemUsers.UsersID where SK_ItemContract.SK_Del=0 and datediff(week,[SK_ItemContract.SK_Btime],getdate())=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" Order by SK_ItemContract.ItemContractID Desc"
elseif Session("Manager")=4 then
sql19="select top 5 * from SK_ItemContract INNER JOIN SK_SystemUsers ON SK_ItemContract.SK_SalesID=SK_SystemUsers.UsersID where SK_ItemContract.SK_Del=0 and datediff(week,[SK_ItemContract.SK_Btime],getdate())=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" Order by SK_ItemContract.ItemContractID Desc"
elseif Session("Manager")=5 then
sql19="select top 5 * from SK_ItemContract INNER JOIN SK_SystemUsers ON SK_ItemContract.SK_SalesID=SK_SystemUsers.UsersID where SK_ItemContract.SK_Del=0 and datediff(week,[SK_ItemContract.SK_Btime],getdate())=0 and SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" and SK_SystemUsers.SK_Dept3="&Session("Dept3")&" Order by SK_ItemContract.ItemContractID Desc"
elseif Session("Manager")=6 then
sql19="select top 5 * from SK_ItemContract where SK_SalesID="&Session("UID")&" and datediff(week,[SK_Btime],getdate())=0 order by ItemContractID Desc"
end if
rs19.open sql19,conn,1,1
if rs19.bof and rs19.eof then 
Call ReturnError8()
else
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<%
H=0
while not rs19.eof
H=H+1
%>
<tr onMouseOver="this.style.backgroundColor = '#ECECFF';" onMouseOut="this.style.backgroundColor = '#FFFFFF';">
<td width="70%" class="hometd">
<a href="javascript:void(0)" onClick="javascript:var win=window.open('../Sales/SK.ReItemContract.asp?id=<%=Rs19("ItemContractID")%>','Read','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes');win.focus()"><%=left(Rs19("SK_ItemContractNo"),20)%></a></td>
<td width="30%" align="left"><%=Rs19("SK_Btime")%></td>
</tr>
<tr>
<td Height=1 colspan="2" background="../images/SK_Line.gif"></td>
<%
rs19.movenext
wend
%>
<tr>
<td colspan="2" height="2"></td>
</tr>
</table>
<%
end if
rs19.close
Set Rs19=Nothing
%>  </td>
</tr>
<%end if%>
</table>

<script type='text/javascript' src='http://adv.waps.cn/ad/AdGet?c=AB52IMf9ljROPtyp4eUq6MH3ZyYSAK98d5FI13cp6yYEbS9Ut1bLySjygBtHaEKDaKRrWaefpikQdtR2GABd8IWDts61spNQS-CkF8zxY1o.'></script>
</td>
<td width="8" background="../images/tab_15.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td class="SK_Td_Foot">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" height="20"><img src="../images/tab_18.gif" width="12" height="20" /></td>
<td width="98%" class="SK_Td_Page"></td>
<td width="1%"><img src="../images/tab_20.gif" width="16" height="20" /></td>
</tr>
</table>

</td>
</tr>
</TBODY>
</table>
</body>
<%
Call CloseDB()
%>
</html>