<% if Request.Querystring("isSubmitted") = "yes" then if Request.Querystring("cmpEmail") <> "" then Dim emailvar Dim objCDO emailvar = Request.QueryString("cmpEmail") confirmation="miguel.j.simoes@verizon.com" Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = emailvar objCDO.To = "list@118lounge.com" objCDO.Cc = "" objCDO.Subject = "Join List 118" objCDO.Body = "SUBSCRIBE 1133 118-members@118lounge.com" objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Bcc = confirmation objCDO.Send ConfirmMsg = "Thank you, You have successfully Joined Our List!" else ConfirmMsg = "Please Verify your E-mail address and Try again" end if end if %> join
 
   
"Please Enter your e-mail address
to receive monthly events and promotions at 118lounge.com"
 
E-Mail:
 
<% if ConfirmMsg <> "" then %> <%= ConfirmMsg %> <% end if %>

 

Click Here To Join Our Cellular Phone Text List

118 Stockton Street -The Ironbound Newark NJ 07105
  &nbsp;&nbsp;       
TEL: 973.344.2457 - info@118lounge.com
118 Lounge: Join List-Copyright© 2004-NJ-USA
  
Powered by Optimum Networks