<%@LANGUAGE = VBSCRIPT%>
<%Option Explicit%>
<%
'NOTE: YOU MUST UPDATE THE FOLLOWING 3 VARIABLES
Dim strMailDomain, strMailUserName, strMailPassword
strMailDomain = "www.tvabclub.com"
strMailUserName = "letmevolunteer@tvabclub.com"
strMailPassword = "vikings"
' Get the form data from HTML form with 5 fields
Dim name, senderEmail,subject,recipient,body
name = Request.Form("name")
senderEmail = Request.Form("email")
subject = "Regarding " & Request.Form("subject")
recipient = Request.Form("recipient")
body = Request.Form("body")
' Create the JMail message Object
Dim msg
set msg = Server.CreateOBject( "JMail.Message" )
' Enter the sender data
msg.From = senderEmail
msg.FromName = name
'Server Authentication
msg.MailServerUserName = strMailUserName
msg.MailServerPassWord = strMailPassword
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "you@yourdomainname.ccom"
msg.AddRecipientCC "someone@domainname.com"
msg.AddRecipientBCC "somebodyelse@domainname.com"
' The subject of the message
msg.Subject = subject
' And the body
msg.body = body
' Now send the message, using the indicated mailserver
if not msg.Send(strMailDomain) then
Response.write "" & msg.log & "
" else
Response.write "Thank you for taking the time to contact us. Someone will contact you to discuss further."
end if
%>
Please use this form to let us know how you might be interested in
volunteering with the Teays Valley Athletic Booster Club. We will call you
to discuss further. Thank you for offering your assistance.
ALL FIELDS ARE REQUIRED
Return to Home Page