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