[救助]还是两个表查询结果问题
<table width="536" height="235" border="1" cellpadding="1" cellspacing="0" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr bgcolor="#FFFFFF">
<td><font color=darkgray>姓名</font></td>
<td><font color=darkgray>性别</font></td>
<td><font color=darkgray>备注</font></td>
</tr>
<%
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("vv.mdb")
set rs=server.createobject("adodb.recordset")
asp=request("kok")
asp=trim(asp)
asp=replace(asp,","," ")
asp=replace(asp,","," ")
cc=split(asp)
max=ubound(cc)
sql=""
for i=0 to max
if i=0 then
sql=sql&"beok.xin like '%"&cc(i)&"%' and "
end if
if i=max then
sql=sql&"beok2.xin like '%"&cc(i)&"%'"
end if
next
sqlc="select * from beok union all select * from beok2 where "&sql&""
rs.open sqlc,conn,1,3
do while not rs.eof
%>
<tr>
<td><%=rs("min")%></td>
<td><%=rs("xin")%></td>
<td><a href="del.asp?id=<%=rs("id")%>">del</a></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
一个mdb,两个表,beok和beok2,结构一样,主键好像是一样的.
运行提示如下:
rs.open sqlc,conn,1,3
do while not rs.eof
Response.Write "" & vbCrLf
Response.Write " " & vbCrLf[0]Script error detected at line 25,col[0].
Description: 至少一个参数没有被指定值。
请问应该如何修改?