[an error occurred while processing this directive]

U.S. Pendants

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.
Each coin is painted on both sides before the final plastic coating process.
It is then mounted in a 14 Karat gold filled pendant ring.
 Colors seen on this web site may vary and are not guaranteed.

*Featured coins are also available in money-clip format !!!

return to PaintedCoins.com home page

Coins

 Item #

Type

 Price

US112

Eisenhower Bicentennial Dollar  
(Tail side)

 $130.00

Qty:

US114 Franklin Bicentennial Half Dollar 
(Tail side) 		$69.00

Qty:

US103 Morgan Silver Dollar
(Head Side) 		$175.00

Qty:

US116 US 1976 
Quarter 		$60.00

Qty:

US101 Silver Eagle Dollar 
(Head side) 		$175.00

Qty:

US109 Silver Peace Dollar - 1oz.
(Head Side) 		$135.00

Qty:

US120 U.S.
New Dime  		$48.00

Qty:

US108 U.S. Mercury
Old Dime 		$75.00

Qty:

USPend01 U.S. Old Buffalo Nickel head side $55.00

Qty:

USPend02 Kennedy
Half Dollar 		$65.00

Qty:

USPend03 U.S. Indian Head Penny head side $55.00

Qty:

USPend06 Susan B Anthony eagle on the moon $55.00

Qty:

USPend07 U.S. Old Buffalo Nickel buffalo side $55.00

Qty:

USPend08 U.S. New Nickel Oregon Coast $55.00

Qty:

USPend09 U.S. New Buffalo Nickel Buffalo side $55.00

Qty:

USPend10 New Sacagawea US Dollar 
head side 		$55.00

Qty:

USPend11 U.S. New Nickel Lewis & Clark $55.00

Qty:

USPend12 U.S. New Nickel Louisiana Purchase $55.00

Qty:

USPend13 Kennedy Half Dollar Bicentennial $55.00

Qty:

USPend14 Ike Dollar
Eagle on the Moon 		$130.00

Qty:

US301 Walking Liberty Half Dollar $85.00

Qty:

US520 Wheat Penny $48.00
Qty:

US502 Maui Sting Fish $195.00

Qty:

US505 Maui Fish and Turtle $195.00
Qty:

US506 Maui Whale $195.00
Qty:

US507 Maui 2 Whales $195.00
Qty:

US901 2011 
New US Cent		 $47.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

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        

<