<% Dim oItem Dim sEmailBody sEmailBody = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then For Each oItem In Request.Form sEmailBody = sEmailBody & oItem & ": " & Request.Form(oItem) & vbCrLf & vbCrLf Next SendMail "Enquiry Form", sEmailBody, "info@grafixdesign.net", "info@whiteicenights.co.uk" Response.Redirect "thankyou.asp" End If Function SendMail( ByVal sSubject, ByVal sBody, sFromEmail, sToEmail) Dim objMail SendMail = True 'Attempt to create with CDOSYS, the default for 2000 installation. Set objMail = Server.CreateObject("CDO.Message") 'Using the CDO object excludes us from naming the email addresses. objMail.From = sFromEmail objMail.To = sToEmail objMail.TextBody = sBody objMail.Subject = sSubject objMail.Send() Set objMail = Nothing End Function %> Untitled



Nuchna Roadshow UK – Exclusive Host DJs at White Ice
www.nuchna.com

Fantasia – Exclusive Host DJs at White Ice
www.fantasiaevents.com

Attraction Events – London’s leading nightlife guest list providers www.attraction-events.com

F5 design – Designers of the White Ice brand, website & flyers.
www.f-five.co.uk

Eye Jogia – Official White Ice Photographer
www.eyejogia.com