<%
function getCommentHTML(byval FlowID,byval RecotdNO)
dim rs,FirstStep,flag
set rs = server.CreateObject("adodb.recordset")
set rs10 = server.CreateObject("adodb.recordset")
set Rs_Step = server.CreateObject("adodb.recordset")
if RecotdNO = "" or RecotdNO = 0 or cstr(RecotdNO) = "-1" or FlowID="" then
exit function
end if
CommentHTML = " <fieldset> <legend>意见列表 </legend> <table width='98%' border=1 align=center cellpadding='0' cellspacing='0' bordercolor='#7f99cc' bordercolordark='#ffffff' >"
Rs_Step.open "select * from FlowStep where flow_id="&flowid&" and stepcommenttype=1 "&_
"and step_id in (SELECT distinct step_id from FLOW_BOM WHERE (FLOW_ID = "&flowid&")) order by Step_id",conn,3,1
do while not Rs_Step.eof
rs.open "select FlowPrecess.*,FlowStep.step_disc,userinfo.name,userinfo.mem_id as mem_id from FlowPrecess,FlowStep,userinfo where "&_"(SEND_DATE IS NOT NULL and back=0) and FlowPrecess.FLOW_ID = " & FlowID & " and FlowPrecess.RECODE_NO = " & RecotdNO & " "&_
"and FlowPrecess.step_id="&Rs_Step("step_id")&" and FlowPrecess.step_id = FlowStep.
