<% set rs=server.createobject("adodb.recordset") sql="select * from Sd_PromotionList where S_state=1 order by id desc" rs.open sql,conn,1,1 dim PromotionAction if not rs.eof then PromotionName=rs("S_Activity") S_b1=rs("S_b1") PromotionAction=rs("id") call CC() else PromotionAction=0 Response.Write("暂无活动.") end if rs.close sub CC() %>
<%=PromotionName%>
*我的姓名: *我的手机:
*其它联系方式:
*我的需求:
 
已参与的顾客信息
<% set rs=server.createobject("adodb.recordset") sql="select * from Sd_Promotion where S_activityId="&PromotionAction&" and S_state=1 order by id desc" rs.open sql,conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close %>
<%=rs("S_addtime")%>  <%=rs("S_name")%>(<%=left(rs("S_mobile"),7)%>****)
成功参与<%=PromotionName%> 已成功!
<%end sub%>