% Sql="Select * from [THpositiongarment] order by code_position asc" set rs=conn.execute(SQL) on error resume next rs.movefirst Dim T(30) Dim N(30) Dim D(30) rn=0 Do while not rs.eof N(rn) = rs("thtypeposition") T(rn) = rs("typeposition") D(rn) = rs("detail") rs.movenext rn=rn+1 loop rs.Close %>
|
|||||||||||||
|
![]() |
|
|
© Thaigarmentjob.com |
|
For more information
Tel : 02-712-7047,
Fax : 02-3812520 ,02-7128797
|