<% set rs999=conn.Execute("SELECT * FROM billmorbid1 order by pno ") if request("morbid1")="" then morbid1=rs999("pno") else morbid1=request("morbid1") end if if request("morbid") <> "" then set rs5=conn.execute("select * from billmorbid where pno="&request("morbid")&" ") end if if request("morbid1") <> "" then set rs6=conn.execute("select * from billmorbid1 where pno="&request("morbid1")&" ") end if Set RS2 = conn.Execute("SELECT * FROM billmorbid order by pno ") if request("morbid") <> "" then set rs3=conn.execute("select * from billmorbid1 where morbid2='"&request("morbid")&"' ") set rs7=conn.execute("select * from billmorbid1 where morbid2='"&request("morbid")&"' order by pno ") else set rs3=conn.execute("select * from billmorbid1 where morbid2='"&rs2("pno")&"' order by pno ") set rs4=conn.execute("select * from billmorbid1 where morbid2='"&rs2("pno")&"' order by pno ") end if Set COUNT1 = Conn.Execute("SELECT text FROM bill") %> <% if rs3.eof then%> <% ELSE %> <% j=1 Do While Not rs3.EOF For i = 0 to COUNT1.Fields.Count - 1 If INT(j/6)*6 <> j Then %> <% Else %> <% END IF Next rs3.MoveNext j = j + 1 Loop COUNT1.Close %>

&morbid=<% = request("morbid") %>&morbidp=<% = rs3("morbid1") %>> <%if rs3("pno")-request("morbid1")=0 then%> <% =trim(rs3("morbid1")) %> <%else%> <% =trim(rs3("morbid1")) %> <%end if%>

&morbid=<% = request("morbid") %>&morbidp=<% = rs3("morbid1") %>> <%if rs3("pno")-request("morbid1")=0 then%> <% =trim(rs3("morbid1")) %> <%else%> <% =trim(rs3("morbid1")) %> <%end if%>

<%end if%>

Copyright 2006 SOLINK INTERNATIONAL MANUFACTURES CO., LTD