Date

<% Public sub sendEmail(strMsg, strSubject, strEmailAddress) Set Mail = Server.CreateObject("Persits.MailSender") On Error Resume Next If strEmailAddress <> "" Then Mail.Host = "HRDSMTP" Mail.From = "sales@total-aps.com" Mail.FromName = "www.total-aps.com" Mail.Subject = cstr(strSubject) Mail.AddAddress cstr(strEmailAddress) Mail.Body = cstr(strMsg) Mail.IsHTML = true Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description Else Response.Write "Message was successfully sent to " & strEmailEmail End If else Response.Write("
Error: to address missing
") end if End sub Sub addInquiry (FirstName, LastName, Company,CompanySize, Address1, Address2, City, State, Zip, Country, Phone, Email, Tracking, TrackingOther) End Sub strAction = Request.QueryString("Action") strFirstName = Request.Form("FirstName") strLastName = Request.Form("LastName") strCompany = Request.Form("Company") strCompanySize = Request.Form("CompanySize") strAddress1 = Request.Form("Address1") strAddress2 = request.Form("Address2") strCity = request.Form("City") strState = request.Form("State") strZip = request.Form("Zip") strCountry = request.Form("Country") strPhone = request.Form("Phone") strEmail = request.Form("Email") strTracking = request.Form("Tracking") strTrackingOther = request.Form("TrackingOther") strEmailMSg = "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "Date" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" if strTracking = "Other" then strEmailMsg = strEmailMsg & "" else strEmailMsg = strEmailMsg & "" end if strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "

Firstname

Lastname

Company

Company Size

Address1

Address2

City

State

Zip

Country

Phone

How Did you hear about us?

" & strFirstName & "

" & strLastName & "

" & strCompany & "

" & strCompanySize & "

" & strAddress1 & "

" & strAddress2 & "

" & strCity & "

" & strState & "

" & strZip & "

" & strCountry & "

" & strPhone & "

" & strEmail & "

" & strTrackingOther & "

" & strTracking & "

" strEmailMsg = strEmailMsg & "" strEmailMsg = strEmailMsg & "" Public sub sendTHEmail(strMsg, strSubject, strEmailAddress) Set Mail = Server.CreateObject("Persits.MailSender") On Error Resume Next If strEmailAddress <> "" Then Mail.Host = "HRDSMTP" Mail.From = "sales@total-aps.com" Mail.FromName = "www.total-aps.com" Mail.Subject = cstr(strSubject) Mail.AddAddress cstr(strEmailAddress) Mail.Body = cstr(strMsg) Mail.IsHTML = false Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description Else Response.Write "Message was successfully sent to " & strEmailEmail End If else Response.Write("
Error: to address missing
") end if End sub 'strMsg = "Hello," & chr(13) & chr(10) 'strMsg = strMsg & "" & chr(13) & chr(10) 'strMsg = strMsg & "" & chr(13) & chr(10) 'strMsg = strMsg & "Thank you for your interest in a Total-APS Demo. A sales representative will contact you to follow up on your request." & vbcrlf 'strMsg = strMsg & "" & chr(13) & chr(10) 'strMsg = strMsg & "--------------------------------------" & vbcrlf 'strMsg = strMsg & "" & vbcrlf 'strMsg = strMsg & "" & vbcrlf 'strMsg = strMsg & "Thank you," & vbcrlf 'strMsg = strMsg & "Total-APS Sales Team" & vbcrlf If Err <> 0 Then Response.Write "Error encountered: " & Err.Description end if if strFirstName = "" or strLastName = "" or strCompany = "" or strPhone = "" or strEmail = "" or strCompanySize = "" or strTracking = "" or strCountry = "" or strCity = "" or strState = "" or strZip = "" then 'Response.write("
required invalid
") bolRequiredInfo = false else bolRequiredInfo = true end if if strAction = "process" and bolRequiredInfo then addInquiry strFirstName, strLastName, strCompany, strCompanySize, strAddress1, strAddress2, strCity, strState, strZip, strCountry, strPhone, strEmail, strTracking, strTrackingOther sendEmail strEmailMsg, "Total-APS - Video Demo Lead Registration", "sales@total-aps.com" sendEmail strEmailMsg, "Total-APS - Video Demo Lead Registration", "chris-d@hrdpress.com" 'sendTHEmail strMsg, "RE: www.total-aps.com - Total-APS Demo Inquiry", strEmailAddress response.redirect("video.htm") end if If Err <> 0 Then Response.Write "Error encountered: " & Err.Description end if %> Total-APS: Total Applicant Processing System

Video Presentation

Reseller Opportunities

About Us

Job Opportunities

Download Brochure

Thank you for your interest in Total-APS. Please fill out the form below to proceed to the video presentation.

<% if not bolRequiredInfo AND strAction = "process" Then %>

You did not supply all of the required information. Please enter all the information with an * next to it

<% end if %>

(fields marked with a "*" are required)

*First Name:		*Last Name:
*Title:		*Company:
*Company Size:		*Address 1
*Address 2:		*City:
*State:		*Postal Code:
*Country:		*E-mail:
*Phone:
*Where did you hear about us:
If "Other" please explain below:
<%=strTrackingOther%>