<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/connect.asp" -->
<%
Username=Checkstr(request.querystring("Username"))
if Username="" then
response.end()
end if
set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLReMessage where MessageID is null"
rs.open sql,cn,1,3
rs.addnew
rs("MessageID")=request.form("messageid")
rs("Username")=Username
rs("Content")=request.form("content")
rs.update
response.redirect("messagelist.asp?Username="&Username&"&seq=#"&rs("MessageID")&"")
%>
