Expand|Select|Wrap|Line Numbers
- private sub add()
- if iupdate = "true" then
- 'response.write "update"
- strsql = "INSERT INTO partlist ([comp_id],[pd_name],[cost], [quant]) SELECT instock.comp_id, instock.pd_name, instock.cost, (THE TEXT BOX VALUE HERE?)"
- strsql = strsql & "FROM partlist RIGHT JOIN instock ON partlist.comp_id = instock.comp_id WHERE instock.comp_id='" & code & "'"
- 'response.write strsql
- RS.ActiveConnection.Execute(strsql)
- response.redirect("./project.asp")
- else
- response.write "<form action='./project.asp?action=add&code="&code&"&iupdate=true' method='post'>"
Expand|Select|Wrap|Line Numbers
- <%=(RS.Fields.Item("pd_name").Value)%>
Cheers