<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include file = "../Common.asp" --><!-- #include file = "../stdlib.asp" --><!-- #include file = "../oalib.asp" --><%
dim r, id, title, message
Randomize
r=Int(1000000 * Rnd)
if isNumeric(request("id")) and len(request("title"))>0 then
	id=CLng(request("id"))
	title=Server.HTMLEncode(request("title"))
	message=replace(Server.HTMLEncode(request("message")),vbcrlf,"<br>")
	oaNewGroup title,"","",message,id
end if
Response.Redirect "default.asp?t=" & r
%>