%
Dim isSuccess
isSuccess=false
if (Request.Form("txtName")<>"" AND Request.Form("txtEmail")<>"" AND Request.Form("txtCompany")<>"") then
'send an email to person
Dim myMail, objCDOSYSCon
Set myMail = Server.CreateObject("CDO.Message")
'Create the e-mail server object
Set objCDOSYSCon = Server.CreateObject ("CDO.configuration")
'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "post.newnet.co.uk"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
'Update the CDOSYS configuration
Set myMail.configuration = objCDOSYSCon
myMail.From = Request.Form("txtEmail")
myMail.To = "info@documation.co.uk"
'myMail.To = "simon@barracuda.uk.com"
myMail.Subject = "White Paper"
Dim myMessage
myMessage = "Name: " & Request.Form("txtName") & " (" & Request.Form("txtEmail") & ")" & vbCrLf
myMessage = myMessage & "Job Title: " & Request.Form("txtJobTitle") & vbCrLf
myMessage = myMessage & "Company: " & Request.Form("txtCompany") & vbCrLf
myMessage = myMessage & "Address: " & Request.Form("txtAddress") & vbCrLf
myMessage = myMessage & "Telephone: " & Request.Form("txtTel") & vbCrLf & vbCrLf
myMessage = myMessage & "Other Requirements: " & Request.Form("txtOther") & vbCrLf
myMail.TextBody = myMessage
myMail.Send
Set myMail = Nothing
isSuccess=true
elseif Request.Form("cmdSend")<>"" then
message = "Please make sure your name, email address and company name have been entered!
"
end if
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
![]() |
||||||||||||||||||||||||||||||||||||||||||||||||||||
| Home :: News & Resources :: White Paper | |||||||||||||||||||||||||||||||||||||||||||||||||||||
![]()
|
Guide to Cost Justification for Invoice Management Solutions
This white paper, a 'Guide to Cost Justification for Invoice Management Solutions', outlines the different factors that influence the purchasing decision when planning an invoice management automation project. What is in this white paper?
Concluding the white paper is an offer from Documation for a FREE Feasibility Study. To find out more, download the white paper now! To receive the white paper, please click here and complete the short form...
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||