<% Dim Namename,Name,EMailname,EMail Dim IPname,IP,User_Agentname,User_Agent Namename = "Name: " Name = Request.Form("Name") EMailname = "E-Mail Address: " EMail = Request.Form("EMail") Dim Messagename,Message Messagename = "Message: " Message = Request.Form("Message") IPname = "IP Address: " IP = Request.Form("IP") User_Agentname = "Browser Info: " User_Agent = Request.Form("User_Agent") Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp.example.com:25" JMail.AddRecipient "crb@example.com" JMail.Sender = Request.Form("EMail") JMail.SenderName = Request.Form("Name") JMail.Subject = "Your Subject" Dim strbody strbody=strbody & Namename & Name & vbcrlf strbody=strbody & EMailname & EMail & vbcrlf strbody=strbody & Messagename & Message & vbcrlf strbody=strbody & vbcrlf strbody=strbody & IPname & IP & vbcrlf strbody=strbody & User_Agentname & User_Agent & vbcrlf JMail.Body = strbody JMail.Execute %> Thank you <%Response.Write(Name)%> for contact us. We will be in contact soon.