% if request.form("name") > "" Then response.write "" ' '''''''''''''''''''''''''' ' SHOOT E-MAIL ' Dimension Local Variables. Dim objNewMail Dim strRecipList Dim strCCRecipListString Dim msgBody ' set up for mail delivery set config = Server.CreateObject("CDO.Configuration") config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "email1.bcc.ctc.edu" config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'default SMTP port config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort config.Fields.Update ' Instantiate a NewMail Object. Set objNewMail = CreateObject("CDO.Message") objNewMail.Configuration = config 'Set the From property to the senders email address objNewMail.From = request.form("email") 'Set Newmail objects to property to the following emails: 'separate addresses by ; such as "email1#email.com; email2@email.com; email3@email.com" strRecipList = _ "nlubskay@bcc.ctc.edu; asgslccomm@bcc.ctc.edu" 'Set CC list (same format as recepient list) 'strCCRecipListString = _ ' "info@bcc.ctc.edu" ' Set the subject String objNewMail.Subject = "*Ask your Legislative ASG Committee " ' Set the body String for the message. 'format forms: "Street Address: " & Request.Form("address") & chr(13) & _ { msgBody = _ "Ask ASG a question" & chr(13) & chr(13) & chr(13) & _ "Name ......... " & request.form("name") & chr(13) & _ "E-mail ....... " & request.form("email") & chr(13) & _ "Subject ...... " & request.form("subject") & chr(13) & _ "description .. " & request.form("description") objNewMail.To = strRecipList objNewMail.Cc = strCCRecipListString objNewMail.TextBody = msgBody ' Send the message. objNewMail.Send 'You should always do this with CDONTS. set objNewMail = nothing set config = nothing End if %>