Gallery
<%
if Request.Form <> "" then
' check the data that has been sent:
strName = Request.Form("name")
strEmail = Request.Form("email")
strTel = Request.Form("mob")
strMessage = Request.Form("ans")
strError = "Submission Complete"
'
Dim objCDOMail
'Holds the CDONTS NewMail Object
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from
objCDOMail.From = "root@duncanf.com"
'Who the e-mail is sent to
objCDOMail.To = "info@duncanf.com;"
'Who the blind copies are sent to
'objCDOMail.Bcc = "myFriend1@thereDomain.com;myFriend2@anotherDomain.com"
objCDOMail.Bcc = ";"
'Set the subject of the e-mail
objCDOMail.Subject = "New Competition Entry"
'Set the main body of the e-mail
objCDOMail.Body = "-- Details & Answer of the Participant --" & vbcrlf & vbcrlf & _
" Name : " & strName & vbcrlf & _
" Email : " & strEmail & vbcrlf & _
" Mob : " & strTel & vbcrlf & _
" Answer : " & strMessage & vbcrlf & vbcrlf
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
'
end if
%>
<% Server.Execute("/traffic/track.asp") %>
Submit a track
and win!!
Submit a track for and enter a contest to win a
smack in the mouth...
The track has to be of the underground dance genre.
I will anounce the winner based on the track I like
the most. So get searching!
The winner will be anounced in this section of the
site.
To submit your track, please follow the link below.