<!--#include file="Connections.asp" -->
<%
Function rp(s)
s=Replace(s,"'","¡¯")
s=Replace(s,"<","&lt;")
s=Replace(s,">","&gt;")
s=Replace(s,"%","£¥")
s=Replace(s,"&","£¦")
rp=s
End Function

message_id=rp(Request("message_id"))
name=rp(Request("guest_name"))
from=rp(Request("guest_from"))
qq=rp(Request("guest_qq"))
email=rp(Request("guest_email"))
homepage=rp(Request("guest_homepage"))
title=rp(Request("guest_title"))
content=rp(Request("guest_content"))
If from="" Then from="Î´Öª"
If qq="" Then qq="Î´Öª"
If email="" Then email="Î´Öª"
If homepage="" Then homepage="Î´Öª"
ip=Request.ServerVariables("remote_addr")
If message_id<>"" And name<>"" And content<>"" And Title<>"" Then
	set revert = Server.CreateObject("ADODB.Recordset")
	revert.ActiveConnection = datalink
	revert.Source = "SELECT * FROM revert"
	revert.CursorType = 1
	revert.CursorLocation = 2
	revert.LockType = 3
	revert.Open()
	revert.addnew
	revert("message_id")=message_id
	revert("name")=name
	revert("from")=from
	revert("qq")=qq
	revert("email")=email
	revert("homepage")=homepage
	revert("title")=title
	revert("content")=content
	revert("revertdate")=date
	revert("reverttime")=time
	revert("ip")=ip
	revert.Update
	revert.close()
	Response.Write("action=complete")
End If
%>