<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<!--#include file="CheckAdmin.Asp"-->
<%
Dim Result
Result = request.QueryString("Result")
Dim Keyword
Keyword = request.Form("Keyword")
Select Case Result
    Case "Members"
        response.redirect ("user/MemList.Asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
    Case "Tongxunlu"
        response.redirect ("user/Tongxunlu.Asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
    Case "My_personKehu"
        response.redirect ("Kehu/My_people_KehuList.Asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
	Case "My_CompanyKehu"
		response.redirect ("Kehu/My_Companies_KehuList.Asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
    Case "Kehu"
        response.redirect ("Kehu/KehuList.Asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
    Case "RecycleKehu"
        response.redirect ("Kehu/Recycle_KehuList.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
	Case "News"
        response.redirect ("news/NewsList.Asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
	Case "m_News"
        response.redirect ("news/m_NewsList.Asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
	Case "My_chances"
        response.redirect ("chances/My_chances_list.Asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
	Case "Visitreport"
		response.redirect ("Reportform/Visitreport.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")
	Case "khRecords"
		response.redirect ("Reportform/KhRecords.asp?Result=Search&Keyword="&server.urlencode(Keyword)&"&Page=1")			
    Case Else
End Select
%>