<% 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

Services


Backed by the best training and utilizing the latest technologies, Celebration is comitted to providing you the best service available for all your fine jewelry needs.

Please browse the items on the left to see how Celebration's team of experts can help you today.


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