<table width="615" border="1" cellpadding="0" cellspacing="0"> <tr bgcolor="#666666"> <td width="166" height="41"><div align="center" class="style17"><span class="style13">Customer</span></div></td> <td width="91"><div align="center"><strong><span class="style14">Docnum</span></strong></div></td> <td width="86"><div align="center"><strong><span class="style15">Post Date</span></strong></div></td> <td width="262"><div align="center"><strong><span class="style16">Balance Due</span></strong></div></td> </tr> </table> <% dim chkVol For Each chkVol in Request.Form("doc") strSQL = " select distinct o.docnum,o.cardname,o.docdate,o.doctotal,r.objtype,r.address from oinv o inner join inv1 i on o.docentry=i.docentry inner join ocrd r on o.cardcode=r.cardcode " strSQL = strSQL & " where o.docstatus='o' and o.docnum= '"&chkVol&"' " ''response.Write(strSQL) Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 %> </p> <table width="615" border="1" cellpadding="0" cellspacing="0"> <% While Not objRec.EOF if codeline<>objRec.Fields(2).Value then codeline = objRec.Fields(2).Value %> <tr onMouseOver="show(this)" onMouseOut="move(this)" class="even"> <td width="191"><%=objRec.Fields(1).Value%></td> <td width="100"><div align="center"><%=objRec.Fields(0).Value%></div></td> <td width="88"><div align="center"><%=objRec.Fields(2).Value%></div></td> <td width="294"> <div align="right"><font color="#CC3300"> </font> <% response.write(formatnumber(objRec.Fields(3).Value)) pvsum=cdbl(pvsum)+cdbl(objRec.Fields(3).Value) %></div></td> </tr> <% else %> <% End if objRec.MoveNext Wend %> </table> <div align="center"> <% Next %> <% objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง