[an error occurred while processing this directive]

Belt Buckles

Please note: Coins seen on this web site are not shown 
in actual size. Size of coins my be different. Coins are hand painted and come in assorted colors. Colors seen on this web site may vary and are not guaranteed.

Mercury Dime -
Morgan Silver Dollar -
Silver Eagle Dollar - Front of the coin (Liberty Lady).
Silver Eagle Dollar - Back of the coin (Eagle).
Ike - Bicentennial Dollar - The Eagle on the Moon.
Buffalo Nickel - 2 coins in one Buckle (Indian head and buffalo).
Franklin -Half a Dollar - Liberty Bell.
Indian Head Penny -
Silver Peace Dollar - Front of the coin or the back
Walking Liberty - Half  Dollar (Liberty lady)
Army , Marines , Air Force , Navy , Coast Guard , MIA/POW
Presidential Seal, National Rifle Association, US State Quarter

return to PaintedCoins.com home page

Coins

 Item #

Type

 Price

BU201 US Indian Head Penny
Belt Buckle 		$80.00

Qty:

BU202 Old Buffalo Nickel Belt Buckle $130.00

Qty:

BU203 Elk
Belt Buckle 		$80.00

Qty:

BU204 Walking Liberty
Belt Buckle 		$95.00

Qty:

BU205 Marine Corp
Belt Buckle 		$80.00

Qty:

BU206 Liberty Bell Dollar
Belt Buckle 		$90.00

Qty:

BU207 ARMY
Belt Buckle 		$80.00

Qty:

BU208 Presidential Seal #2
Belt Buckle 		$100.00

Qty:

BU209 Eagle on the Moon Dollar Belt Buckle $140.00

Qty:

BU210 Morgan Dollar
Belt Buckle 		$140.00

Qty:

BU211 New Buffalo Nickel 2 coin Belt Buckle $130.00

Qty:

BU212 Marine Corp Iwo Jima
Belt Buckle 		$80.00

Qty:

BU213 POW / MIA
Belt Buckle 		$80.00

Qty:

BU301 Motorcycle
Belt Buckle 		$80.00

Qty:

BU401 Bass Fishing
Belt Buckle 		$80.00

Qty:

BU402 Masons
Belt Buckle 		$80.00

Qty:

BU403 Air Force
Belt Buckle 		$80.00

Qty:

BU404 Navy
Belt Buckle 		$80.00

Qty:

BU405 Trout Fishing
Belt Buckle 		$80.00

Qty:

BU406 Mercury Dime
Belt Buckle 		$95.00

Qty:

BU501 National Rifle Association
Belt Buckle 		$125.00

Qty:

BU502 Texas State Quarter
Belt Buckle 		$120.00

Qty:
Any US State Quarter can be ordered 

as a 

belt buckle

 

  

BU503 Presidential Seal #1
Belt Buckle 		$140.00

Qty:

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||

 

  © 2001  Hand Painted Coins

 

 

|| U.S New Quarters || Money Clips || International Coins || US Coins|| Home||
 

  © 2001  Hand Painted Coins
[an error occurred while processing this directive]
If Items do not show up on your screen please click the 
checkout stand link on the menu bar...

Main Entrance | Checkout Stand | Email
[an error occurred while processing this directive] [an error occurred while processing this directive]

