..:: Ardent Search Company ::..

<%@language=vbscript%> <% if Request.Form("action") = "submit" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "scriptmail.intermedia.net" Mailer.FromAddress = Request.Form("email") Mailer.FromName = Request.Form("name") Mailer.AddRecipient "Ardent Newsletter", "tim@ardentsearchco.com" Mailer.Subject = "Ardent Newsletter Signup" messBody = "Clients information is below" & vbCrLf & "--------------------------------------------------------------" & vbCrLf messBody = messBody & "Name: " & Request.Form("name") & vbCrLf messBody = messBody & "Company: " & Request.Form("company") & vbCrLf messBody = messBody & "Phone: " & Request.Form("phone") & vbCrLf messBody = messBody & "E-mail: " & Request.Form("email") & vbCrLf & vbCrLf messBody = messBody & vbCrLf & "Message:" & vbCrLf messBody = messBody & Request.Form("message") & vbCrLf & vbCrLf Mailer.BodyText = messBody if Mailer.SendMail then Set Mailer = Nothing Response.Redirect "newsletter_signup_thanks.htm" else Response.Write "Mail send failure. Error was " & Mailer.Response end if end if %> ..:: Ardent Search Company ::..

Newsletter Sign-up

As a service to both our clients and candidates, we publish periodic e-mail newsletters packed with the latest industry news and trends that may impact your business and careers. Please fill out and submit the form below to receive our free email newsletters. You may unsubscribe at any time.

Newsletter Archives