A: DANCE CLASSES Complete the form below for further information on our dance school and or to Register online to win the competition
Name:		Tel (H):
Surname:		Tel (W):
Company:		Cell:
Occupation:		Email:
Single: Couple: Group:
How did you get to hear about us?
List 3 people that you know that would be interested in Latin American Dance Lessons:
Name:		Tel (H):
Surname:		Tel (W):
Company:		Cell:
Occupation:		Email:
Name:		Tel (H):
Surname:		Tel (W):
Company:		Cell:
Occupation:		Email:
Name:		Tel (H):
Surname:		Tel (W):
Company:		Cell:
Occupation:		Email:
B: Advertising on our website   Complete the form below if you're interested in advertising on our website
Businesses Interested in Advertising with us In the following fields:  (click all that are applicable)
Social Intro Club
Entertainment
Dine/Dance Restaurant
Dance Organization
Sport/Recreation
Company:		Tel (W):
Full name of contact person:		Tel (H):
Email:		Fax:
Website:		Cell:
Description of business
Additional Information about business
I agree to receive updates via sms/email from time to time

<% Else ' Create an instance of the NewMail object. Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.Form("email") objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.Body = strBody ' There are lots of other properties you can use. ' You can send HTML e-mail, attachments, etc... ' You can also modify most aspects of the message ' like importance, custom headers, ... ' Check the documentation for a full list as well ' as the correct syntax. ' Some of the more useful ones I've included samples of here: 'objCDOMail.Cc = "user@domain.com;user@domain.com" 'objCDOMail.Bcc = "user@domain.com;user@domain.com" 'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) 'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt" ' I've had several requests for how to send HTML email. ' To do so simply set the body format to HTML and then ' compose your body using standard HTML tags. 'objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML 'Outlook gives you grief unless you also set: objCDOMail.MailFormat = 0 ' CdoMailFormatMime ' THIS LINE SHOULD BE UNCOMMENTED TO ACTUALLY SEND THE ' MESSAGE. PLEASE BE SURE YOU HAVE APPROPRIATE VALUES ' FOR TO AND FROM ADDRESSES AND HAVE CHANGED THE MESSAGE ' SUBJECT AND BODY BEFORE UNCOMMENTING THIS. ' Send the message! objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method. Set objCDOMail = Nothing Response.Redirect("\FeedbThankYou.html") 'Response.Write "Message ARE NO LONGER BEING SENT because of all the abuse the system was receiving!" End If ' End page logic %> <% ' Only functions and subs follow! ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %> Competition Closes: After first 350 entries