%@ LANGUAGE="VBSCRIPT" %> <% option explicit response.expires = 0 %> <% if request.querystring("doit") = "yes" then %> <% Dim JMail, msgstatus Set JMail = Server.CreateObject("JMail.SMTPMail") ' This is my local SMTP server JMail.ServerAddress = "216.82.142.114" if trim(request.form("mail_from_address")) <> "" then JMail.Sender = trim(request.form("mail_from_address")) JMail.ReplyTo = trim(request.form("mail_from_address")) else JMail.Sender = "Webmaster@JewelryBench.com" JMail.ReplyTo = "Webmaster@JewelryBench.com" end if ' Get the recipients mailbox from a form (note the lack of a equal sign). if trim(request.form("mail_from_address")) <> "" then JMail.AddRecipientCC trim(request.form("mail_from_address")) end if JMail.AddRecipient "info@jewelrybench.com" 'JMail.AddRecipientBCC "andy@mountaincomputers.org" JMail.Priority = "1" JMail.body = vbcrlf & vbcrlf JMail.Subject = "RE: " & request.form("frmcontactname") & " has submitted a Request for Contact Form on date: " & now() & " PST from " & request.form("mail_from_address") JMail.appendtext( request.form("frmcontactname") & " at phone # " & request.form("frmcontactphone") & ", and email address " & request.form("mail_from_address") & " has sent the following message: " & vbcrlf & vbcrlf & request.form("frmideas") & vbcrlf & vbcrlf ) JMail.appendtext( "Copyright (c) " & year(date()) & " Jewelry Bench. All rights reserved." ) 'Send it... JMail.Execute Set JMail = nothing msgstatus = "1" %> <% end if %>
|
|
|
Your request has been sent. Please allow 1-2 days for a reply. |
|
|
Contact Us
320 N. Carson St. Carson City, NV 89701 Phone (775) 882-8322 Fax (775) 882-2485 |
|
|
Email Us
| |
![]() |
©2011 Jewely Bench | Home | Diamonds | Fine Gems | Jewelry Education | About Us | Contact Us Website Design by: visual-ize |