%
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
%>