<% idtemp = len(id) 'response.write idtemp & "/" i = 1 j = 1 for i = 1 to idtemp step 1 idtemp1 = left(id, i) id1temp = right(idtemp1, 1) id2temp = id2temp + id1temp lefttemp = left(id2temp, 1) righttemp = right(id2temp, 1) if ((righttemp = ",")) Then temp7 = len(id2temp) temp7 = temp7 - 1 id2temp = left(id2temp, temp7) data(1, j) = "ID =" & id2temp 'response.write id2temp & "/" j = j + 1 id2temp = "" End If Next tempdata = j Descriptiontemp = len(Description) 'response.write Descriptiontemp & "/" i = 1 j = 1 for i = 1 to Descriptiontemp step 1 Descriptiontemp1 = left(Description, i) Description1temp = right(Descriptiontemp1, 1) Description2temp = Description2temp + Description1temp lefttemp = left(Description2temp, 1) righttemp = right(Description2temp, 1) 'response.write Description2temp if ((righttemp = ",")) Then temp7 = len(Description2temp) temp7 = temp7 - 1 Description2temp = left(Description2temp, temp7) data(2, j) = "Description =" & Description2temp 'response.write Description2temp & "/" j = j + 1 Description2temp = "" End If Next tempi = i Qtytemp = len(Qty) 'response.write Qtytemp & "/" i = 1 j = 1 for i = 1 to Qtytemp step 1 Qtytemp1 = left(Qty, i) Qty1temp = right(Qtytemp1, 1) Qty2temp = Qty2temp + Qty1temp lefttemp = left(Qty2temp, 1) righttemp = right(Qty2temp, 1) 'response.write Qty2temp if ((righttemp = ",")) Then temp7 = len(Qty2temp) temp7 = temp7 - 1 Qty2temp = left(Qty2temp, temp7) data(3,j) = "Qty =" & Qty2temp 'response.write Qty2temp & "/" j = j + 1 Qty2temp = "" End If Next Price_Eachtemp = len(Price_Each) 'response.write Price_Eachtemp & "/" i = 1 j = 1 for i = 1 to Price_Eachtemp step 1 Price_Eachtemp1 = left(Price_Each, i) Price_Each1temp = right(Price_Eachtemp1, 1) Price_Each2temp = Price_Each2temp + Price_Each1temp lefttemp = left(Price_Each2temp, 1) righttemp = right(Price_Each2temp, 1) 'response.write Price_Each2temp if ((righttemp = ",")) Then temp7 = len(Price_Each2temp) temp7 = temp7 - 1 Price_Each2temp = left(Price_Each2temp, temp7) data(4, j) = "Price Each =" & Price_Each2temp 'response.write Price_Each2temp & "/" j = j + 1 Price_Each2temp = "" End If Next Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item) 'response.write Total_Price_Qty_Item & "/" i = 1 j = 1 for i = 1 to Total_Price_Qty_Itemtemp step 1 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i) Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1) Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp lefttemp = left(Total_Price_Qty_Item2temp, 1) righttemp = right(Total_Price_Qty_Item2temp, 1) 'response.write Total_Price_Qty_Item2temp if ((righttemp = ",")) Then temp7 = len(Total_Price_Qty_Item2temp) temp7 = temp7 - 1 Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7) data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp 'response.write Total_Price_Qty_Item2temp & "/" j = j + 1 Total_Price_Qty_Item2temp = "" End If Next commentstemp = len(comments) 'response.write commentstemp & "/" i = 1 j = 1 for i = 1 to commentstemp step 1 commentstemp1 = left(comments, i) comments1temp = right(commentstemp1, 1) comments2temp = comments2temp + comments1temp lefttemp = left(comments2temp, 1) righttemp = right(comments2temp, 1) 'response.write comments2temp if ((righttemp = ",")) Then temp7 = len(comments2temp) temp7 = temp7 - 1 comments2temp = left(comments2temp, temp7) data(6, j) = "Comments =" & comments2temp 'response.write comments2temp & "/" j = j + 1 comments2temp = "" End If Next %>

 

<%=tempdata%> <% tempdata = tempdata - 1 for u = 1 to tempdata step 1 for v = 1 to 6 step 1 tempoutput = tempoutput & "
" & data(v, u) & "" %>

 

<% next next tempstr = "

Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "


Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" tempstr1 = tempoutput tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
" %> <%=tempstr%> <%=tempstr1%> <%=tempstr2%> <%objMail.Body = "" & tempstr & tempstr1 & tempstr2 & "" objMail.send set objMail = Nothing %> <% Dim objMail2 Set objMail2 = CreateObject("CDONTS.Newmail") objMail2.TO = "mzeevi123@aol.com" objMail2.From = email objmail2.Subject = "Online Order!" objMail2.MailFormat = cdoMailFormatMime objMail2.BodyFormat = cdoBodyFormatHTML objMail2.Body = "" & tempstr & tempstr1 & tempstr2 & "" objMail2.send set objMail2 = Nothing %> <% Dim objMail3 Set objMail3 = CreateObject("CDONTS.Newmail") objMail3.TO = "dynomax300@aol.com" objMail3.From = email objmail3.Subject = "Online Order!" objMail3.MailFormat = cdoMailFormatMime objMail3.BodyFormat = cdoBodyFormatHTML objMail3.Body = "" & tempstr & tempstr1 & tempstr2 & "" objMail3.send set objMail3 = Nothing %> <% Dim objMail4 Set objMail4 = CreateObject("CDONTS.Newmail") objMail4.TO = email objMail4.From = "mzeevi123@aol.com" objmail4.Subject = "Online Order!" objMail4.MailFormat = cdoMailFormatMime objMail4.BodyFormat = cdoBodyFormatHTML objMail4.Body = "

---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com

" objMail4.send set objMail4 = Nothing %>

 

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  [an error occurred while processing this directive]
  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    [an error occurred while processing this directive]
    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

    
      <%While not rs6.EOF%>
      
      <%
