Advertisement
Guest User

Untitled

a guest
Dec 15th, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 1.08 KB | None | 0 0
  1.             sql = "INSERT INTO dc_tagliecolori (dctc_id, dctc_tpdoc, dctc_numdoc, dctc_anndoc, dctc_colore"
  2.             sql = "SELECT COUNT(tgart_codtaglio) FROM PUBLIC.mg_tagliart WHERE art = cod"
  3.             set rsc = conn.execute(sql)
  4.             cont = 1
  5.             if not rsc.eof then
  6.                 sql = sql & ","
  7.                 do while cont <= rsc(0)
  8.                     sql = sql & " dctc_taglia" & cont
  9.                     cont = cont + 1
  10.                     rsc.movenext
  11.                 loop
  12.             sql = Left(sql,Len(sql)-1)
  13.             end if
  14.             sql = sql + " VALUES ("&sy_cvn(dctc_id)&","&sy_cvs(tipo)&","&sy_cvn(prg)&","&sy_cvn(anno)&","&sy_cvs(rs("tgcart_codart"))
  15.             sql = "SELECT tgart_codtaglio FROM PUBLIC.mg_tagliart WHERE art = cod"
  16.             set rsc = conn.execute(sql)
  17.             if not rsc.eof then
  18.                 sql = sql & ","
  19.                 do until rsc.eof
  20.                     sql = sql & rs("tgart_codtaglio") & ","
  21.                 loop
  22.             loop
  23.             sql = Left(sql,Len(sql)-1)
  24.             conn.execute(sql)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement