<TABLE WIDTH="448" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#FF0000">
<TR HEIGHT="15" BGCOLOR="#FF9999" BORDERCOLOR="#FF0000" >
<TD WIDTH="82" HEIGHT="27"> <DIV ALIGN="center"><B><FONT COLOR="#000000">รหัสชุด</FONT></B></DIV ></TD>
<TD WIDTH="388"> <DIV ALIGN="center"><B><FONT COLOR="#000000">ชื่อชุด</FONT></B></DIV ></TD>
</TR>
<%
set rs = createobject("adodb.recordset")
sql = "select b.dressw from buy_products b , product p where b.sale_id = '"& session("sale_no") & "' and b.id = '"& session("id") & "' and b.id =p.id"
rs.Open sql,conn,1,3
dressw = rs("dressw") ' ได้ 2 ค่า
eachid=Split(dressw,",") 'แยกอักขระ
for i=0 to Ubound(eachid)
dim rs7,sql7
set rs7 = createobject("adodb.recordset")
sql7 = "select * from product where id = '"&eachid(i)&"'"
rs7.Open sql7,conn,1,3
'response.Write(sql7)
'response.End()
if not (rs7.bof) or not (rs7.eof) then
id =rs7("id")
des = rs7("description")
end if
%>
<TR ALIGN="center" BORDERCOLOR=##FF0000 BGCOLOR="<%=color%>">
<TD HEIGHT="20" WIDTH="82" ><FONT COLOR="#000000">
<% =rs7("id")%></FONT></TD>
<TD WIDTH="388" ><FONT COLOR="#000000"><% =rs7("description")%>
</FONT></TD></TR>
<% next %>
Load balance : Server 04
