<% userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") End if ' change to address of your own SMTP server strHost = "sm320.dnb.local" ' Body in HTML format strHTML = Request("Body") & chr(13) &chr(10)& chr(13) &chr(10) strHTML = strHTML & "Contact Via: " & Request("contactby") & chr(13) & chr(10) & chr(13) & chr(10) strHTML = strHTML & Request("FromName") & chr(13) & chr(10) strHTML = strHTML & Request("address1") & chr(13) & chr(10) strHTML = strHTML & Request("address2") & chr(13) & chr(10) strHTML = strHTML & Request("city") & ", " & Request("state") & " " & Request("zip") & chr(13) & chr(10) & chr(13) & chr(10) strHTML = strHTML & "Phone: " & Request("phone") & chr(13) & chr(10) strHTML = strHTML & "IP Address: " & userip &chr(10) &chr(13) If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress Request("To") ' message subject Mail.Subject = "[DNBWEBMAIL]:" & Request("Subject") ' message body Mail.Body = strHTML strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> Celebration Jewelers - Dempsey & Baxter
Home
About Us
Services
Industry
Contact

Services

Design
Laser Repairs
Engraving
Laboratory
Appraisals

Design

With over 6 decades of combined experience, our expert jewelers can help you to design that piece you just haven't seen anywhere. From remounts and ring updates to total reconstruction - we've got the experience and tools to make your jewelry dreams come true.

 

Home Directions    Contact Site Map
© Celebration Jewelers / Dempsey & Baxter