<% Set DBConn = Server.CreateObject("ADODB.Connection") Set DBConnNotify = Server.CreateObject("ADODB.Connection") Set Rs = Server.Createobject("ADODB.Recordset") Set PresRs = Server.Createobject("ADODB.Recordset") DBConn.Open Session("DSN") DBConnNotify.Open Session("notify") v_QuickCheckout = 1 v_PendingOffersSelection= request("chk_pending_offer") v_DeclinedOffersSelection= request("chk_declined_offer") v_Email = Request("txtemail") v_OfferID = request("txtofferid") v_WishLIstItemID = request("txtwishlistitemid") v_Screen = request("screen") if v_Screen = "" or v_Screen = null then v_Screen =1 if v_Email <> "" then Response.Cookies("cUEmail") = v_Email Response.Cookies("cUEmail").expires = "1/9/2038" else if Request.Cookies("cUEmail") <> "" then v_Email = Request.Cookies("cUEmail") end if v_UserEmail = Request.Cookies("cUEmail") v_State = request("txtstate") sql= "select * from new_products where email='" & v_Email & "'" rs.Open sql,DBConnNotify if rs.EOF=true or rs.BOF =true then v_UserFound = false Else v_UserFound = true 'Set a cookie for the user's username End if rs.Close Select case v_State Case 2 'Delete History sql = "delete from offers_history where offer_id=" & v_OfferID Dbconn.Execute sql v_Screen=2 Case 3 'Delete Offer sql = "delete from offers where offer_id=" & v_OfferID Dbconn.Execute sql v_Screen=3 'Approved Case 4 'Delete Checked Pending Offers sql = "delete from offers where offer_id in (" & v_PendingOffersSelection & ")" Dbconn.Execute sql v_Screen=3 'Approved Case 5 'Delete Checked Answered Offers sql = "delete from offers_history where offer_id in (" & v_DeclinedOffersSelection & ")" Dbconn.Execute sql v_Screen=2 Case 7 'Accept Counteroffer sql = "Update offers_history set state=1 , amount=counter_offer_amount where offer_id in (" & v_DeclinedOffersSelection & ")" DBConn.Execute sql v_Screen=1 'Approved Case 8 'Price Match v_DeclinedOffersSelection = replace(v_DeclinedOffersSelection," ","") Response.Redirect "price_match.asp?txtofferids=" & v_DeclinedOffersSelection & "&txtemail=" & v_Email Case 9 'Delete Wish list Item sql = "delete from wishlist where wish_list_item_id =" & v_WishLIstItemID Dbconn.Execute sql v_Screen=4 'Approved Case 10 'Delete History sql = "delete from offers_history where offer_id=" & v_OfferID Dbconn.Execute sql sql = "delete from offer_prescription where offer_id='" & v_OfferID & "'" Dbconn.Execute sql v_Screen=1 End Select %>

