%
If request.form("Submit") = "Send Message" then
strName = Request.form("txtName")
strEmail = Request.form("txtEmail")
strMessage = Request.form("txtMessage")
Dim strBody
Dim objCDOMail
Dim strMyEmailAddress
Dim strCCEmailAddress
Dim strBCCEmailAddress
Dim strReturnEmailAddress
Dim mailTo
Dim mailFrom
Dim mailSubject
Dim mailBody
mailTo = strEmail
mailFrom = "jj@atlcomm.com"
mailSubject = "This is a test"
mailBody = strMessage
Sub SendMail(mailTo, mailFrom, mailSubject, mailBody)
Dim objMail
Set objMail = Server.Createobject("CDONTS.Newmail")
objMail.To = mailTo
objMail.From = mailFrom
objMail.Subject = mailSubject
objMail.Body = mailBody
objMail.Send
Set objMail = Nothing
End Sub
%>
<%
End IF
%>
Guest Log
We are seeking qualified competent individuals willing to be on a winning team in the Two-Way Radio Arena. Positions are available for entry level and senior level technicians, system technologists and qualified installers. To inquire, “ click here ” to e-mail the department head of your choice.
Click below to contact the representative serving your area.