<%if webkey8<>0 then
response.write ""
response.end
end if%>
<%
if request("action")="save" then
linkname=request.form("linkname")
linkurl=request.form("linkurl")
linksm=request.form("linksm")
key=request.form("key")
if linkname="" or linkurl="" or linksm="" or key="" then
response.write""
response.end
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_links"
rs.open sql,conn,1,3
rs.addnew
rs("SMT_linkname")=linkname
rs("SMT_linkurl")=linkurl
rs("SMT_linksm")=linksm
rs("SMT_key")=key
rs("SMT_key1")=0
rs.update
rs.close
set rs=nothing
response.write""
response.end
end if%>
<%if request("action")="links" then%>
<%end if%>