<%
if sel_room = "0" then
sql = "select * from webdetail where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
sql = "select * from webdetail_r2 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
sql = "select * from webdetail_r3 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
sql = "select * from webdetail_r4 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
sql = "select * from webdetail_r5 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
sql = "select * from webdetail_r6 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
sql = "select * from webdetail_r7 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
sql = "select * from webdetail_r8 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
sql = "select * from webdetail_r9 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
sql = "select * from webdetail_r10 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "1" then
sql = "select * from webdetail where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "2" then
sql = "select * from webdetail_r2 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "3" then
sql = "select * from webdetail_r3 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "4" then
sql = "select * from webdetail_r4 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "5" then
sql = "select * from webdetail_r5 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "6" then
sql = "select * from webdetail_r6 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "7" then
sql = "select * from webdetail_r7 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "8" then
sql = "select * from webdetail_r8 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "9" then
sql = "select * from webdetail_r9 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
if sel_room = "10" then
sql = "select * from webdetail_r10 where keyword like '%"&keyword&"%' or topic like '%"&keyword&"%'"
Set rs = conn.execute(sql)
Do while Not rs.eof
result = result+1
%>
<%response.write (result) %>
.
<%response.write""&rs("topic")&"" %>
<% rs.movenext
loop
rs.close
end if
%> |
