<%
Dim URL, SenderEmail, Message
URL = Request.QueryString("URL")
If Len(URL) = 0 Then URL = "http://www.aspalliance.com/steven.swafford/"
If Len(Request.Form("SendersEmail")) > 0 Then
Dim objMail,FriendEmail
sBody = "The Page at " & URL & " has been recommend by " & Request.Form("SendersEmail") & vbCrLf & " -- Message -- " & vbcrlf & Request.Form("Message")
I=0
Do While True
FriendEmail = Request.Form("FriendEmail" & I)
If Len(FriendEmail) = 0 Then
Exit Do
Else
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "sswafford@aspalliance.com"
objMail.Subject = "Recommended Page"
objMail.Importance=1
objMail.Body = sBody
objMail.To = FriendEmail
objMail.Send()
End If
I=I+1
Loop
Set objMail = Nothing
Response.write "
Thank you for spreading the word."
Response.write "
a href=""" & URL & """>Return to " & URL & ""
Else
End If
%>
Better Together, an initiative of the Saguaro Seminar: Civic Engagement in America, Kennedy School of Government
