xx = split(request("list_sn"),vbcrlf)
for i=0 to ubound(xx)
if trim(xx(i))<>"" then
rs.AddNew
rs("list_pn") = request("list_pn")
rs("list_sn") = trim(xx(i))
rs("list_date") = request("list_date")
...
end if
next
rs.update