<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr(Request("YourEmail")) & "" MailSubject = "" & cStr(Request("Subject")) & "" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mail.antararecords.com","25","antararecords","jon1234") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"info@antararecords.com") 'CC Entries 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") 'Start Mail Body MailBody = MailBody + "" & cStr(Request("YourName")) & " thought you would enjoy this album by Jon Simons." + VbCrLf MailBody = MailBody + "" + VbCrLf MailBody = MailBody + "Check it out, hear audio samples, and buy a copy online. Click on the link:" + VbCrLf MailBody = MailBody + "http://www.antararecords.com/jonsimons/music/seeminglydreamingly.asp" + VbCrLf MailBody = MailBody + "" + VbCrLf MailBody = MailBody + "Personal Message from " & cStr(Request("YourName")) & ":" + VbCrLf MailBody = MailBody + "" & cStr(Request("Message")) & "" + VbCrLf MailBody = MailBody + "" + VbCrLf MailBody = MailBody + "Album Details" + VbCrLf MailBody = MailBody + "Artist: Jon Simons" + VbCrLf MailBody = MailBody + "Album: Seemingly Dreamingly" + VbCrLf MailBody = MailBody + "Format: Compact Disc" + VbCrLf MailBody = MailBody + "Released: November 5, 2002"'EndlineNoBreak 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method")="POST") AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER")), Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"))<>0)) then 'WA Universal Email object="AspEmail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("" & cStr(Request("FriendEmail")) & "") 'Send Mail All Entries if ("/shared/tellAFriendSent.asp"<>"") then Response.Redirect("/shared/tellAFriendSent.asp") end if end if %> Antara Records -
Tell A Friend

Tell your friends about this great album.
Simply fill out this form and click send.

Your Name:

Your Email Address:

Subject:

Personal Message (optional)

Your Friend's Email:

Please allow up to one minute after hitting Send.

close window