<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
		end if
	end if
	Response.Write	"                      </font></td>" & vbNewLine & _
			"                    </tr>" & vbNewLine & _
			"                  </table>" & vbNewLine & _
			"                </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><textarea cols=""" & intCols & """ name=""Message"" rows=""" & intRows & """ wrap=""VIRTUAL"" onselect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & Trim(CleanCode(TxtMsg))
	If Trim(CleanCode(TxtMsg)) = "" and (Request.QueryString("event")=1 or isevent=1) then 
		Response.WRite "Channel : " & vbNewLine & _
			"Time : xx:xx AM - xx:xx PM AEST" & vbNewLine & _
			"Repeat : Y/N" & vbNewLine & _
			"Location : " & vbNewLine & _
			"Description : "& vbNewLine & vbNewLine & vbNewLine & _
			"All information is correct at time of posting, and is kept as updated as possible"
	end if
	Response.Write "</textarea><br /></td>" & vbNewLine & _
			"              </tr>" & vbNewLine
end if
select case strRqMethod