World Cup Group ประกาศขายสินค้า   <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("cgi-bin/db/job.mdb") Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * From job1 " Set rs = conn.Execute(sql) count = 1 On error resume next RS.MoveFirst Do while not RS.EOF %> <% count = count+1 On error resume next rs.MoveNext loop rs.CLOSE conn.close %>         No. สินค้า จำนวน รายละเอียด

110/3-4 Ekkachai Rd., Bangbon, Bangkok, 10150 Thailand. E-mail: info@worldcup.co.th Tel: (66) 2899-6722 to 33 Fax: (66) 2899-6740

>