<% @ Language=VBScript %> <% dim errorMessage, validationResult, frm_firstName, frm_lastName, frm_companyName, frm_phone1, frm_email, frm_street1, frm_street2, frm_city, frm_state, frm_zipCode, frm_requestDetails errorMessage = "" validationResult = "" frm_firstName = "" frm_lastName = "" frm_companyName = "" frm_phone1 = "" frm_email = "" frm_street1 = "" frm_street2 = "" frm_city = "" frm_state = "" frm_zipCode = "" frm_requestDetails = "" if request.form.count > 0 then frm_firstName = Trim(Request.form("firstName")) frm_lastName = Trim(Request.form("lastName")) frm_companyName = Trim(Request.form("companyName")) frm_phone1 = Trim(Request.form("phone1")) frm_email = Trim(Request.form("email")) frm_street1 = Trim(Request.form("street1")) frm_street2 = Trim(Request.form("street2")) frm_city = Trim(Request.form("city")) frm_state = Trim(Request.form("state")) frm_zipCode = Trim(Request.form("zipCode")) frm_requestDetails = Trim(Request.form("requestDetails")) if frm_firstName = "" then errorMessage = "Please provide your first name." end if if frm_lastName = "" then errorMessage = "Please provide your last name." end if if frm_phone1 = "" then errorMessage = "Please provide your phone number." end if if frm_email <> "" then validationResult = validateEmail(frm_email) if validationResult <> "" then errorMessage = validationResult end if else errorMessage = "Please provide your email address." end if ' if they provided some address info, require the rest if (frm_street1 <> "") or (frm_street2 <> "") or (frm_city <> "") or (frm_state <> "") or (frm_zip <> "") then if (len(frm_street2) <> 0) and (len(frm_street1) = 0) then frm_street1 = frm_street2 frm_street2 = "" end if if frm_street1 = "" then errorMessage = "Please provide your street address." elseif frm_city = "" then errorMessage = "Please provide your city name." elseif len(frm_state) < 2 then errorMessage = "Please verify your state abbreviation." elseif len(frm_zipCode) < 5 then errorMessage = "Please verify your zip code." end if end if ' end if they provided some address info end if ' request.form.Count > 0 if (request.form.count > 0) and (errorMessage = "") then 'Send the email Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = frm_firstName & " " & frm_lastName Mailer.FromAddress = frm_email Mailer.RemoteHost = "mail.tci-hsv.com" Mailer.AddRecipient "Contact Manager", "rkeown@tci-hsv.com" Mailer.AddExtraHeader "X-MimeOLE:Produced tci-hsv.com" Mailer.Subject = "TCI Web Site - Contact Form Request" strMsgHeader = "--- Form information begins ---" & vbCrLf & vbCrLf strMsgInfo = frm_firstName & " " & frm_lastName & vbCrLf if frm_companyName <> "" then strMsgInfo = strMsgInfo & frm_companyName & vbCrLf end if strMsgInfo = strMsgInfo & frm_email & vbCrLf strMsgInfo = strMsgInfo & frm_phone1 & vbCrLf & vbCrLf if frm_street1 <> "" then strMsgInfo = strMsgInfo & frm_street1 & vbCrLf strMsgInfo = strMsgInfo & frm_street2 & vbCrLf strMsgInfo = strMsgInfo & frm_city & ", " & frm_state & " " & frm_zipCode & vbCrLf & vbCrLf end if strMsgInfo = strMsgInfo & frm_requestDetails & vbCrLf strMsgFooter = vbCrLf & "--- End of form information ---" Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter if Mailer.SendMail then errorMessage = "Thank you for your interest in Technology Concepts, Inc. We will contact you at the earliest possible moment to provide the information you require." frm_firstName = "" ' empty the form field values frm_lastName = "" frm_companyName = "" frm_phone1 = "" frm_email = "" frm_street1 = "" frm_street2 = "" frm_city = "" frm_state = "" frm_zipCode = "" frm_requestDetails = "" end if set Mailer = Nothing ' Clean-up the mailer end if ' (request.form.Count > 0) and (errorMessage == "") function validateEmail(strAddress) if InStr(strAddress,"@") < 2 then validateEmail = "Please verify your email address or contact our office by phone for further assistance." ' if the period occurs next to the @ sign or at the very end of the address elseif InStr(Right(strAddress,Len(strAddress)-InStr(strAddress,"@")),".") < 2 or InStr(Right(strAddress,Len(strAddress)-InStr(strAddress,"@")),".") = Len(strAddress)-InStr(strAddress,"@") then validateEmail = "Please verify your email address or contact our office by phone for further assistance." end if end function %> TCI - Technology Concepts, Inc. - 8(a) Certified, Woman-Owned, Native American, Small Disadvantaged Business
TCI - Technology Concepts, Inc.

Contact TCI

Technology Concepts, Inc.
2101 Clinton Avenue West, Suite 401
Huntsville, AL 35805

Mailing Address:
P.O. Box 425
Huntsville, AL 35804

Rita Keown
President/CEO
256.468.4680

Mike Hicklen
Operations Manager
256.527.4474

Jeff Beckley
Technical Manager
256.426.2348

Please fill in the form.  We would love to hear from you!

Your Contact Information
Mailing Address