<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
call fnCheckRight()
Dim EmpList__MMColParam
EmpList__MMColParam = "1"
If (Request("SearchWord") <> "") Then 
  EmpList__MMColParam = Request("SearchWord")
End If
%>
<%
set uP=server.createobject("adodb.recordset")
 uP.Activeconnection=MM_EmpMain_string
 uP.source="select * from user where ID="&request.cookies("ID")&" and ispass=true"
 uP.cursortype=0
 uP.cursorlocation=2
 uP.locktype=1
 uP.open()
 dim upstr
   if uP.eof then
     upstr=""
	 else
	 upstr1=uP("地區")
	
	 end if 
	 up.close
	 set up=nothing
	 if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true  then
	 else
	 if  IDstring = "" then
	    upstr=split(upstr1,"，")
		for i=0 to ubound(upstr)
		 Set search = Server.CreateObject("ADODB.Recordset")
           search.ActiveConnection = MM_EmpMain_STRING
           search.Source = "SELECT  ID FROM kufu where   城市='"&upstr(i)&"'" 
           search.CursorType = 0
           search.CursorLocation = 2
            search.LockType = 1
            search.Open()
           search_numRows = 0
       	   if search.eof then		   
		   else
            while not search.eof 
             IDstring = IDstring & search("ID") & ","
            search.movenext
           wend
		    end if
		   next 
		   end if
		   end if
		   response.write("idstring")
	
%>