%
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
|
|
118
Stockton Street -The Ironbound Newark
NJ 07105
|
  ;   |
|
|
|
118
Lounge: Join List-Copyright© 2004-NJ-USA
|
|
|
|