<% 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 are some of the services we provide:
.
Services
Catering
Bakery Items
Wedding Cakes
Fully Staffed
Waiters
Hostesses
Bartenders
Grillers
Maitre d's
Captains
Special Services
Tent Rentals
Valet Service
Grill Rentals
Tables
Chairs
Linens
Silverware
Plates
Ice Sculptures
Sound systems
Photography - Video - Stills - Slides
Printing - Invitations - Announcements - etc.
Limousine Service