<%
Option Explicit
Dim username, senduser, subject
username = Request.Cookies("username")
'Clear off if you're not logged in
if username = "" then
Response.Redirect("nologin.asp?page=messagecompose.asp")
end if
'If it's been sent a "senduser" variable it means this is a reply to someone, so put the value in a variable
if Request.QueryString("senduser") <> "" then
senduser = Request.QueryString("senduser")
else
'If there's no querystring with senduser in, make the variable empty
senduser = ""
end if
'If it's been send a querystring of "subject", prepare it with an "Re:" fot the new subject line
if Request.QueryString("subject") <> "" then
subject = "Re: " & Server.HTMLEncode(Request.QueryString("subject"))
else
subject = ""
end if
%>
Philweb
