<%
SUB sendmail( fromWho, toWho, Subject, Body )
DIM myMail
Set myMail = Server.CreateObject("CDONTS.Newmail")
myMail.From = fromWho
myMail.To = toWho
myMail.Subject = Subject
myMail.Body = Body
myMail.Send
END SUB
fromWho = TRIM( Request.Form( "email") )
toWho = TRIM( Request.Form( "recipient") )
Subject = TRIM( Request.Form( "subject" ) )
Realname = TRIM( Request.Form( "realname" ) )
Comments = TRIM( Request.Form( "comments") )
Body = Realname & " " & Comments
If toWho <> "" THEN
sendMail fromWho, toWho, Subject, Body
Response.redirect "fbthanks_ent.php"
END IF
%>
Contact FAMU
To contact the FAMU Entomology Department or Webmaster you may use the online form below.
|
