J
|
Jane 7/2/2009 |
Bryan, str = "select WorkType, Description from IT_Table where WorkType='" & values("WorkType") & "'" Set rstmp = server.CreateObject("ADODB.Recordset") rstmp.open str,dbConnection while not rstmp.eof dbConnection.Execute "insert into ToDo (JobID, WorkType, Description) values ("&values("JobID")&",'"&rstmp("WorkType")&"','"&values("Description")&"')" dbConnection.Execute "delete from IT_Table where WorkType='" & values("WorkType") & "'" rstmp.movenext wend rstmp.close set rstmp=nothing |
B
|
Bryan author 7/2/2009 |
Works perfectly. |