Calgary IT Pro Community

<% 'recipient must be updated both in the asp code and in the Form's hidden button If Request.form("recipient") = "info@calgaryitpro.org" Then If Request.Form("email") <> "" Then If Request.Form("friendemail") <> "" Then ' SEND CLIENT MESSAGE TO SITE MAILBOX: set msg = Server.CreateObject("JMail.Message") msg.From = Request.Form("email") msg.Fromname = Request.Form("your_name") & " " & Request.Form("phone") msg.Subject = ">>>" & Request.Form("subject") & "<<<" msg.AddRecipient Request.Form("recipient") msg.HTMLBody = "Invitation Sent To > " & Request.Form("friendemail") & " >> " & Request.Form("comments") msg.Send("10.1.27.200") ' send message ' SEND INVITATION MESSAGE TO OTHER CLIENT MAILBOX: set givemsg = Server.CreateObject("JMail.Message") givemsg.From = "donotreply@calgaryitpro.org" givemsg.Fromname = "your_name" givemsg.Subject = "You are invited by " & Request.Form("your_name") & " to the Calgary IT Pro Community" givemsg.AddRecipient Request.Form("friendemail") givemsg.HTMLBody = Request.Form("comments") & _ "*** THE CALGARY IT PRO COMMUNITY IS LOOKING FORWARD TO MEETING YOU *** " & _ "http://www.calgaryitpro.org" givemsg.Send("10.1.27.200") ' send message ' SEND COPY OF MESSAGE BACK TO CLIENT MAILBOX: set sentmsg = Server.CreateObject("JMail.Message") sentmsg.From = "donotreply@calgaryitpro.org" sentmsg.Fromname = "calgaryitpro.org" sentmsg.Subject = "Dear Mrs. or Mr. " & Request.Form("your_name") & " : copy of your today's invitation" & _ " to " & Request.Form("friendemail") sentmsg.AddRecipient Request.Form("email") sentmsg.HTMLBody = Request.Form("comments") & _ "THANK YOU FOR INVITING A FRIEND TO THE CALGARY IT PRO COMMUNITY." sentmsg.Send("10.1.27.200") ' send message ' LOAD THANK YOU PAGE: Response.Redirect("http://www.calgaryitpro.org/thanks3.htm") End If End If End If %> Calgary IT Pro Community

INVITATION FORM

Each time you invite a friend or colleague you will get an automatic supplemental entry in our monthly meetings' draw for free gifts and free software. You must attend the monthly meeting to be entered in draws.

Please feel free to use this form to send an invitation to visit or joint the Calgary IT Pro Community to a friend or a colleague. Thank you for your interest.