<%
Act = Request.QueryString("act")
If act = "save" Then
webname = Request.Form("webname")
keywords = Request.Form("keywords")
description = Request.Form("description")
indexwebname = Request.Form("indexwebname")
copyright = Request.Form("copyright")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select webname,keywords,description,indexwebname,copyright From inc Where id=1",Conn,1,3
If Not Rs.Bof And Not Rs.Eof Then
Rs("webname") = webname
Rs("keywords") = keywords
Rs("description") = description
Rs("indexwebname")=indexwebname
Rs("copyright")=copyright
Else
Rs.AddNew
Rs("webname") = webname
Rs("keywords") = keywords
Rs("description") = description
Rs("indexwebname")=indexwebname
Rs("copyright")=copyright
End If
Rs.Update:Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing
Response.Write ""
Response.End
End If 'end save
%>