%
Function encode(content)
dim STR_L,temp
temp=""
if content <> "" then
STR_L=len(content)
for i=1 to STR_L
select case mid(content,i,1)
case chr(13)
temp=temp+" "
case chr(32)
temp=temp+" "
case "<"
temp=temp+"<"
case ">"
temp=temp+">"
case else
temp=temp+mid(content,i,1)
end select
next
end if
encode = temp
End Function
%>
<%
id=request.QueryString("id")
if not Isnumeric(id) or id = "" then id = 0
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
set rs=server.CreateObject("adodb.recordset")
Sql="select * from Invite"
rs.Open sql,conn,1,3
rs.addnew
rs("Title")=request.form("Title")
rs("Content")=request.form("Content")
rs("EditDate")=Now()
rs("Pertainid")=id
rs.update
rs.close
set rs = nothing
conn.close
set conn = nothing
response.Write ""
response.end
end if
%>