<%
Dim strTo, strSubject, strBody
Dim objCDOMail
strTo = "showbiz@brazilia.co.za"
strSubject = "Competition Form..."
' Some spacing:
strBody = strBody & vbCrLf
strBody = strBody & " -- Competition -- "
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Sender Details:"
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Sender Name & Surname -- " & Request.Form("Name") & " " & Request.Form("Surname")
strBody = strBody & vbCrLf
strBody = strBody & "Sender Company & Occupation -- " & Request.Form("Company") & " " & Request.Form("Occupation")
strBody = strBody & vbCrLf
strBody = strBody & "Telephone Home/Work/Cell -- " & Request.Form("TelH") & " / " & Request.Form("TelW") & " / " & Request.Form("TelC")
strBody = strBody & vbCrLf
strBody = strBody & "Email Address -- " & Request.Form("Email")
strBody = strBody & vbCrLf
strBody = strBody & "Single, Couple or Group -- " & Request.Form("radiobutton")
strBody = strBody & vbCrLf
strBody = strBody & "Coments -- " & Request.Form("TelW")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Three Contacts:"
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Contact1 Name & Surname -- " & Request.Form("Name2") & " " & Request.Form("Surname2")
strBody = strBody & vbCrLf
strBody = strBody & "Contact1 Company & Occupation -- " & Request.Form("Company2") & " " & Request.Form("Occupation2")
strBody = strBody & vbCrLf
strBody = strBody & "Telephone Home/Work/Cell -- " & Request.Form("TelH2") & " / " & Request.Form("TelW2") & " / " & Request.Form("TelC2")
strBody = strBody & vbCrLf
strBody = strBody & "Contact1 Email Address -- " & Request.Form("Email2")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Contact2 Name & Surname -- " & Request.Form("Name3") & " " & Request.Form("Surname3")
strBody = strBody & vbCrLf
strBody = strBody & "Contact2 Company & Occupation -- " & Request.Form("Company3") & " " & Request.Form("Occupation3")
strBody = strBody & vbCrLf
strBody = strBody & "Telephone Home/Work/Cell -- " & Request.Form("TelH3") & " / " & Request.Form("TelW3") & " / " & Request.Form("TelC3")
strBody = strBody & vbCrLf
strBody = strBody & "Contact2 Email Address -- " & Request.Form("Email3")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Contact3 Name & Surname -- " & Request.Form("Name4") & " " & Request.Form("Surname4")
strBody = strBody & vbCrLf
strBody = strBody & "Contact3 Company & Occupation -- " & Request.Form("Company4") & " " & Request.Form("Occupation4")
strBody = strBody & vbCrLf
strBody = strBody & "Telephone Home/Work/Cell -- " & Request.Form("TelH4") & " / " & Request.Form("TelW4") & " / " & Request.Form("TelC4")
strBody = strBody & vbCrLf
strBody = strBody & "Contact3 Email Address -- " & Request.Form("Email4")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Website Advertising:"
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Social Intro Club -- " & Request.Form("SocialIntClub")
strBody = strBody & vbCrLf
strBody = strBody & "Entertainment -- " & Request.Form("Entertainment")
strBody = strBody & vbCrLf
strBody = strBody & "Dine/Dance Restaurant -- " & Request.Form("DineDanceResturant")
strBody = strBody & vbCrLf
strBody = strBody & "Dance Organization -- " & Request.Form("DanceOrg")
strBody = strBody & vbCrLf
strBody = strBody & "Sport/Recreation -- " & Request.Form("SportRec")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Details:"
strBody = strBody & vbCrLf
strBody = strBody & "Name & Company -- " & Request.Form("Name5") & " " & Request.Form("Company5")
strBody = strBody & vbCrLf
strBody = strBody & "Telephone Home/Work/Cell/Fax -- " & Request.Form("TelH5") & " / " & Request.Form("TelW5") & " / " & Request.Form("TelC5") & " / " & Request.Form("TelF5")
strBody = strBody & vbCrLf
strBody = strBody & "Email & Website -- " & Request.Form("Email5") & " / " & Request.Form("Website5")
strBody = strBody & vbCrLf
strBody = strBody & "Comments -- " & Request.Form("Comments5")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Additional Information -- " & Request.Form("AddInfo")
strBody = strBody & vbCrLf
strBody = strBody & "Recieve Updates? -- " & Request.Form("RecieveUpdates")
strBody = strBody & vbCrLf
If Request.Form("Submit") <> "Submit" Then
%>
Prizes to be won:
Gift Vouchers, Dance Videos, Latin Dance Course (transferrable),
Dockside & other club tickets :
Total prize to the value of R3000
To Enter:
Send details of as many party animal friends that you think that would be interested in sassy latin dance classes or who would be interested in advertising their services on our website: |
<%
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 |
| |
|