<%@LANGUAGE="VBScript"%> <% Dim authToken, txToken Dim query Dim objHttp Dim sQuerystring Dim sParts, iParts, aParts Dim sResults, sKey, sValue Dim i, result Dim firstName, lastName, itemName, sacredchest, sacredchest authToken =" Ekrfwx677VUkn0lubEM7tbx1ilz9Ut3i1QCM8F0UqIDZ9EglczcEacOGtgy " txToken = Request.Querystring("tx") query = "cmd=_notify-synch&tx=" & txToken & "&at=" & authToken set objHttp = Server.CreateObject("Microsoft.XMLHTTP") ' set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objHttp.open "POST", "http://www.paypal.com/cgi-bin/webscr", false objHttp.Send query sQuerystring = objHttp.responseText If Mid(sQuerystring,1,7) = "SUCCESS" Then sQuerystring = Mid(sQuerystring,9) sParts = Split(sQuerystring, vbLf) iParts = UBound(sParts) - 1 ReDim sResults(iParts, 1) For i = 0 To iParts aParts = Split(sParts(i), "=") sKey = aParts(0) sValue = aParts(1) sResults(i, 0) = sKey sResults(i, 1) = sValue Select Case sKey Case "first_name" firstName = sValue Case "last_name" lastName = sValue Case "item_name" itemName = sValue Case "sacredchest" sacredchest = sValue Case "mc_currency" mcCurrency = sValue End Select Next Response.Write("

Your order has been received.

") Response.Write("Details
") Response.Write("
  • Name: " & firstName & " " & lastName & "
    • ") Response.Write("
  • Description: " & itemName & "
    • ") Response.Write("
  • Amount: " & mcCurrency & " " & mcGross & "
    • ") Response.Write("
    ") Else 'log for manual investigation Response.Write("ERROR") End If %>


          













     







    © All website content copyright protected.
     

    EMBROIDERY DESIGNS
    Embroidery designs will be emailed within 24 hours on Sun-Thu orders.

    NEW! CUSTOM DESIGNED FONTS!

         
     


    BJ's Christmas Ball
    $1.00

    		 


    BJ's Holly with Berries
    $1.00

     
          
     


    BJ's Christmas Tree & Dove
    $1.00

    		 


    BJ's Christmas Bow
    $1.00

     
          
     


    Butterfly Flower
    $1.00

    		 


    Heart Daisy
    $1.00

           
     


    Stick Girl
    $1.00

     

    		  


    Stick Doxie
    $1.00


    Scroll Dot #3
    $1.00
           
     
    Scrollwork Set
    $2.00

    		  
    Borders & Frames
    $2.00
           
     


    Crown #1
    $1.00

    		 


    Mod Flowers Set
    $1.00

     

     
           
     


    Cowboy Lasso

    		  


    Cowboy
    $2.00

           
     


    Cowboy Up!

    		  


    Cowboy Up! Script
           
     
    Shabby Flowers

    Alphabet available for sale.
    Email me

     

    		  
    Sombrero
    Artwork by Dee Beshea
           
     
      Gift Wrapping

    Direct Shipping

    Gift Certificates

    Rush Orders

     

    		  
     

     Fabric!  

     

     

     

     

    The Sacred Chest   303 Magazine Court,   Bossier City, Louisiana   71111
     WebMistress
    Links
    Reciprocal Linking Request
    Hit Counter