<% dim strHtml,senderName,senderEmail,recipientName,recipientEmail,comments senderName = trim(Request.Form("txt_yourname")) senderEmail = trim(Request.Form("txt_youremail")) recipientName = trim(Request.Form("txt_toname1")) recipientEmail = trim(Request.Form("txt_toemail1")) recipientName2 = trim(Request.Form("txt_toname2")) recipientEmail2 = trim(Request.Form("txt_toemail2")) recipientName3 = trim(Request.Form("txt_toname3")) recipientEmail3 = trim(Request.Form("txt_toemail3")) recipientName4 = trim(Request.Form("txt_toname4")) recipientEmail4 = trim(Request.Form("txt_toemail4")) recipientName5 = trim(Request.Form("txt_toname5")) recipientEmail5 = trim(Request.Form("txt_toemail5")) comments = trim(Request.Form("comments")) 'Response.Write "Sendername : " & senderName & "
" 'Response.Write "SenderEmail : " & senderEmail & "
" 'Response.Write "Recipientname : " & recipientName & "
" 'Response.Write "RecipientEmail : " & recipientEmail & "
" 'if comments <> "" then ' Response.Write "comments : " & comments & "
" 'end if strHtml = "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "

" strHtml = strHtml & "" & senderName & " thought you might be interested in 550Access Unlimited Internet Service. " if comments <> "" then strHtml = strHtml & " " & comments & " " end if strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " Reason to Sign up: " strHtml = strHtml & "" strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " " strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & "" strHtml = strHtml & " Why pay for extra features that you don't need or use?  We are offering just a connection to the internet at the lowest price possible. " strHtml = strHtml & "Sign Up Now!  In order to provide you with the lowest price possible we must charge a non-refundable setup.  We must make sure people do not abuse our offering at a low price.   We do not hide any other cost to use our service.   We offer only the best, most reliable V.90 and V.92 connections at the highest speeds the government allows over phone lines   On average a user only uses 25-50 hours of service a month.   Most users have a free email account from services such as " strHtml = strHtml & "Yahoo! " strHtml = strHtml & "or Hotmail.  " strHtml = strHtml & "This also makes it easier since you do not have to keep handing out a new email when you switch ISPs. Most users do not even use their web space. People usually just use free web servers out there such as " strHtml = strHtml & "Geocities," strHtml = strHtml & "Tripod," strHtml = strHtml & "Angelfire.  We are compatible with all types of Chatting programs that keep you in touch with your friends on AOL, MSN, Yahoo.   We provide email support and live chat support. For more information" strHtml = strHtml & "click here " strHtml = strHtml & " We do not use pop up ads with our software or website.  this ensures that you are free to surf without having to constantly be distracted with closing pop up ads. We offer access numbers in every single area code in the country. Ideal when you want to get online when on vacation, visiting family, going to college, or going on a business trip    We support Macintoshes and all game systems such as dreamcast, play station 2, and Xbox.  With these game systems, why you need these extra features, It simply gets you on so you can compete with your friends.    P.S. 550Access takes privacy very seriously. This is a one-time mailing because " & senderName & " referred you. Information will be used for this referral only and for no other purposes.

" strHtml = strHtml & "" strHtml = strHtml & "" 'Response.Write strHtml & "
" 'Response.End Set objsendmail=CreateObject("CDONTS.NewMail") with objsendmail .From=senderEmail .To=recipientEmail .BCC = "hiren@vippn.com" .BodyFormat=CdoBodyFormatHtml .MailFormat=CdoMailFormatMIME .Subject=senderName & " wants you to try 550Access InterNet Service" .Body=strHtml .Send End with Set objsendmail=Nothing if(recipientEmail2<>"")then Set objsendmail=CreateObject("CDONTS.NewMail") with objsendmail .From=senderEmail .To=recipientEmail2 .BCC = "hiren@vippn.com" .BodyFormat=CdoBodyFormatHtml .MailFormat=CdoMailFormatMIME .Subject=senderName & " wants you to try 550Access InterNet Service" .Body=strHtml .Send End with Set objsendmail=Nothing end if if(recipientEmail3<>"")then Set objsendmail=CreateObject("CDONTS.NewMail") with objsendmail .From=senderEmail .To=recipientEmail3 .BCC = "hiren@vippn.com" .BodyFormat=CdoBodyFormatHtml .MailFormat=CdoMailFormatMIME .Subject=senderName & " wants you to try 550Access InterNet Service" .Body=strHtml .Send End with Set objsendmail=Nothing end if if(recipientEmail4<>"")then Set objsendmail=CreateObject("CDONTS.NewMail") with objsendmail .From=senderEmail .To=recipientEmail4 .BCC = "hiren@vippn.com" .BodyFormat=CdoBodyFormatHtml .MailFormat=CdoMailFormatMIME .Subject=senderName & " wants you to try 550Access InterNet Service" .Body=strHtml .Send End with Set objsendmail=Nothing end if if(recipientEmail5<>"")then Set objsendmail=CreateObject("CDONTS.NewMail") with objsendmail .From=senderEmail .To=recipientEmail5 .BCC = "hiren@vippn.com" .BodyFormat=CdoBodyFormatHtml .MailFormat=CdoMailFormatMIME .Subject=senderName & " wants you to try 550Access InterNet Service" .Body=strHtml .Send End with Set objsendmail=Nothing end if %> Thank you! Your email has been sent to the following recipient,

<%=recipientEmail%> <%if(recipientEmail2<>"")then response.write "
"&recipientEmail2&"" end if%> <%if(recipientEmail3<>"")then response.write "
"&recipientEmail3&"" end if%> <%if(recipientEmail4<>"")then response.write "
"&recipientEmail4&"" end if%> <%if(recipientEmail5<>"")then response.write "
"&recipientEmail5&"" end if%>
There is no limit to how many people you can tell, so go ahead and tell another friend!