<%@LANGUAGE="VBSCRIPT"%> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" then msgBody = "Name : " & Request.Form("name") & VbCrLf msgBody = msgBody & "EMail : " & Request.Form("email") & VbCrLf msgBody = msgBody & "Company : " & Request.Form("company") & VbCrLf msgBody = msgBody & "Telephone : " & Request.Form("telephone") & VbCrLf msgBody = msgBody & "Cell : " & Request.Form("cell") & VbCrLf msgBody = msgBody & "Reason for Introduction : " & Request.Form("reason") Set Jmail = Server.CreateObject( "JMail.Message" ) Jmail.Logging = FALSE Jmail.Silent = TRUE 'Jmail.ReturnReceipt = Request.Form("Receipt") 'Jmail.AddRecipient Request.Form("Recipient") JMail.From = Request.Form("email") JMail.FromName = Request.Form("name") JMail.AddRecipient "david@drgoutsourcing.com" JMail.Subject = "Introduction to Business Partners" 'Priority 1=Urgent, 3=Normal, 5=Lowest JMail.Priority = 3 JMail.Body = msgBody If JMail.Send("localhost") = true then Response.Redirect("ThankYou.htm") else Response.Write "Mail send failure. Error Log is: " & Jmail.log end If End If %>

Introduction to our business partners: Name: Email: Company: Tel.: Reason for introduction :   Business Partners ...more Information Supporting Services ...more Information Business Articles ...more Information Supporting Community Projects ...more Information Women in Business ...more Information Books available ...more Information Corporate Wardrobe ...more Information Testominials ...more Information