<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"
  
if session("id")="" then 
session("geturl")=geturl
response.Redirect("../../login/login1.asp")
response.end
end if

if Not ChkPost then 
response.redirect ("../../login/chklogin.asp?login=4")
response.end
end if
%>
<!--#include file="../getprice/head.asp"-->
<%
sql="select * from memberRelation where secuser='"&session("user")&"'"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
user=rs("user")
msg_per_page=20 '定義每頁顯示記錄條數
%>
<!--#include file="../../inc/headpage.asp"-->
<TABLE width=750 border=0 align="center" cellPadding=3 cellSpacing=0>
  <TBODY>
  <TR bgColor=#f5f5f5>
    <TD class=C align=left>對您感興趣的商友共 <font color=#ff0000><b><%=totalrec%></b></font> 名</TD>
    <TD class=C align=right> 
</TD></TR></TBODY></TABLE><BR>
<TABLE width=750 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD bgColor=#a6d0ff>


      <TABLE cellSpacing=1 cellPadding=5 width=750 border=0>
        <TBODY>
        <TR bgColor=#d7ebff>
          <TD class=M align=middle>姓名</TD>
          <TD class=M align=middle>性別</TD>
          <TD class=M align=middle>城市</TD>
          <TD class=M align=middle>行業</TD>
          <TD class=M align=middle>主營產品/服務</TD>
          <TD class=M align=middle>公司</TD></TR>
<%
'set rs=conn.execute("select distinct(memberRelation.user) as MemUser,memberRelation.relation,memberRelation.addtime,corporation.* from memberRelation,corporation where memberRelation.secuser='"&session("user")&"' and corporation.user=memberRelation.user order by memberRelation.id desc")
'set rs=conn.execute("select memberRelation.user as MemUser,memberRelation.relation,memberRelation.addtime,corporation.city from memberRelation,corporation where memberRelation.secuser='"&session("user")&"' and corporation.user=memberRelation.user GROUP BY memberRelation.user,memberRelation.relation,memberRelation.addtime,corporation.user,corporation.city order by memberRelation.id desc") 
if rs.eof or rs.bof then
response.write"<TABLE cellSpacing=1 cellPadding=5 width=750 border=0><TBODY><TR bgColor=#ffffff><TD class=M align=middle>暫無其他商友把您加為商業伙伴</td></TR></TBODY></TABLE>"
else
do while not rs.eof and rowcount > 0
set rs1=conn.execute("select corporation.*,class_1.* from corporation,class_1 where [user]='"&user&"' and class_1.sortid=corporation.sortid")
%>

        <TR bgColor=#ffffff>
          <TD class=C noWrap>
            <DIV id=nav><A href="mailto:<%=rs1("email")%>" 
            target=_blank><%=rs1("name")%></A> </DIV></TD>
          <TD align=middle><%=rs1("ch")%></TD>
          <TD align=middle><%=rs1("city")%></TD>
          <TD align=middle><%=rs1("sort")%></TD>
          <TD><%=rs1("zycp")%></TD>
          <TD><%if rs1("flag")=1 then response.write"<a href='../../"&rs1("url")&"' target='_blank'>"&rs1("qymc")&"</a>" else response.write"<a href='../../noshinecompany/index.asp?id="&rs1("id")&"' target='_blank'>"&rs1("qymc")&"</a>" end if%></TD></TR>
<%
rowcount=rowcount-1
rs.movenext
loop
end if
%>		  
		  </TBODY></TABLE>
		  
		  </TD></TR></TBODY></TABLE>
<BR>
<TABLE width=750 border=0 align="center" cellPadding=3 cellSpacing=0>
  <TBODY>
  <TR bgColor=#f5f5f5>
    <TD class=C align=right><%=listPages("addmefriend.asp")%> 
</TD></TR></TBODY></TABLE><BR><BR><BR><BR><BR>
<!--#include file="../../inc/end.asp"-->
<%
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>