<%Response.Buffer = true%>
<%
Function PeopleAreStupid(nodeVal)
nodeVal = Replace(nodeVal, "www.","")
nodeVal = Replace(nodeVal, "@@","@")
nodeVal = Replace(nodeVal, ".)","")
nodeVal = Replace(nodeVal, "&","")
nodeVal = Replace(nodeVal, "'","")
nodeVal = Replace(nodeVal, " ","")
nodeVal = Replace(nodeVal, "?","")
nodeVal = Replace(nodeVal, "''","")
nodeVal = Replace(nodeVal, """","")
PeopleAreStupid = lcase(nodeVal)
End Function
Set DBConn = Server.CreateObject("ADODB.Connection")
Set DBConnNotify = Server.CreateObject("ADODB.Connection")
Set ItemRs = Server.Createobject("ADODB.Recordset")
Set Rs = Server.Createobject("ADODB.Recordset")
Set CheckRs = Server.Createobject("ADODB.Recordset")
Set RecCount = Server.Createobject("ADODB.Recordset")
DBConn.Open Session("DSN")
DBConnNotify.Open Session("notify")
v_BrandID = Request("txt_brand_id")
v_ProdID = Request("txt_product_id")
v_ColorCode= Request("txt_color_code_n")
v_Amount = Request("txtamount")
v_Email = PeopleAreStupid(Request("txtemail"))
v_OfferCode= Request("txtoffercode")
v_Qty = Request("txtquantity")
v_QuickCheckout = request("txtquickcheckout")
v_Pres = Request("txtpresc")
'Convert amount to us dollar
v_Amount=v_Amount * (1/Session("Convert"))
'Set a cookie for the user's username
Response.Cookies("cUEmail") = v_Email
Response.Cookies("cUEmail").expires = "1/9/2037"
Response.Cookies("cUCode")= v_OfferCode
Response.Cookies("cUCode").expires = "1/9/2037"
'If this is a quick payment then drop this item into the accepted offers and then redirect him to acceped offers
If v_QuickCheckout = "1" then
'Add them to the notify list first
If trim(v_Email) <> "" then
sql = "select email from new_products where email = '" & trim(v_Email) & "'"
Rs.Open sql,DBConnNotify
If Rs.eof = true and Rs.bof = true then
Sql = "insert into new_products(email,name,date_sent,IP) values('" & v_Email & "','Quick Payment', getdate(),'" & Request.ServerVariables("REMOTE_ADDR") & "')"
DBConnNotify.Execute Sql
End If
Rs.close
End If
'Delete if there is a duplicate
sql = "Delete from offers_history where product_id= " & v_ProdID & " and email_n='" & v_Email & "' and color_code_n='" & v_ColorCode & "'"
DBConn.Execute sql
Rs.open "select max(offer_id) from offers_history",DBConn
v_MinOfferID = rs.fields(0) +1
rs.close
sql = "INSERT INTO offers_history ( offer_id,email_n, amount, product_id,offer_code,qty,color_code_n,state,counter_offer_amount,datestamp)"
sql = sql & " values(" & v_MinOfferID & ",'" & v_Email & "'," & d(v_Amount) & ",'" & v_ProdID & "','" & v_OfferCode & "','" & v_Qty & "','" & v_ColorCode & "',1," & d(v_Amount) & ",getdate())"
DBConn.execute sql
If v_Pres = 1 then
'Pres Checkout
Response.Redirect "myaccount_presc.asp?txtofferid=" & v_MinOfferID
Else
Response.Redirect "myaccount.asp?screen=1"
End if
End if
' response.write v_BrandID & " "
' response.write v_ProdID & " "
' response.write v_ColorCode & " "
' response.write v_Amount & " "
' response.write v_Email & " "
' response.write v_OfferCode & " "
'Response.End
Response.Write(v_Amount)
'Check for duplicate offers of the same amount,item,email address
checksql = "select email_n,amount,product_id,color_code_n from offers where "
checksql = checksql & "email_n='" & v_Email & "' AND "
checksql = checksql & "product_id=" & v_ProdID & " AND "
checksql = checksql & "color_code_n='" & v_ColorCode & "' AND "
checksql = checksql & "amount=" & v_Amount
Response.Write(checksql)
CheckRs.open checksql,DBConn
'If this offer is NOT DUPLICATED then
If CheckRs.bof = true and CheckRs.eof = true then
'Add them to the notify list first
If trim(v_Email) <> "" then
sql = "select email from new_products where email = '" & trim(v_Email) & "'"
Rs.Open sql,DBConnNotify
If Rs.eof = true and Rs.bof = true then
Sql = "insert into new_products(email,name,date_sent,IP) values('" & v_Email & "','New Lead Added', getdate(),'" & Request.ServerVariables("REMOTE_ADDR") & "')"
DBConnNotify.Execute Sql
End If
Rs.close
End If
sql = "INSERT INTO offers ( email_n, amount, product_id,offer_code,qty,color_code_n)"
sql = sql & " values('" & v_Email & "'," & v_Amount & ",'" & v_ProdID & "','" & v_OfferCode & "','" & v_Qty & "','" & v_ColorCode & "')"
DBConn.execute sql
'Count the orders
RecCount.Open "select count(*) from offers",DBConn
v_recCount = RecCount.Fields(0)
RecCount.Close
'Update How Many Clicks
sql = "update products_colors set offer_clicks=offer_clicks+1 where product_id = " & v_ProdId & " and color_code_n='" & v_ColorCode & "'"
dbconn.Execute sql
If v_recCount > 5 then
'------------------------------------------------------------------------------------------------------------
'Get the Lowest Record ID and answer that one.
sql = "select min(offer_id) from offers"
ItemRs.Open sql,DBConn
v_MinOfferID = ItemRs.Fields(0)
ItemRs.Close
''WHAT IF THE ITEM IS DELETED????
'Get some information on the offer you are about to run into the system
sql = "SELECT brands.* ,offers.*,products.* FROM (brands INNER JOIN products ON brands.brand_id = products.brand_id)"
sql = sql & " INNER JOIN offers ON products.product_id = offers.product_id"
sql = sql & " where offer_id = " & v_MinOfferID
ItemRs.Open sql,DBConn
v_OfferAnsweringProductID = ItemRs.Fields("product_id")
v_OfferAnsweringAmount = ItemRs.Fields("amount")
v_OfferAnsweringEmail = ItemRs.Fields("email_n")
v_OfferAnsweringColorCode = itemrs.Fields("color_code_n")
v_OfferAnsweringBrandID = itemrs.Fields("brand_id")
v_OfferAnsweringBrandName = itemrs.Fields("brand_n")
v_CounterOfferPrice = itemrs.Fields("counter_offer_price")
v_OfferAnsweringProductName = itemrs.Fields("product_n")
v_OfferAnsweringDesc = itemrs.Fields("brand_n") & " " & itemrs.Fields("product_n")
ItemRs.Close
'get the name of the color that he wants
sql = "select color_name from products_colors where product_id = " & v_OfferAnsweringProductID
sql = sql & " and color_code_n = '" & v_OfferAnsweringColorCode & "'"
ItemRs.Open sql
v_OfferAnsweringColorName = Itemrs.Fields("color_name")
ItemRs.Close
'------------------------------------------------------------------------------------------------------------
v_PaymentInfo = "Log into your account at:" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "http://www.decormyeyes.com/myaccount.asp?txtemail=" & v_Email & vbCrLf & vbCrLf
v_PaymentInfo = v_PaymentInfo & "You will find a Make Payment button located under your 'Accepted Offers' window." & vbCrLf & vbCrLf
v_PaymentInfo = v_PaymentInfo & "OR you may make payment to: " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "------------------------------------------------------------------------------------------------" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "eMalish Corporation" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "c/o DecorMyEyes.com" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "56 Beaumont Street" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "Brooklyn, NY 11235" & vbCrLf & vbCrLf
v_PaymentInfo = v_PaymentInfo & "We will be happy to accept any of the following forms of payment." & vbCrLf & vbCrLf
v_PaymentInfo = v_PaymentInfo & "* Paypal" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "* Money Order" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "* Bank Certified Check " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "* Personal Check " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "* International Money Order" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "* Western Union Money Transfer www.westernunion.com [Ask us for details.)" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "* Bank Wire Transfer (Ask us for details" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "* Any major credit card (visa/mastercard/amex/discover)" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "* Any Other Form of payment you choose." & vbCrLf & vbCrLf
v_PaymentInfo = v_PaymentInfo & "------------------------------------------------------------------------------------------------" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "Checks and Money orders will be made payable to : eMalish Corporation" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "------------------------------------------------------------------------------------------------" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "Shipping costs can be found by clicking on the link below " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "http://www.DecorMyEyes.com/shipping.asp" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "------------------------------------------------------------------------------------------------" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "Want to know when we add something new to the site?? " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "Add yourself to the New Items List.... Click on the below link to access this page " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "http://www.DecorMyEyes.com/whatsnew.asp?txtemail=" & v_OfferAnsweringEmail & vbCrLf
v_PaymentInfo = v_PaymentInfo & "------------------------------------------------------------------------------------------------" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "Please respond to this email with your Name,Address,Contact # " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "as well as a list of Items and dollar amount you are purchasing, " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "so that we can get the order ready for you before the payment arrives. " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "------------------------------------------------------------------------------------------------" & vbCrLf
v_PaymentInfo = v_PaymentInfo & "Sincerly, " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "Lauren, " & vbCrLf
v_PaymentInfo = v_PaymentInfo & "DecorMyEyes Sales Team" & vbCrLf
'--Debug
'Response.Write "v_OfferAnsweringProductID:" & v_OfferAnsweringProductID
'Response.Write " "
'Response.Write "v_OfferAnsweringAmount:" & v_OfferAnsweringAmount
'Response.Write " "
'Response.Write "v_CounterOfferPrice:" & v_CounterOfferPrice
'Response.Write " "
'Response.Write "v_OfferAnsweringColorCode:" & v_OfferAnsweringColorCode
'Response.Write " "
'Response.Write "v_OfferAnsweringBrandID:" & v_OfferAnsweringBrandID
'Response.Write " "
'Response.Write "v_OfferAnsweringBrandName:" & v_OfferAnsweringBrandName
'Response.Write " "
'Response.Write "v_OfferAnsweringColorName:" & v_OfferAnsweringColorName
'Response.Write " "
'Response.Write "v_OfferAnsweringProductName:" & v_OfferAnsweringProductName
If v_OfferAnsweringAmount => v_CounterOfferPrice then
v_State = 1
v_CounterOfferAmount = v_OfferAnsweringAmount
' Response.Write "Accepted"
Else
v_State = 2
v_CounterOfferAmount = v_CounterOfferPrice
' Response.Write "CounterOffer"
End if
Set objCDOConf = Server.CreateObject ("CDO.Configuration")
With objCDOConf
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SESSION("MailServer")
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
Select Case v_State
Case 1 'Accept Offer
Set objCDO = CreateObject("CDO.Message")
Set objCDO.Configuration = objCDOConf
objCDO.From = "sales@DecorMyEyes.com"
objCDO.To = trim(v_OfferAnsweringEmail)
'objCDO.CC = "sales@DecorMyEyes.com"
objCDO.Subject = "Congrats, $" & v_OfferAnsweringAmount & " for the " & v_OfferAnsweringDesc & " Has been Accepted."
v_Body = "Thank you for your offer at DecorMyEyes.com" & vbCrLf & vbCrLf
v_Body = v_Body & "The Following offer has been processed by our sales team." & vbCrLf & vbCrLf
v_Body = v_Body & "Brand : " & v_OfferAnsweringBrandName & vbCrLf
v_Body = v_Body & "Model : " & v_OfferAnsweringProductName & vbCrLf
v_Body = v_Body & "Color : " & v_OfferAnsweringColorName & vbCrLf
v_Body = v_Body & "Your Offer : $" & formatnumber(v_OfferAnsweringAmount,2) & vbCrLf & vbCrLf
v_Body = v_Body & "Congratulations, your offer has been accepted." & vbCrLf
v_Body = v_Body & "You are now ready to check-out and make payment." & vbCrLf & vbCrLf
v_Body = v_Body & v_PaymentInfo
objCDO.TextBody = v_Body
objCDO.Send
Set objCDO = nothing
Case 2 'CounterOffer
Set objCDO = CreateObject("CDO.Message")
Set objCDO.Configuration = objCDOConf
objCDO.From = "sales@DecorMyEyes.com"
objCDO.To = trim(v_OfferAnsweringEmail)
'objCDO.CC = "sales@DecorMyEyes.com"
objCDO.Subject = "Sorry $" & formatnumber(v_OfferAnsweringAmount,2) & " for the " & v_OfferAnsweringDesc & " has not been accepted."
v_Body = "Thank you for your offer at DecorMyEyes.com" & vbCrLf & vbCrLf
v_Body = v_Body & "The Following offer has been processed by our sales team." & vbCrLf & vbCrLf
v_Body = v_Body & "Brand : " & v_OfferAnsweringBrandName & vbCrLf
v_Body = v_Body & "Model : " & v_OfferAnsweringProductName & vbCrLf
v_Body = v_Body & "Color : " & v_OfferAnsweringColorName & vbCrLf
v_Body = v_Body & "Your Offer : $" & formatnumber(v_OfferAnsweringAmount,2) & vbCrLf & vbCrLf
v_Body = v_Body & "Unfortunately, we could not locate a vendor who would accept this price." & vbCrLf & vbCrLf
v_Body = v_Body & "The best price that we have been able to find for this product is $" & v_CounterOfferAmount & vbCrLf & vbCrLf
v_Body = v_Body & "You have the option to do a Price Match on your item if you feel that " & vbCrLf
v_Body = v_Body & "you have seen this item at a lower price somewhere else on the internet. " & vbCrLf & vbCrLf
v_Body = v_Body & "Our vendors are under strict regulation to offer only the Lowest Possible" & vbCrLf
v_Body = v_Body & "Price on the Internet and they will have absolutley no choice but to accept" & vbCrLf
v_Body = v_Body & "for that price if you find it somewhere on the internet. " & vbCrLf & vbCrLf
v_Body = v_Body & "You may submit a Price Match request for multiple items by visiting the " & vbCrLf
v_Body = v_Body & "My Account section and selecting the items you wish to Price Match in the" & vbCrLf
v_Body = v_Body & "Declined Offers window." & vbCrLf & vbCrLf
v_Body = v_Body & "You may also click the following link to price match this single item." & vbCrLf
v_Body = v_Body & "http://www.decormyeyes.com/price_match.asp?txtofferids=" & v_MinOfferID & "&txtemail=" & v_OfferAnsweringEmail & vbCrLf & vbCrLf
v_Body = v_Body & "If you choose to accept this counteroffer" & vbCrLf & vbCrLf
v_Body = v_Body & v_PaymentInfo
objCDO.TextBody = v_Body
objCDO.Send
Set objCDO = nothing
'Send him email #2
Set objCDO = CreateObject("CDO.Message")
Set objCDO.Configuration = objCDOConf
objCDO.From = "sales@DecorMyEyes.com"
objCDO.To = trim(v_OfferAnsweringEmail)
objCDO.Subject = "I am your Sales Person at DecorMyEyes.com"
v_Body = "Hello," & vbCrLf & vbCrLf
v_Body = v_Body & "Let me introduce myself. My name is Stanley with DecorMyEyes." & vbCrLf
v_Body = v_Body & "I see you made an offer on the " & v_OfferAnsweringBrandName & " " & v_OfferAnsweringProductName & " " & v_OfferAnsweringColorName & " for $" & formatnumber(v_OfferAnsweringAmount,2) & vbCrLf & vbCrLf
v_Body = v_Body & "As I can see the Offer Responders had denied the offer." & vbCrLf & vbCrLf
v_Body = v_Body & "I was wondering where you came up with the price of your offer?" & vbCrLf
v_Body = v_Body & "Is there a site that sells this item for that price?" & vbCrLf
v_Body = v_Body & "If so we can request a price match on it for you." & vbCrLf
v_Body = v_Body & "I would like to work with you to get the item as cheap as possible" & vbCrLf
v_Body = v_Body & "I will work closely with you to find you the cheapest possible price." & vbCrLf & vbCrLf
v_Body = v_Body & "Let me know so that I can go back to my vendors and get to work for you." & vbCrLf & vbCrLf
v_Body = v_Body & "Stanley" & vbCrLf
v_Body = v_Body & "Sales Team" & vbCrLf
v_Body = v_Body & "DecorMyEyes.com Support" & vbCrLf
v_Body = v_Body & "646-302-9670" & vbCrLf
objCDO.TextBody = v_Body
objCDO.Send
Set objCDO = nothing
End Select
'Save to history
sql = "insert into offers_history( offer_id,email_n, amount, product_id,offer_code,qty,color_code_n,state,counter_offer_amount,datestamp) select offer_id,email_n, amount, product_id,offer_code,qty,color_code_n," & v_State & "," & v_CounterOfferAmount & ",'" & Date & "' from offers where offer_id= " & v_MinOfferID
'Response.Write sql
DBConn.Execute sql
'Remove from offers table
sql = "Delete from offers where offer_id= " & v_MinOfferID
DBConn.Execute sql
End if
End if
%>
<%
Set DBConn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.Createobject("ADODB.Recordset")
DBConn.Open Session("DSN")
Sql = "select products_colors.*,brands.brand_n from products_colors,brands where products_colors.brand_id = brands.brand_id and product_id =" & v_ProdID & " and color_code_n='" & v_ColorCode & "'"
ItemRs.open Sql,DBconn
%>
A reply will take 4-6 hours or as quickly as 5 minutes and will be sent to <%=v_Email%>
If you do not get a response back its probably due to the fact that you entered an Invalid Email Address..
If this is the case. Click the back button and re-enter the offer with the correct email address.
STEP 1 (OFFER SUBMISSION)
Your offer has been successfully submitted to (CSS). CSS is our Central Supplier System.
Dozens of sunglass vendors and manufacturers have subscribed to our system and have listed their lowest price per frame in our database.
Our offer agents are now comparing your offer to the vendors lowest price to find you the best possible price for your brand, color & frame.
STEP 2 (EMAIL CONFIRMATION)
Once an offer is evaluated you will receive an email indicating that your offer has been accepted or denied. Additionaly, you may also Click Here to be taken to your offers on your My Account Page. In your personal page you will see the status of the offer as well as other tools and information.
If your offer is accepted
You will have the option to make payment and you will be provided with payment details via email.
You are NOT obligated to accept the offer and there are no penalties for denying the offer.
If your offer is NOT accepted
You will be given a counter-offer by the vendor on the best possible price that can be done for your item.
You will have the option to do a Price Match if you feel the price is still too high, and you can find it cheaper elsewhere
We will BEAT any advertisted price or we give you $10 FREE!!
If you choose to accept the counteroffer you will be given payment instructions. Once an offer is made for a particular item you may not make another
offer for that same item for at least 24 hours.
The most common problem for NO OFFER response is that your email provider's spam filters might interfere with receiving your offer response.
Please check your SPAM Folder if you dont get a reply.
![](Shades/ProductImages/" & Itemrs.fields("brand_id") & "/thumbs/" & Itemrs.fields("image_n") & ".jpg)
"%>
STEP 1 (OFFER SUBMISSION)