www.gusucode.com > CRM源码带手机版ASP源码程序 > Plugin/GoOut/index.asp
<!--#include file="../../data/conn.asp" --><!--#include file="config.asp" --><!--#include file="../../data/EasyCrm.asp"-->
<%Set EasyCrm = New EasyCRM_CRM%>
<%
action = Trim(Request("action"))
oType = Trim(Request("oType"))
subAction = Trim(Request("subAction"))
PNN = Trim(Request.QueryString("PN"))
if PNN="" then PNN=1
Session("CRM_thispage") = "index.asp"
Session("CRM_pagenum") = PNN
If subAction = "searchItem" Then
Dim gCompany,gAddress,gTel,gLinkman,gUser,TimeBegin,TimeEnd,ETimeBegin,ETimeEnd
gCompany = EasyCrm.Searchcode(Request.Form("gCompany"))
gAddress = EasyCrm.Searchcode(Request.Form("gAddress"))
gTel = EasyCrm.Searchcode(Request.Form("gTel"))
gLinkman = EasyCrm.Searchcode(Request.Form("gLinkman"))
gUser = EasyCrm.Searchcode(Request.Form("gUser"))
TimeBegin = EasyCrm.Searchcode(Request.Form("TimeBegin"))
TimeEnd = EasyCrm.Searchcode(Request.Form("TimeEnd"))
ETimeBegin = EasyCrm.Searchcode(Request.Form("ETimeBegin"))
ETimeEnd = EasyCrm.Searchcode(Request.Form("ETimeEnd"))
Session("Search_Plugin_GoOut_gCompany") = EasyCrm.Searchcode(Request.Form("gCompany"))
Session("Search_Plugin_GoOut_gAddress") = EasyCrm.Searchcode(Request.Form("gAddress"))
Session("Search_Plugin_GoOut_gLinkman") = EasyCrm.Searchcode(Request.Form("gLinkman"))
Session("Search_Plugin_GoOut_gTel") = EasyCrm.Searchcode(Request.Form("gTel"))
Session("Search_Plugin_GoOut_gUser") = EasyCrm.Searchcode(Request.Form("gUser"))
Session("Search_Plugin_GoOut_TimeBegin") = EasyCrm.Searchcode(Request.Form("TimeBegin"))
Session("Search_Plugin_GoOut_TimeEnd") = EasyCrm.Searchcode(Request.Form("TimeEnd"))
Session("Search_Plugin_GoOut_ETimeBegin") = EasyCrm.Searchcode(Request.Form("ETimeBegin"))
Session("Search_Plugin_GoOut_ETimeEnd") = EasyCrm.Searchcode(Request.Form("ETimeEnd"))
Dim sql
sql = ""
gCompany,gAddress,gTel,gLinkman,gUser,TimeBegin,TimeEnd,ETimeBegin,ETimeEnd
CompanyWhere = EasyCrm.seachKey("cCompany",gCompany)
If gCompany <> "" Then
sql = sql & " And cId in ( select cId from [Client] where 1=1 "&CompanyWhere&" )"
End If
If gAddress <> "" Then
sql = sql & " And gAddress like '%" & gAddress & "%' "
End If
If gTel <> "" Then
sql = sql & " And gTel like '%" & gTel & "%' "
End If
If gLinkman <> "" Then
sql = sql & " And gLinkman like '%" & gLinkman & "%' "
End If
If gUser <> "" Then
sql = sql & " And gUser = '" & gUser & "'"
End If
if Accsql =1 then
If TimeBegin <> "" and TimeEnd <> "" Then
sql = sql & " And gSTime >= '" & TimeBegin & "' And gSTime <= '" & TimeEnd & "' "
End If
If TimeBegin <> "" and TimeEnd = "" Then
sql = sql & " And DATEDIFF(d,gSTime,'"&TimeBegin&"')=0 "
End If
else
If TimeBegin <> "" and TimeEnd <> "" Then
sql = sql & " And gSTime >= #" & TimeBegin & "# And gSTime <= #" & TimeEnd & "# "
End If
If TimeBegin <> "" and TimeEnd = "" Then
sql = sql & " And DATEDIFF('d',gSTime,'"&TimeBegin&"')=0 "
End If
end if
if Accsql =1 then
If ETimeBegin <> "" and ETimeEnd <> "" Then
sql = sql & " And gETime >= '" & ETimeBegin & "' And gETime <= '" & ETimeEnd & "' "
End If
If ETimeBegin <> "" and ETimeEnd = "" Then
sql = sql & " And DATEDIFF(d,gETime,'"&TimeBegin&"')=0 "
End If
else
If ETimeBegin <> "" and ETimeEnd <> "" Then
sql = sql & " And gETime >= #" & ETimeBegin & "# And gETime <= #" & ETimeEnd & "# "
End If
If ETimeBegin <> "" and ETimeEnd = "" Then
sql = sql & " And DATEDIFF('d',gETime,'"&TimeBegin&"')=0 "
End If
end if
If Session("CRM_level") < 9 Then
sql = sql & " And gUser In (" & arrUser & ")"
End If
End If
If gCompany = "" And gAddress = "" And gTel = "" And gLinkman = "" And gUser = "" And TimeBegin = "" And TimeEnd = "" And ETimeBegin = "" And ETimeEnd = "" Then
If Session("CRM_Plugin_GoOut_Search") <> "" Then
sql = Session("CRM_Plugin_GoOut_Search")
Else
If Session("CRM_level") < 9 Then
sql = " And gUser In (" & arrUser & ")"
End If
End If
Else
Session("CRM_Plugin_GoOut_Search") = sql
End If
If subAction = "killSession" Then
Session("CRM_Plugin_GoOut_Search") = ""
Session("Search_Plugin_GoOut_gCompany") = ""
Session("Search_Plugin_GoOut_gAddress") = ""
Session("Search_Plugin_GoOut_gLinkman") = ""
Session("Search_Plugin_GoOut_gTel") = ""
Session("Search_Plugin_GoOut_gUser") = ""
Session("Search_Plugin_GoOut_TimeBegin") = ""
Session("Search_Plugin_GoOut_TimeEnd") = ""
Session("Search_Plugin_GoOut_ETimeBegin") = ""
Session("Search_Plugin_GoOut_ETimeEnd") = ""
If Session("CRM_level") < 9 Then
sql = " And gUser In (" & arrUser & ")"
else
sql=""
end if
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="Content-Type" content="text/html; charset=GBK" />
<link href="<%=SiteUrl&skinurl%>Style/common.css" rel="stylesheet" type="text/css">
<link href="<%=SiteUrl&skinurl%>chosen/chosen.css" rel="stylesheet" />
<script language="javascript" src="<%=SiteUrl&skinurl%>Js/ajax.js"></script>
<script language="javascript" src="<%=SiteUrl&skinurl%>Js/Common.js"></script>
<script language="javascript" src="<%=SiteUrl&skinurl%>Js/jquery.min.js"></script>
<script language="javascript" src="<%=SiteUrl&skinurl%>Js/tips.js"></script>
<script language="javascript" src="<%=SiteUrl&skinurl%>Js/Float.js"></script>
<script src="<%=SiteUrl&skinurl%>aridialog/jquery.artDialog.js?skin=default"></script>
<script src="<%=SiteUrl&skinurl%>aridialog/iframeTools.js"></script>
</head>
<body>
<style>body{padding:35px 0 48px;}</style>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="top_bg">
<tr>
<td class="top_left td_t_n td_r_n"><%=L_Here%>：功能插件 > 外出申请</td>
<td class="top_right td_t_n td_r_n">
<input type="button" class="button_top_reload" value=" " title="刷新" onClick=window.location.href="javascript:window.location.reload();" />
<input type="button" class="button_top_back" value=" " title="后退" onClick=window.location.href="javascript:history.back();" />
<input type="button" class="button_top_go" value=" " title="前进" onClick=window.location.href="javascript:history.go(1);" />
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="td_n pdt10">
<div class="MenuboxS">
<ul>
<li <%if otype="Main" or otype="" then%>class="hover"<%end if%> id="CheckB"><span><a href="?action=Main&otype=Main">信息列表</a></span></li>
<!--li class="" id="CheckA"><span><a href="javascript:void(0)" style="cursor:pointer">高级搜索</a></span></li-->
<li class="" id="CheckC"><span><a href="#" onclick='Plugin_GoOut_InfoAdd()' style="cursor:pointer">填写申请</a></span></li>
<% if inStr(Plugin_GoOut_manage,session("CRM_name"))>0 or Session("CRM_level") = 9 then %>
<li <%if otype="Manage" then%>class="hover"<%end if%>><span><a href="?action=Manage&otype=Manage">高级管理</a></span></li>
<%end if%>
</ul>
</div>
</td>
</tr>
</table>
<script>function Plugin_GoOut_InfoAdd() {$.dialog.open('GetUpdate.asp?action=Add', {title: '新增', width: 700, height: 420,fixed: true}); };</script>
<%
action = Trim(Request("action"))
Select Case action
Case "Manage"
Call infoManage()
Case "Managesave"
Call infoManagesave()
Case "delete"
Call infodelete()
Case Else
Call Main()
End Select
Sub Main()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="td_n">
<div id="SearchBox" style="position: absolute; width:100%; height:450px; background:#ffffff; display:none; z-index:10;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="background:#ffffff;">
<tr>
<td valign="top" class="td_n pdl10 pdr10 pdt10">
<table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1">
<tr class="tr_t">
<td class="td_l_l" COLSPAN="6" style="border-right:0;"><B><%=L_Top_Search%></B></td>
</tr>
</table>
<form name="searchForm" action="?subAction=searchItem" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1">
<col width="120" /><col width="260" /><col width="120" />
<tr>
<td class="td_l_r title" style="border-top:0;">公司名称</td>
<td class="td_r_l" style="border-top:0;"><input name="gCompany" type="text" class="int" id="gCompany" size="30" value="<%=Session("Search_Plugin_GoOut_gCompany")%>" ></td>
<td class="td_l_r title" style="border-top:0;">外出时间</td>
<td class="td_r_l" style="border-top:0;"><input name="TimeBegin" type="text" maxlength="10" id="TimeBegin" class="Wdate" size="15" onFocus="WdatePicker()" value="<%=Session("Search_Plugin_GoOut_TimeBegin")%>" /> ~ <input name="TimeEnd" type="text" maxlength="10" id="TimeEnd" class="Wdate" size="15" onFocus="WdatePicker()" value="<%=Session("Search_Plugin_GoOut_TimeEnd")%>" /> </td>
</tr>
<tr>
<td class="td_l_r title">联系人</td>
<td class="td_r_l"><input name="gLinkman" type="text" class="int" id="gLinkman" size="30" value="<%=Session("Search_Plugin_GoOut_gLinkman")%>" ></td>
<td class="td_l_r title">返回时间</td>
<td class="td_r_l"><input name="ETimeBegin" type="text" maxlength="10" id="ETimeBegin" class="Wdate" size="15" onFocus="WdatePicker()" value="<%=Session("Search_Plugin_GoOut_ETimeBegin")%>" /> ~ <input name="ETimeEnd" type="text" maxlength="10" id="ETimeEnd" class="Wdate" size="15" onFocus="WdatePicker()" value="<%=Session("Search_Plugin_GoOut_ETimeEnd")%>" /> </td>
</tr>
<tr>
<td class="td_l_r title">电话</td>
<td class="td_r_l"><input name="gTel" type="text" class="int" id="gTel" size="30" value="<%=Session("Search_Plugin_GoOut_gTel")%>" ></td>
<td class="td_l_r title">业务员</td>
<td class="td_r_l">
<% If Session("CRM_level") = 9 Then %>
<% = EasyCrm.UserList(2,"gUser",Session("Search_Plugin_GoOut_gUser")) %>
<% Else %>
<% = EasyCrm.UserList(1,"gUser",Session("Search_Plugin_GoOut_gUser")) %>
<% End If %>
待审核
</td>
</tr>
<tr>
<td class="td_r_l" colspan="4">
<input type="submit" name="Submit" class="button42" value="<%=L_Search%>">
<input type="button" name="button" class="button43" value="<%=L_Clear%>" onClick=window.location.href="?SubAction=killSession" />
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" colspan=2 style="padding:10px 10px 0;" class="td_n">
<form name="Search" action="?action=CheckSub&SubAction=Search&PN=<%=PNN%>" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table_1" style="border-bottom:0px;">
<tr class="tr_t"style="border-bottom:0px;">
<td class="td_l_l">
<B>信息列表</B>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table_1">
<tr class="tr_b">
<td width="80" class="td_l_c">编号</td>
<td width="150" class="td_l_c">外出时间</td>
<td width="100" class="td_l_c">原因</td>
<td width="70" class="td_l_c">联系人</td>
<td width="100" class="td_l_c">电话</td>
<td class="td_l_l">备注</td>
<td width="80" class="td_l_c">业务员</td>
<td width="90" class="td_l_c">申请时间</td>
<td width="70" class="td_l_c">状态</td>
<td width="90" class="td_l_c"><%=L_Top_Manage%></td>
</tr>
<%
PN = CLng(ABS(Request("PN")))
If Not IsNumeric(PN) Or PN <= 0 Then PN = 1
intPageSize = DataPageSize
pagenum = intPageSize*(PN-1)
Set rs = Server.CreateObject("ADODB.Recordset")
IF PN=1 THEN
rs.Open "Select top "&intPageSize&" * From [Plugin_GoOut] where 1 = 1 "&sql&" Order By id Desc",conn,1,1
ELSE
rs.Open "Select top "&intPageSize&" * From [Plugin_GoOut] where 1 = 1 "&sql&" and id < ( SELECT Min(id) FROM ( SELECT TOP "&pagenum&" id FROM [Plugin_GoOut] where 1 = 1 "&sql&" ORDER BY id desc ) AS T ) Order By id Desc ",conn,1,1
END IF
Set Rsstr=conn.Execute("Select count(id) As RecordSum From [Plugin_GoOut] where 1 = 1 "&sql&" ",1,1)
TotalRecords=Rsstr("RecordSum")
if Int(TotalRecords/intPageSize)=TotalRecords/intPageSize then
TotalPages=TotalRecords/intPageSize
else
TotalPages=Int(TotalRecords/intPageSize)+1
end if
Rsstr.Close
Set Rsstr=Nothing
If PN > TotalPages Then PN = TotalPages
If rs.RecordCount > 0 Then
Do While Not rs.BOF And Not rs.EOF
%>
<tr class="tr">
<td class="td_l_c"><%=rs("Id")%></td>
<td class="td_l_c"><%=EasyCrm.FormatDate(rs("gSTime"),10)%> <%if rs("gETime")<>"" then%>～ <%=EasyCrm.FormatDate(rs("gETime"),10)%><%end if%></td>
<td class="td_l_c"><%=rs("gReason")%></td>
<td class="td_l_c"><%=rs("gLinkman")%></td>
<td class="td_l_c"><%=rs("gTel")%></td>
<td class="td_l_l" style="line-height:25px;"><%=rs("gContent")%></td>
<td class="td_l_c"><%=rs("gUser")%></td>
<td class="td_l_c"><%=EasyCrm.FormatDate(rs("gTime"),2)%></td>
<td class="td_l_c">
<%if rs("gState") = 1 then %>
<input type="button" class="button222" value="已批" onclick='InfoAudit<%=rs("Id")%>()' style="cursor:pointer" />
<%elseif rs("gState") = 2 then %>
<input type="button" class="button223" value="未批" onclick='InfoAudit<%=rs("Id")%>()' style="cursor:pointer" />
<%else%>
<input type="button" class="button227" value="待审" onclick='InfoAudit<%=rs("Id")%>()' style="cursor:pointer" />
<%end if%>
</td>
<td class="td_l_c">
<input type="button" class="button_info_edit" value=" " title="<%=L_Edit%>" onclick='Plugin_GoOut_InfoEdit<%=rs("Id")%>()' style="cursor:pointer" />
<%if Session("CRM_level") = 9 then%><input type="button" class="button_info_del" value=" " title="<%=L_Del%>" onclick='Plugin_GoOut_InfoDel<%=rs("Id")%>()' style="cursor:pointer" /><%end if%>
</td>
</tr>
<% if inStr(Plugin_GoOut_manage,session("CRM_name"))>0 or Session("CRM_level") = 9 then %>
<script>function InfoAudit<%=rs("Id")%>() {$.dialog.open('GetUpdate.asp?action=Audit&Id=<%=rs("Id")%>', {title: '审批', width: 700,height: 420, fixed: true}); };</script>
<%end if%>
<script>function Plugin_GoOut_InfoEdit<%=rs("Id")%>() {$.dialog.open('GetUpdate.asp?action=InfoEdit&Id=<%=rs("Id")%>', {title: '编辑', width: 700,height: 420, fixed: true}); };</script>
<script>function Plugin_GoOut_InfoDel<%=rs("Id")%>()
{
art.dialog({
content: '<%=Alert_del_YN%>',
icon: 'error',
ok: function () {
art.dialog.open('?action=delete&Id=<%=rs("Id")%>');
art.dialog.close();
},
cancelVal: '关闭',
cancel: true
});
};
</script>
<%
rs.MoveNext
Loop
else
%>
<tr><td class="td_l_l" colspan="11"><%=L_Notfound%></td></tr>
<%
end if
rs.Close
Set rs = Nothing
%>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div class="fixed_bg">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="td_n Bottom_pd ">
<%if sql<>"" then%><span class="r"><input name="Back" type="button" id="Back" class="button227" value="清空" onClick=window.location.href="?SubAction=killSession"></span><%end if%>
<%=EasyCrm.pagelist("index.asp", PN,TotalPages,TotalRecords)%>
</td>
</tr>
</table>
</div>
<%END SUB%>
<%
Sub infoManage()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="td_n">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" colspan=2 style="padding:10px 10px 0;" class="td_n">
<form name="Managesave" action="?action=Managesave" method="post" onSubmit="return CheckInput();">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table_1" style="border-bottom:0px;">
<tr class="tr_t"style="border-bottom:0px;">
<td class="td_l_l">
<B>高级配置</B>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1">
<col width="100" />
<tr class="tr">
<td class="td_l_c title">外出原因</td>
<td class="td_r_l">
<input name="Plugin_GoOut_Reason" type="text" class="int" id="Plugin_GoOut_Reason" size="40" value="<%=Plugin_GoOut_Reason%>"> <span class="info_help help01">多个条件之间用半角逗号分割</span>
</td>
</tr>
<tr >
<td class="td_l_c title">审核权限</td>
<td class="td_r_l" style="padding:10px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1">
<col width="100" />
<%
Set rsg = Server.CreateObject("ADODB.Recordset")
rsg.Open "Select * From [system_group]",conn,1,1
Do While Not rsg.BOF And Not rsg.EOF
%>
<tr>
<td class="td_l_c title"><%=rsg("gName")%></td>
<td class="td_l_l">
<%
Set rsm = Server.CreateObject("ADODB.Recordset")
rsm.Open "Select * From [user] where uGroup="&rsg("gId")&" ",conn,1,1
Do While Not rsm.BOF And Not rsm.EOF
%>
<input type="checkbox" name="Plugin_GoOut_manage" value="<%=rsm("uName")%>" <%if inStr(Plugin_Workschedule_manage,rsm("uName"))>0 then%>checked<%end if%>> <%=rsm("uName")%>
<%
rsm.MoveNext
Loop
rsm.Close
Set rsm = Nothing
%>
</td>
</tr>
<%
rsg.MoveNext
Loop
rsg.Close
Set rsg = Nothing
%>
</table>
</td>
</tr>
<tr>
<td class="td_r_l" colspan="4">
<input type="submit" name="Submit" class="button45" value=" <%=L_Edit%> ">
<input name="Back" type="button" id="Back" class="button43" value=" <%=L_Back%> " onClick="history.back();">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
End Sub
Sub infoManagesave()
Plugin_GoOut_Reason = replace(Trim(Request.Form("Plugin_GoOut_Reason")),CHR(34),"'")
Plugin_GoOut_manage = replace(Trim(Request.Form("Plugin_GoOut_manage")),CHR(34),"'")
Dim TempStr
TempStr = ""
TempStr = TempStr & chr(60) & "%" & VbCrLf
TempStr = TempStr & "Dim Plugin_GoOut_Reason,Plugin_GoOut_manage" & VbCrLf
TempStr = TempStr & "'外出单配置" & VbCrLf
TempStr = TempStr & "Plugin_GoOut_Reason="& Chr(34) & Plugin_GoOut_Reason & Chr(34) &" '原因" & VbCrLf
TempStr = TempStr & "Plugin_GoOut_manage="& Chr(34) & Plugin_GoOut_manage & Chr(34) &" '权限" & VbCrLf
TempStr = TempStr & "%" & chr(62) & VbCrLf
ADODB_SaveToFile TempStr,"Config.asp"
Response.Write("<script>alert(""修改成功！"");</script>")
Response.Write "<script>location.href='?action=Main&otype=Main';</script>"
End Sub
Sub infodelete()
Dim Id
Id = CLng(ABS(Request("Id")))
PN = Request("PN")
If Not IsNumeric(Id) Or Id <= 0 Then Response.Write "<script>alert(""不存在"");</script>"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [Plugin_GoOut] Where Id = " & Id,conn,3,2
If rs.RecordCount <> 1 Then Response.Write "<script>alert(""不存在"");</script>"
Id = rs("Id")
rs.Delete
rs.Update
rs.Close
Set rs = Nothing
Response.Write("<script>art.dialog.close();art.dialog.open.origin.location.reload();</script>")
End Sub
Sub ADODB_SaveToFile(ByVal strBody,ByVal File)
On Error Resume Next
Dim objStream,FSFlag,fs,WriteFile
FSFlag = 1
If DEF_FSOString <> "" Then
Set fs = Server.CreateObject(DEF_FSOString)
If Err Then
FSFlag = 0
Err.Clear
Set fs = Nothing
End If
Else
FSFlag = 0
End If
If FSFlag = 1 Then
Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
WriteFile.Write strBody
WriteFile.Close
Set Fs = Nothing
Else
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请使用FTP等功能，将<font color=Red >data/config.asp</font>文件内容替换成框中内容"
Err.Clear
Set objStream = Noting
Exit Sub
End If
With objStream
.Type = 2
.Open
.Charset = "GB2312"
.Position = objStream.Size
.WriteText = strBody
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
End If
End Sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
</td>
</tr>
</table>
<script src="../../data/calendar/WdatePicker.js"></script>
</body>
</html><% Set EasyCrm = nothing %>