<% if trim(request("submit"))="Submit" then fromaddress=trim(request("email")) bodytext=trim(request("txtcontent")) subjecttext="Contact us from "& request("txtname") toaddress="oooadooo@aol.com" Dim objMail sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 .Item(sch & "smtpserver") = "win.shockcomics.com" .update End With Set objMail = Server.CreateObject("CDO.Message") Set objMail.Configuration = cdoConfig objMail.From =fromaddress objMail.To =toaddress objMail.Subject= subjecttext objMail.TextBody = bodytext objMail.Send Set objMail = Nothing response.redirect "thanks.asp" end if %> Hostesses To Go - Full Service Party Planners Hostesses To Go - Full Service Party Planners

Here at HTG we offer some of the most popular and exciting entertainment available in the tri state area. A variety of options are available, we are equipped with anything and everything you desire to create that perfect affair you've been dreaming of. We accommodate all special requests.

Themed Events: Luau, Casino Night, etc.
Live Music
DJ's / Dancer's
Piano Player
Magic shows
Clowns
Petting Zoo
Balloon Sculpting
Comedians
Legends Performers (Elvis, etc.)
Kiddy Rides
And much more...

Please feel free to call us for more info: 1.718.948.8510