<%@ Language=VBScript %>
<%
on error resume next
Set InfoDB = Server.CreateObject("ADODB.Connection")
InfoDB.Open "provider=sqloledb;server=dbserver;uid=infouser;pwd=infouser;database=infodb"
sql = "select rtrim(fcst_name)+':'+fcp_series as card from t_customer a,T_CUSTOMER_PURCHASE b where a.fcst_id=b.fcp_cst_id"
set rs = infodb.Execute(sql)
if err.number<>0 then
Response.Write "提取数据失败"
Response.End
end if
strinfo=""
while not rs.eof
strinfo=strinfo&trim(rs("card"))&","
rs.movenext
wend
%>