<% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If Dim attname Dim attemail Dim attphone Dim attdepartment Dim attcomments attname = CStr(Trim(Replace(Request.Form("attname"),"""",""""""))) attemail = CStr(Trim(Replace(Request.Form("attemail"),"""",""""""))) attphone = CStr(Trim(Replace(Request.Form("attphone"),"""",""""""))) attdepartment = CStr(Trim(Replace(Request.Form("attdepartment"),"""",""""""))) attcomments = CStr(Trim(Replace(Request.Form("attcomments"),"""",""""""))) sent = "confirmation.asp" If (CStr(Request("MM_update")) = "fmlogin") Then Set Mail = CreateObject("CDO.Message") Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="smscmarketing@gmail.com" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="SMSCMarketing" Mail.Configuration.Fields.Update Mail.Subject="Website Feedback" Mail.From="feedback@shakopeedakota.org" Mail.To="feedback@shakopeedakota.org" Mail.HTMLBody=attname & " has a comment/question through the Website Feedback.

Email Address:
" & attemail & "

Phone:
" & attphone & "

Department:
" & attdepartment & "

Comments:
" & attcomments Mail.Send Set Mail = Nothing Response.Redirect(sent) End If %>

Shakopee mdewakanton sioux community

 

Community Members

Website Feedback

Contact Us

Please use this form to report errors, changes and/or missing information, and to provide general feedback. If you have problems with this page or need to provide attachments, email feedback@shakopeedakota.org.

 

Name

Email

Phone

Department

**Required Fields

 

© 2009 Shakopee Mdewakanton Sioux Community. All Rights Reserved.