%
Dim job=Request.Form("job")
Dim yname=Request.Form("yname")
Dim yemail=Request.Form("yemail")
Dim fname=Request.Form("fname")
Dim femail=Request.Form("femail")
Dim emailSelf=Request.Form("emailSelf")
Dim emailFriend=Request.Form("emailFriend")
Dim message=Request.Form("message")
Dim url=Request.Form("url")
Dim bookmarks=Request.Form("bookmarks")
Dim notes=Request.Form("notes")
Dim msg=""
Dim subject=""
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 & "
" & notes & "
" & message
subject=yname & " sent you notes!"
End If
If job="sendcomment" Then
SendEmail(yname, yemail, fname, femail, subject, msg)
Else
If emailSelf Then
SendEmail(yname, yemail, yname, yemail, subject, msg)
End If
If emailFriend Then
SendEmail(yname, yemail, fname, femail, subject, msg)
End If
End If
%>