rs6.movenext 
      %>
      <%wend%>
    

      

        ID Num
        Last Name
        First Name
        Phone Number
        Date
        Ups
        E-mail Address
      

        " target="_top"><%=rs6("id1")%>
           
        <%=rs6("lname")%>  
        <%=rs6("fname")%>  
        <%=rs6("phone")%>  
        <%=rs6("Date1")%>  
        <%=rs6("ups")%>  
        "><%=rs6("email")%>
           
      

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    
Order Information

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

            
              
<%
idtemp = len(id)
'response.write idtemp & "/"
i = 1
j = 1
for i = 1 to idtemp step 1
 idtemp1 = left(id, i)
	id1temp = right(idtemp1, 1)
	id2temp = id2temp + id1temp
	lefttemp = left(id2temp, 1) 
	righttemp = right(id2temp, 1)
	if ((righttemp = ",")) Then
	temp7 = len(id2temp)
	temp7 = temp7 - 1
	id2temp = left(id2temp, temp7)
	data(1, j) = "ID =" & id2temp
	'response.write id2temp  & "/"
	j = j + 1
	id2temp = ""
	End If
Next
tempdata = j
Descriptiontemp = len(Description)
'response.write Descriptiontemp & "/" 
i = 1
j = 1
for i = 1 to Descriptiontemp step 1
 Descriptiontemp1 = left(Description, i)
	Description1temp = right(Descriptiontemp1, 1)
	Description2temp = Description2temp + Description1temp
	lefttemp = left(Description2temp, 1) 
	righttemp = right(Description2temp, 1)
	'response.write Description2temp
	if ((righttemp = ",")) Then
	temp7 = len(Description2temp)
	temp7 = temp7 - 1
	Description2temp = left(Description2temp, temp7)
	data(2, j) = "Description =" & Description2temp 
	'response.write Description2temp & "/"
	j = j + 1
	Description2temp = ""
	End If
Next
tempi = i
Qtytemp = len(Qty)
'response.write Qtytemp & "/" 
i = 1
j = 1
for i = 1 to Qtytemp step 1
 Qtytemp1 = left(Qty, i)
	Qty1temp = right(Qtytemp1, 1)
	Qty2temp = Qty2temp + Qty1temp
	lefttemp = left(Qty2temp, 1) 
	righttemp = right(Qty2temp, 1)
	'response.write Qty2temp
	if ((righttemp = ",")) Then
	temp7 = len(Qty2temp)
	temp7 = temp7 - 1
	Qty2temp = left(Qty2temp, temp7)
	data(3,j) = "Qty =" & Qty2temp
	'response.write Qty2temp  & "/"
	j = j + 1
	Qty2temp = ""
	End If
Next

Price_Eachtemp = len(Price_Each)
'response.write Price_Eachtemp & "/"
i = 1
j = 1
for i = 1 to Price_Eachtemp step 1
 Price_Eachtemp1 = left(Price_Each, i)
	Price_Each1temp = right(Price_Eachtemp1, 1)
	Price_Each2temp = Price_Each2temp + Price_Each1temp
	lefttemp = left(Price_Each2temp, 1) 
	righttemp = right(Price_Each2temp, 1)
	'response.write Price_Each2temp
	if ((righttemp = ",")) Then
	temp7 = len(Price_Each2temp)
	temp7 = temp7 - 1
	Price_Each2temp = left(Price_Each2temp, temp7)
	data(4, j) = "Price Each =" & Price_Each2temp
	'response.write Price_Each2temp & "/"
	j = j + 1
	Price_Each2temp = ""
	End If
Next

Total_Price_Qty_Itemtemp = len(Total_Price_Qty_Item)
'response.write Total_Price_Qty_Item & "/"
i = 1
j = 1
for i = 1 to Total_Price_Qty_Itemtemp step 1
 Total_Price_Qty_Itemtemp1 = left(Total_Price_Qty_Item, i)
	Total_Price_Qty_Item1temp = right(Total_Price_Qty_Itemtemp1, 1)
	Total_Price_Qty_Item2temp = Total_Price_Qty_Item2temp + Total_Price_Qty_Item1temp
	lefttemp = left(Total_Price_Qty_Item2temp, 1) 
	righttemp = right(Total_Price_Qty_Item2temp, 1)
	'response.write Total_Price_Qty_Item2temp
	if ((righttemp = ",")) Then
	temp7 = len(Total_Price_Qty_Item2temp)
	temp7 = temp7 - 1
	Total_Price_Qty_Item2temp = left(Total_Price_Qty_Item2temp, temp7)
	data(5, j) = "Total Price Qty Item =" & Total_Price_Qty_Item2temp
	'response.write Total_Price_Qty_Item2temp  & "/"
	j = j + 1
	Total_Price_Qty_Item2temp = ""
	End If