<%if v_QuickCheckout <> 1 then%> <%else%> <%end if%> <%if v_Screen = 1 then%> <%end if%> <%if v_Screen = 2 then%> <%end if%> <%if v_Screen = 3 then%> <%end if%> <%if v_Screen = 4 then%> <%end if%>
Enter the email address used to submit your offer:
By using this system you will be able to :

  • View your accepted offers.
  • View your declined offers.
  • View your pending offers.
  • Make payment on your accepted offers.
  • Delete your history of offers.
  • Accept a counteroffer.
  • Price match a Declined offer.
  • View your Wish List.


    • My Account
    You do not need to create an accout to make a purchase on our site. Simply enter your email address and click Continue to proceed to checkout. Your email address is required for us to send you an order confirmation.
    Enter your email address:
             Layaway is Available!
    Please click the make 'Proceed to secure checkout' button to purchase your items.
    To Remove an item from your cart, Click REMOVE to the left of the item.
    <% sql = "SELECT offers_history.*,brands.*,products_colors.*" sql = sql & " FROM offers_history INNER JOIN (products_colors INNER JOIN brands ON products_colors.brand_id = brands.brand_id) ON (offers_history.color_code_n = products_colors.color_code_n) AND (offers_history.product_id = products_colors.product_id)" sql = sql & " WHERE offers_history.email_n='" & v_Email & "' and offers_history.state=1" Rs.open sql,DBConn IF rs.EOF = true and rs.BOF=true then Response.Write "" v_DisableControls = "disabled" rs.close ELSE %> <%do until rs.eof=true if rs.Fields("state") =1 then v_Status = "Accepted" v_StartRowColor = "#f5f5e6" v_RowColor= "White" v_Accepted = true else v_Status = "Declined" v_RowColor= "white" v_StartRowColor = "#f5f5e6" End if v_OnClick = "window.open('pd.asp?prod_id=" & rs.Fields("product_id") & "&txt_brand_id=" & rs.Fields("brand_id") & "&txt_color_code=" & trim(rs.Fields("color_code_n")) & "');" counter = 0 %> <%if Rs.Fields("presc_added_i") = true then SqlPresc = "select * from offer_prescription where offer_id = '" & rs.Fields("offer_id") & "'" PresRs.Open SqlPresc,DBConn v_leftsphere = PresRs.Fields("left_sphere") v_leftcylinder = PresRs.Fields("left_cylinder") v_leftaxis = PresRs.Fields("left_axis") v_rightsphere = PresRs.Fields("right_sphere") v_rightcylinder = PresRs.Fields("right_cylinder") v_rightaxis = PresRs.Fields("right_axis") v_pupilarydistance = PresRs.Fields("pupilary_distance") v_lensematerial_id = PresRs.Fields("lense_material_id") v_lenseoptions = PresRs.Fields("lense_option_string") v_Fax = PresRs.Fields("fax_i") v_LenseOnly = PresRs.Fields("lenseonly_i") v_LenseTypeID = PresRs.Fields("lense_type_id") v_Power = PresRs.Fields("power") v_leftadd = PresRs.Fields("left_add") v_rightadd = PresRs.Fields("right_add") PresRs.Close SqlPresc = "select lense_name from lense_material where lense_material_id = " & v_lensematerial_id PresRs.Open SqlPresc,DBConn v_LenseName = PresRs.Fields("lense_name") PresRs.Close %> <%end if%> <%'=rs.Fields("amount")%> <% v_TotalAmount = v_TotalAmount + (rs.Fields("qty") * Cdbl(rs.Fields("amount")* Session("Convert")) ) counter=counter+1 rs.MoveNext Loop rs.close %> <%end if%>
    Your shopping cart is Empty.
    Model Color Qty Price Each Total
    <% if Rs.Fields("categorie_id") =2 then %> <%end if%>
     Delete From Cart,2);">  <%if Rs.Fields("presc_added_i") = true then%>  ">View Your Current Prescription  <%else%>  ">Add a Prescription to Frame  <%end if%>
    		&txt_brand_id=<%=rs.Fields("brand_id")%>&txt_color_code=<%=rs.Fields("color_code_n")%>"><%Response.write ""%> > <%=rs.Fields("product_n")%> > <%=rs.Fields("color_code_n")%> > <%=rs.Fields("qty")%> > <%=Session("Symbol") & formatnumber(rs.Fields("amount")* Session("Convert"),2)%> > <%=Session("Symbol") & formatnumber(Cdbl(rs.Fields("amount"))* rs.Fields("qty")* Session("Convert"),2)%>
    <%Select Case v_LenseTypeID%> <%Case 1%>
     Frame with Clear Lens.
    <% Case 2 %>
     Reading Lense with +<%=v_Power%> Strength Lens Power.
    <% Case 3,4,5 %> <% if v_Fax = true then %>
     You have selected to fax or email us your prescription.
    <%else%> <%IF v_LenseTypeID = 4 or v_LenseTypeID = 5 then%> <% end if%> <%IF v_LenseTypeID = 4 or v_LenseTypeID = 5 then%> <% end if%> <%IF v_LenseTypeID = 4 or v_LenseTypeID = 5 then%> <% end if%>
    Sphere Cylinder Axis ADD
    O/D: <%=replace(replace(v_rightsphere,"*","+"),"~","-")%> <%=replace(replace(v_rightcylinder,"*","+"),"~","-")%> <%=v_rightaxis%> <%=replace(replace(v_leftadd,"*","+"),"~","-")%>
    O/S: <%=replace(replace(v_leftsphere,"*","+"),"~","-")%> <%=replace(replace(v_leftcylinder,"*","+"),"~","-")%> <%=v_leftaxis%> <%=replace(replace(v_rightadd,"*","+"),"~","-")%>
    <%end if%> <%end select%>     		<% if v_Fax <> true then %> <% end if%>
    Pupilary Distance: <%=v_pupilarydistance%>
    Lense Type: <%=v_LenseName%>
    Option(s): <%if len(v_lenseoptions) > 1 then%> <% SqlPresc = "select lense_option_n,lense_option_price from lense_options where lense_option_id in (" & v_lenseoptions & ")" PresRs.Open SqlPresc,DBConn Do until PresRs.EOF=true Response.Write "" PresRs.MoveNext Loop PresRs.Close %>
  • " & PresRs.Fields("lense_option_n") & "
    		•  $" & formatnumber(PresRs.Fields("lense_option_price"),2) & "
    <%else%> No <%end if%>
    Grand Total : <%=formatnumber(v_TotalAmount,2)%>  
    style="cursor:hand" src="img/btn_ContinueShopping_5bf87.gif" onclick="history.back(-1);"> style="cursor:hand" src="img/proceedSecureCheckout_5bfab.gif" onclick="makepayment();">
    The following offers have not been accepetd. You may Price Match your offer and provide a link to a competitors website or you may accept the counteroffer price provided. If you choose to accept the counteroffer , please check the items you wish to accept and click the Accept Offer button. The item will be moved to Accepted Offers window above at the counteroffer price.
    <% sql = "SELECT offers_history.*,brands.*,products_colors.*" sql = sql & " FROM offers_history INNER JOIN (products_colors INNER JOIN brands ON products_colors.brand_id = brands.brand_id) ON (offers_history.color_code_n = products_colors.color_code_n) AND (offers_history.product_id = products_colors.product_id)" sql = sql & " WHERE offers_history.email_n='" & v_Email & "' and offers_history.state=2" Rs.open sql,DBConn IF rs.EOF = true and rs.BOF=true then Response.Write "No Declined Offers Found." v_DisableControls1 = "disabled" rs.close ELSE %> <%do until rs.eof=true if rs.Fields("state") =1 then v_Status = "Accepted" v_StartRowColor = "#d6ffd6" v_RowColor= "#d6ffd6" v_Accepted = true else v_Status = "Declined" v_RowColor= "white" v_StartRowColor = "#f5f5e6" End if v_OnClick = "window.open('pd.asp?prod_id=" & rs.Fields("product_id") & "&txt_brand_id=" & rs.Fields("brand_id") & "&txt_color_code=" & rs.Fields("color_code_n") & "');" %> <%rs.MoveNext Loop rs.close %> <%end if%>
    Offer # Date Brand Model Color Code Your Offer Status Counter Offer
     Delete Offer,2);"> 
    ">
    		> <%=rs.Fields("offer_id")%> > <%=rs.Fields("datestamp")%> > <%=rs.Fields("brand_n")%> > <%=rs.Fields("product_n")%> > <%=rs.Fields("color_code_n")%> > $<%=formatnumber(rs.Fields("amount"),2)%> > <%=v_Status%> > <%if rs.Fields("state") <>1 then%> $<%=formatnumber(rs.Fields("counter_offer_amount"),2)%> <%end if%>
    onclick="select_all(chk_declined_offer,true);" value="Select All" class= "RMButton" id=button2 name=button2> onclick="select_all(chk_declined_offer,false);" value="UnSelect All" class= "RMButton" id=button2 name=button2> onclick="delete_all_offers('5',chk_declined_offer);" value="Delete Checked" class= "RMButton"> onclick="pricematch(chk_declined_offer);" value="Price Match" class= "RMButton" id=button2 name=button2> onclick="accept_counteroffer(chk_declined_offer);" value="Accept Offer" class= "RMButton" id=button2 name=button2>
    The following offers have not yet been answered. Please allow up to 4 hours for our sales representatives to go over each offer and give you the best possible price for each item.
    <% sql = "SELECT offers.*,brands.*,products_colors.*" sql = sql & " FROM offers INNER JOIN (products_colors INNER JOIN brands ON products_colors.brand_id = brands.brand_id) ON (offers.color_code_n = products_colors.color_code_n) AND (offers.product_id = products_colors.product_id)" sql = sql & " WHERE offers.email_n='" & v_Email & "'" Rs.open sql,DBConn IF rs.EOF = true and rs.BOF=true then Response.Write "No Pending Offers Found." v_DisableControls2 = "disabled" rs.close ELSE %> <%do until rs.eof=true v_OnClick = "window.open('pd.asp?prod_id=" & rs.Fields("product_id") & "&txt_brand_id=" & rs.Fields("brand_id") & "&txt_color_code=" & rs.Fields("color_code_n") & "');" %> <%rs.MoveNext Loop rs.close %> <%end if%>
    Offer # Date Brand Model Color Code Your Offer Status
     Delete Offer,3);"> 
    ">
    		> <%=rs.Fields("offer_id")%> > <%=rs.Fields("datestamp")%> > <%=rs.Fields("brand_n")%> > <%=rs.Fields("product_n")%> > <%=rs.Fields("color_code_n")%> align=center> $<%=formatnumber(rs.Fields("amount"),2)%> > Not Yet Answered
    onclick="select_all(chk_pending_offer,true);" value="Select All" class= "RMButton" id=button2 name=button2> onclick="select_all(chk_pending_offer,false);" value="UnSelect All" class= "RMButton" id=button2 name=button2> onclick="delete_all_offers('4',chk_pending_offer);" value="Delete Checked" class= "RMButton" id=button2 name=button2>
    The following items have been placed by you on your wish list. The Wish List is a way to keep track of items you are interested in buying in the future. Our vendors routinely visit the wish lists of all of our customers and look over what people are more interested in purchasing.
    <% sql = "SELECT * from wishlist WHERE offers.email_n='" & v_Email & "'" sql = "SELECT wishlist.*,brands.*,products_colors.* FROM wishlist INNER JOIN (products_colors INNER JOIN brands" sql = sql & " ON products_colors.brand_id = brands.brand_id) ON wishlist.product_color_id = products_colors.product_color_id" sql = sql & " WHERE wishlist.email='" & v_Email & "'" Rs.open sql,DBConn IF rs.EOF = true and rs.BOF=true then Response.Write "No Wish List Items Found." rs.close ELSE %> <%do until rs.eof=true v_OnClick = "window.open('pd.asp?prod_id=" & rs.Fields("product_id") & "&txt_brand_id=" & rs.Fields("brand_id") & "&txt_color_code=" & rs.Fields("color_code_n") & "');" %> <%rs.MoveNext Loop rs.close %> <%end if%>
    Date Added Brand Model Color Code Color Name
     Delete Wish List Item);"> 
    		&txt_brand_id=<%=rs.Fields("brand_id")%>&txt_color_code=<%=rs.Fields("color_code_n")%>"><%Response.write ""%> > <%=rs.Fields("added_date")%> > <%=rs.Fields("brand_n")%> > <%=rs.Fields("product_n")%> > <%=rs.Fields("color_code_n")%> > <%=rs.Fields("color_name")%>