<%
call log_chk()
if request("act")="mod" then
dim kword
kword=request("kword")
if kword="" then
response.write""
response.end
end if
Set rs= Server.CreateObject ("ADODB.RecordSet")
sql="select * from mykeyword where key_ID=1"
rs.open sql,conn,1,3
rs("key_name")=kword
rs.update
rs.close
set rs=nothing
response.write""
response.end
end if
%>
<%Set rs= Server.CreateObject ("ADODB.RecordSet")
sql="select * from mykeyword where key_ID=1"
rs.open sql,conn,1,3
if rs.eof then
else
do while not rs.eof%>
<%key_title=rs("key_name")%>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%>
