<% if Request.Querystring("isSubmitted") = "yes" then if Request.Querystring("cmpName") <> "" and Request.Querystring("cmpTelephone") <> "" then Dim namevar, telephonevar, interestvar, emailvar, commentvar, confirmation Dim objCDO namevar = Request.Querystring("cmpName") telephonevar = Request.Querystring("cmpTelephone") interestvar = Request.Querystring("cmpInterest") emailvar = Request.QueryString("cmpEmail") commentvar = Request.Querystring("cmpComment") confirmation = "fa@optimumisp.com,miguel.j.simoes@verizon.com" Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "request@118lounge.com" objCDO.To = "info@118lounge.com" objCDO.Cc = "" objCDO.Subject = "118 Lounge Request Form" objCDO.Body = "Name: " & namevar & "
Phone: " & telephonevar & "
Intrest: " & interestvar & "
E-Mail: " & emailvar & "

Comment:
" & commentvar objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Bcc = confirmation objCDO.Send ConfirmMsg = "Thanks for submitting your information!" else ConfirmMsg = "You have to fill Name and Telephone information" end if end if %> contact
 

Name:

Telephone:
E-Mail:
Interested in: A RSVP

Room Rentals

General Information
Comments:  
<% if ConfirmMsg <> "" then %>

<%= ConfirmMsg %>

<% end if %>
118 Stockton Street -The Ironbound Newark NJ 07105
  &nbsp;&nbsp;       
TEL: 973.344.2457 - info@118lounge.com
118 Lounge: Contact-Us-Copyright© 2004-NJ-USA
  
Powered by Optimum Networks