<% Dim blSubmitOrder If ucase(trim(Request.Form("source"))) = "ORDERFORM" Then blSubmitOrder = True Else blSubmitOrder = False End If %> <% If blSubmitOrder Then %> Diamond Order Confirmation <% Else %> Place Your Diamond Order <% End If %> <% If Not blSubmitOrder Then %> <% End If %> <% If Not blSubmitOrder Then %>
Your-Loose_Diamond  

Your Wholesale Loose Diamonds connection

Loose Diamonds Direct

 

 

Ordering Information 

Become one of our many satisfied customers.  We offer a wide selection of quality diamonds and rare gems.  Our experienced staff will be happy to assist you at any time until you are pleased with your purchase at an unbeatable price!

How To Order: You can either call us (toll-free) at: 1-866-337-4647 and talk to a GIA diamond grading graduate that will be happy to assist you. Or, simply submit your order or request more information directly by using the form below. When you select the diamond of your choice, we will enable you to view the diamond at your convenience.

Selection (Please select from our vast  inventory list or, if you don't see it, input your own preference below):

  Diamond ID #*:  

 Shape:       Carat Size: to  

 Color: to         Clarity:  to

 Budget/Price Range: to     

 

  You may request or describe other preferences  in Comments below.

Other Diamond ID #'s, Comments or Custom requests:

Contact Information (We will never disclose it to any outside party without your prior consent):

Name
Street Address
City, State ZIP
Telephone
E-mail
Anti-Spam: Please enter this code:     
How did you hear about us?
If Other, please explain:

            

 

<% End If %> <% Function SendMail() 'Set oMail = Server.CreateObject("SMTPsvg.Mailer") 'oMail.IgnoreRecipientErrors = True 'oMail.AddRecipient "R","01@ourdiamond.com" 'oMail.AddRecipient "BG","no@columbia.edu" 'oMail.FromName = "Diamond Order" 'oMail.FromAddress = cEmail 'oMail.RemoteHost = "pop.yourdiamond.com" 'oMail.Subject = "Diamond Order" Set oMail = Server.CreateObject("CDONTS.NewMail") oMail.From = cEmail oMail.To = "ron01@yourdiamond.com" oMail.Subject = "Diamond Order" cBody = "" cBody = cBody & "Stock #: " & cStockNo & chr(13) & chr(10) cBody = cBody & "Setting ID: " & cRngStockNo1 & chr(13) & chr(10) cBody = cBody & "Shape: " & cShape1 & chr(13) & chr(10) cBody = cBody & "Lowest weight: " & cCt1 & chr(13) & chr(10) cBody = cBody & "Highest weight: " & cCt2 & chr(13) & chr(10) cBody = cBody & "Lowest Color: " & cColor1 & chr(13) & chr(10) cBody = cBody & "Best Color: " & cColor2 & chr(13) & chr(10) cBody = cBody & "Lowest Clarity: " & cClarity1 & chr(13) & chr(10) cBody = cBody & "Highest Clarity: " & cClarity2 & chr(13) & chr(10) cBody = cBody & "Price from: " & cPrice & chr(13) & chr(10) cBody = cBody & "Price to: " & cPrice1 & chr(13) & chr(10) cBody = cBody & "Name: " & cName & chr(13) & chr(10) cBody = cBody & "Address: " & cStAddress & chr(13) & chr(10) cBody = cBody & "City,St,ZIP: " & cCityStZIP & chr(13) & chr(10) cBody = cBody & "Telephone: " & cTelephone & chr(13) & chr(10) cBody = cBody & "FAX: " & cFAX & chr(13) & chr(10) cBody = cBody & "Email: " & cEmail & chr(13) & chr(10) cBody = cBody & "Hear about us: " & cHear & chr(13) & chr(10) If ucase(trim(cHear)) = "OTHER" Then cBody = cBody & "Other: " & trim(Request.Form("Other")) & chr(13) & chr(10) End If cBody = cBody & "YourDiamond Order: S U B M I T" &chr(13) & chr(10) cBody = cBody & "Product&Service: ORDER" & chr(13) & chr(10) cBody = cBody & "Remote Name: " & Request.ServerVariables("REMOTE_ADDR") & chr(13) & chr(10) cBody = cBody & "Remote User: " & Request.ServerVariables("REMOTE_USER") & chr(13) & chr(10) cBody = cBody & "Date: " & Date() & chr(13) & chr(10) cBody = cBody & "Time: " & Time() & chr(13) & chr(10) cBody = cBody & chr(13) & chr(10) cBody = cBody & "Comments: " & cComments & chr(13) & chr(10) 'oMail.BodyText = cBody 'If oMail.SendMail Then 'Response.Write "Mail sent..." ' blSuccess = True 'Else 'Response.Write "Mail send failure. Error was " & oMail.Response ' blSuccess = False 'End If oMail.Body = cBody If oMail.Send Then blSuccess = True Else blSuccess = False End If SendMail = blSuccess End Function If blSubmitOrder Then cStockNo = Request.Form("StockNo") 'cStockNo1 = Request.Form("StockNo1") cShape1 = Request.Form("Shape1") cCt1 = Request.Form("Ct1") cCt2 = Request.Form("Ct2") cColor1 = Request.Form("Color1") cColor2 = Request.Form("Color2") cClarity1 = Request.Form("Clarity1") cClarity2 = Request.Form("Clarity2") cPrice = Request.Form("Price") cPrice1 = Request.Form("Price1") cComments = Request.Form("Comments") cName = Request.Form("Name") cStAddress = Request.Form("StAddress") cCityStZIP = Request.Form("CityStZIP") cTelephone = Request.Form("Telephone") cFAX = Request.Form("FAX") cEmail = Request.Form("Email") cHear = Request.Form("HearAboutUs") blSent = SendMail() %>

Diamond Order Confirmation

Thank you for submitting the following information:

Diamond ID: <%= cStockNo %>
Shape: <%= cShape1 %>
Lowest Weight: <%= cCt1 %>
Highest Weight: <%= cCt2 %>
Lowest Color: <%= cColor1 %>
Best Color: <%= cColor2 %>
Lowest Clarity: <%= cClarity1 %>
Highest Clarity: <%= cClarity2 %>
Price from: <%= cPrice %>
Price to: <%= cPrice1 %>
Name: <%= cName %>
Street Address: <%= cStAddress %>
City, State ZIP: <%= cCityStZIP %>
Telephone: <%= cTelephone %>
FAX: <%= cFAX %>
Email: <%= cEmail %>
How did you hear about us? <%= cHear %>
<% If ucase(trim(cHear)) = "OTHER" Then %> Other: <%= trim(Request.Form("Other")) %>
<% End If %>

Comments

<%= cComments %>

Return to the order page.

<% End If %>