• General Information
  • » Partners
  • » Support
  • » Locations
  • » Contact Us
  • » Webex Form

<% If request.form("submitform") <> "" then dim strAddr dim replyTo dim strSubject dim strText dim strCompany dim strPhone dim strMessage dim strUpdates strAddr = Trim(Request.form("email")) if strAddr <> "" then replyTo = cstr(strAddr) end if strSubject = "Website Request" strName = Request.form("name") strCompany = Request.form("company") strPhone = Request.form("phone") strMessage = Request.form ("more") strUpdates = Request.form("updates") strText = "From: " & strName & vbcrlf & "Company: " & strCompany &_ vbcrlf & "Phone: " & strPhone & vbcrlf & "Optional Message: " &_ strMessage & vbcrlf & "e-Mail Updates: " & strUpdates If (replyTo <> "" AND strName <> "") then send_email() else Response.Write "Please complete required fields!" end if function send_email() Dim objMail Set objMail = Server.CreateObject("CDO.Message") objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail1.eircom.net" objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMail.Configuration.Fields.Update objMail.To = Request.form("department") objMail.From = "donotreply@cashbook.com" objMail.ReplyTo = replyTo objMail.Subject = strSubject objMail.TextBody = strText objMail.Send Set objMail = Nothing if err.number > 0 then response.write "Errors were encountered in sending your e-mail message. "&_ "Please try again, or contact the webmaster" else Response.Write "

Thank you!

" Response.Write "

<< Return to form

" end if end function else %>

Name *
Company Name *
Email *
Telephone *
Department you wish to contact
General Sales Support Finance Recruitment
Message:
Please email me regular updates on Cashbook:

 

   

<% end if %>

• Take a Product Tour
• Sign up for Webex
• Downloads
• View Bank Interfaces
• Contact Me