Next

commentstemp = len(comments)
'response.write commentstemp & "/" 
i = 1
j = 1
for i = 1 to commentstemp step 1
 commentstemp1 = left(comments, i)
	comments1temp = right(commentstemp1, 1)
	comments2temp = comments2temp + comments1temp
	lefttemp = left(comments2temp, 1) 
	righttemp = right(comments2temp, 1)
	'response.write comments2temp
	if ((righttemp = ",")) Then
	temp7 = len(comments2temp)
	temp7 = temp7 - 1
	comments2temp = left(comments2temp, temp7)
	data(6, j) = "Comments =" & comments2temp
	'response.write comments2temp  & "/"
	j = j + 1
	comments2temp = ""
	End If
Next

              %>
              
 

              <%=tempdata%>
              <%
tempdata = tempdata - 1
for u = 1 to tempdata step 1
 for v = 1 to 6 step 1 
 
 tempoutput = tempoutput & "
" & data(v, u) & ""
              %>
              
 

              <%
next
next
tempstr = "
Below is the result of your feedback form. It was submitted by (" & email & ") " & Date & "

Payment Method =" & Payment_Method & "
Credit Card Name =" & Credit_Card_Name & "
Card Owner =" & Card_Owner & "
Card Number =" & Card_Number & "
Card Exp Date =" & Card_Exp_Date & "
Company Name =" & Company_Name & "
Last Name =" & lastname & "
First Name =" & firstname & "
Address =" & Address & "
City =" & City & "
State/Prov =" & State_Prov & "
Postal Code =" & Postal_Code & "
Country =" & Country & "
Phone =" & Phone & "
Fax =" & Fax & "
E-mail =" & email & "
Found Site =" & Found_Site & "
Found Site Info =" & Found_Site_Info & "
Item =
" 
tempstr1 = tempoutput 
tempstr2 = "

Totals =" & Total & "
Sub Total =" & subtotal & "
Shipping / Handling / Insurance =" & UPS & "
MD Sales Tax =" & MD_Sales_tax & "
Total for Non-MD residents in USA =" & Total_for_Non_MD_residents_in_USA & "
Total for MD residents =" & Total_for_MD_residents & "
Total for outside of USA =" & Total_for_sales_outside_of_USA & "
"

              %>
              <%=tempstr%>
              <%=tempstr1%>
              <%=tempstr2%>
              <%objMail.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
objMail.send
set objMail = Nothing

              %>
              <%
  Dim objMail2
  Set objMail2 = CreateObject("CDONTS.Newmail")
  objMail2.TO = "mzeevi123@aol.com"
  objMail2.From = email
  objmail2.Subject = "Online Order!"
  objMail2.MailFormat = cdoMailFormatMime
  objMail2.BodyFormat = cdoBodyFormatHTML
  objMail2.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail2.send
  set objMail2 = Nothing
              %>
              <%
  Dim objMail3
  Set objMail3 = CreateObject("CDONTS.Newmail")
  objMail3.TO = "dynomax300@aol.com"
  objMail3.From = email
  objmail3.Subject = "Online Order!"
  objMail3.MailFormat = cdoMailFormatMime
  objMail3.BodyFormat = cdoBodyFormatHTML
  objMail3.Body = "" & tempstr & tempstr1 &  tempstr2 & ""
  objMail3.send
  set objMail3 = Nothing
              %>
              <%
  Dim objMail4
  Set objMail4 = CreateObject("CDONTS.Newmail")
  objMail4.TO = email
  objMail4.From = "mzeevi123@aol.com"
  objmail4.Subject = "Online Order!"
  objMail4.MailFormat = cdoMailFormatMime
  objMail4.BodyFormat = cdoBodyFormatHTML
  objMail4.Body = "
---------------------------------------------------------------------------

Dear" & " " & lastname & " " & firstname & ",

Thank you for visiting Hand Painted Coins Online . We have received your
request for Coins.
Once again , thank you for allowing Hand Painted Coins the opportunity to
serve you .

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com
"
  objMail4.send
  set objMail4 = Nothing
              %>
              

          

        

      

      

        
 

      

    

    

      

    

    <%
 set Rs6 = nothing
 set Conn = nothing    
    %>
    


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| U.S
          New Quarters || Money
          Clips || International
          Coins || US
          Coins|| Home||

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

      If
        Items do not show up on your screen please click the 

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



      
 ||  U.S New Quarters ||
	 Money Clips
 || International Coins ||
		 US Coins||
Home||
    


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins