<% v_Email = Request("txtemail") v_Url = Request.QueryString("txturl") v_TheirAmount = Request.QueryString("txt_his_amount") v_Amount = Request.QueryString("txt_our_amount") v_BrandName = Request("txtbrand") v_ProdName = Request("txtprodname") v_ColorCode = Request("txtcolorname") v_ProdID = Request("txt_product_id") Set DBConnNotify = Server.CreateObject("ADODB.Connection") Set DBConn = Server.CreateObject("ADODB.Connection") Set Rs = server.CreateObject("ADODB.Recordset") DBConnNotify.Open Session("notify") DBConn.Open Session("DSN") 'Add them to Email List 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,site_id) values('" & v_Email & "','Price Match', getdate(), '" & Request.ServerVariables("REMOTE_ADDR") & "'," & Session("WebSiteID") & ")" DBConnNotify.Execute Sql End If Rs.close End If 'Add item to shopping cart.------------------------------------------------------------------------------------------------------------------------------------------------------------------ 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,website_id,counter_offer_amount,price_match_i,datestamp)" sql = sql & " values(" & v_MinOfferID & ",'" & v_Email & "'," & d(v_Amount) & ",'" & v_ProdID & "','" & v_OfferCode & "','" & 1 & "','" & v_ColorCode & "',1," & Session("WebSiteID") & "," & d(v_Amount) & ",1,getdate())" DBConn.execute sql '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Set objCDO = Server.CreateObject("CDO.Message") 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 v_Body = "You found the " v_Body = v_Body & v_BrandName & " " & v_ProdName & " in the " & v_ColorCode & " color on " & v_Url & " for $" & v_TheirAmount & " while our price is : " & v_Amount & vbCrLf v_Body = v_Body & "Please allow 4-6 Hours for a PRICE MATCH." objCDO.From = v_Email objCDO.To = SESSION("WebSiteEmail") objCDO.Subject = "Price Match Request" objCDO.TextBody = v_Body & vbCrLf objCDO.Send Set objCDO = nothing Set objCDO = Server.CreateObject("CDO.Message") Set objCDO.Configuration = objCDOConf 'Send email to him about what happened. objCDO.From = SESSION("WebSiteEmail") objCDO.To = v_Email objCDO.Subject = "Price Match Request to has been sent!" objCDO.TextBody = v_Body & vbCrLf objCDO.Send Set objCDO = nothing Set objCDOConf = nothing %>

This item has been added to your shopping cart. Someone will be in contact with you shortly regarding your pricematch request. If approved the price in your shopping cart will be adjusted automatically. Please allow 2-4 Hours for a PRICE MATCH. You may also view your shopping cart to see if the price has been lowered for you. To view your shopping cart simply click on the top left corner of our website "MY ACCOUNT" button. You will then enter your email address to view all the contents of your shopping cart. <%=SESSION("WebSiteName")%> Price Match Team!