ASP循环读取插入 的问题
想要实现的功能是：
用获得到的人名 查询userinf 表中的 部门字段然后写入到数据库
mysendto(i)是获得到的人名：如 张三,李四,
userinf表
name userdept
张三 销售部
李四 市场部
目前的代码
<%
sendto=request("TO_NAME")
fsr_user=request("fsr_user")
userdept=request("userdept")
title=request("title")
documenttype=request("lb")
content=request("content")
linkpath=request("files")
dim mysendto
mysendto=split(sendto,",",-1,1)
set conn=opendb("oabusy","conn","accessdsn")
set rs1=server.createobject("ADODB.recordset")
set rs=server.createobject("ADODB.recordset")
for i=0 to ubound(mysendto)
if mysendto(i)<>"" then
sql = "Insert Into senddate (title,documenttype,content,sender,recipientusername,获得的部门,filename) Values('"&title&"','"&documenttype&"','"&获得的部门&"','"&content&"','"&fsr_user&"','"&mysendto(i)&"','"&linkpath&"')"
rs.open Sql,conn,1,1
Response.Write("</br>"&mysendto(i)&"")
end if
next
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
