<% Response.CharSet="utf-8" job=Request("job") yname=Request.Form("yname") yemail=Request.Form("yemail") fname=Request.Form("fname") femail=Request.Form("femail") emailSelf=Request.Form("emailSelf") emailFriend=Request.Form("emailFriend") message=Request.Form("message") url=Request.Form("url") bookmarks=Request.Form("bookmarks") notes=Request.Form("notes") If job="sendtofriend" Then msg=yname&" ("&yemail&") sent you this article!


Click here to view article

URL:"&url&"

Your friend's message: "&message subject=yname&" sent you an article!" ElseIf job="sendcomment" Then msg=yname&" ("&yemail&") left a comment on your digital magazine page located at the following URL!


"&url&"

Click here to view article page

Your reader's comment:

"&message subject=yname&" left you a comment!" ElseIf job="sendbookmarks" Then msg=yname&" ("&yemail&") Emailed you these bookmarks for the digital magazine located at the following URL!

"&url&"
"&bookmarks&"
"&message subject=yname&" sent you bookmarks!" ElseIf job="sendnotes" Then msg=yname&" ("&yemail&") Emailed you these notes for the digital magazine located at the following URL!


"&url&"
"¬es&"
"&message subject=yname&" sent you notes!" End If If job="sendcomment" Then Call SendEmail(yname&"<"&yemail&">",fname&"<"&femail&">",subject,msg) Else If(emailSelf) Then Call SendEmail(yname&"<"&yemail&">",yname&"<"&yemail&">",subject,msg) End If If(emailFriend) Then Call SendEmail(yname&"<"&yemail&">",fname&"<"&femail&">",subject,msg) End If End If %>