Content

Departments

Contact Us Page

<%showtable = "True"If Request.Form("name") <> "" Thenname = Request.Form("name")end ifbody =Request.Form("message")email_to = Request.Form("email_to")subject = Request.Form("subject")email_from = Request.Form("email_from")%><%If Request.Form("send_ok") = "true" ThenSet myMail=CreateObject("CDO.Message")myMail.Subject=subjectmyMail.From= email_frommyMail.To=email_tomyMail.TextBody= bodymyMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2myMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _"10.0.51.7"myMail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25myMail.Configuration.Fields.UpdatemyMail.Sendset myMail=nothingResponse.Write ("Your message has been sent. Thank you.")showtable = "False"End IfIf showtable = "True" Then%>
Select Department:
Enter your name:
Enter your e-mail address:
Message Subject:
Enter your message/comments:
<% Response.Write("
")End If%>
Last Modified on February 23, 2012