<%
Set Rs=Server.CreateObject("ADODB.RecordSet")
Set Rs1=Server.CreateObject("ADODB.RecordSet")
sqlStr="Select id,cs_code,cs_from,cs_country,cs_type,cs_deal,cs_addtime,cs_tel,cs_email,cs_whatsapp,cs_wechat,cs_linkedin,cs_facebook,cs_alibaba ,cs_note From customer Where cs_belong="&employeeId&" and id in (select customerId from tagTable where tagName='"&tagName&"')"
Rs.Open sqlStr,Conn,1,1
Do while Not Rs.bof and Not Rs.eof
TempNum=TempNum+1
%>
<%=TempNum%>
<%=Rs("cs_code")%>
<%Rs1.Open "select ch_name from qudao where id="&Rs("cs_from")&"",conn,1,1
IF Not Rs1.bof and Not Rs1.eof Then
Response.write Rs1("ch_name")
Else
Response.write "未填写"
End If
Rs1.Close
%>
<%Rs1.Open "select countryName from country where id="&Rs("cs_country")&"",conn,1,1
IF Not Rs1.bof and Not Rs1.eof Then
Response.write Rs1("countryName")
Else
Response.write "未填写"
End If
Rs1.Close
%>
<%Rs1.Open "select businessType from clientType where id="&Rs("cs_type")&"",conn,1,1
IF Not Rs1.bof and Not Rs1.eof Then
Response.write Rs1("businessType")
Else
Response.write "未填写"
End If
Rs1.Close
%>
<%If Rs("cs_deal")=3 then
response.write "成交"
elseif Rs("cs_deal")=2 then
Response.write "明确需求"
elseif Rs("cs_deal")=1 then
Response.write "背景调查"
else
Response.write "无响应"
End IF
%>
<%=Rs("cs_addtime")%>
修改
联系方式
<%=Rs("cs_tel")%>
<%=Rs("cs_whatsapp")%>
<%=Rs("cs_wechat")%>
<%=Rs("cs_linkedin")%>
<%=Rs("cs_facebook")%>
<%=Rs("cs_alibaba")%>
备注
<%=HtmlUncode(Rs("cs_note"))%>
<%
Rs.MoveNext
Loop
%>