[an error occurred while processing this directive]

Horoscope Cufflinks

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

These are not currency.
They are specially minted for me.

All horoscope coins are available as pendants and cufflinks

Coins

 Item #

Type

 Cufflink Price

Capricorn

Capricorn - The Goat

Dec 22 -- Jan 19

 Practical, ambitious, humorous and reserved

 

$119.00

Qty:

Aquarius

Aquarius - The Water Carrier

Jan 20 -- Feb 18

 Friendly, loyal, original and independent 

 

$119.00

Qty:

Pisces

Pisces - The Fishes

Feb 19 -- March 20

 Sensitive, selfless, kind and sympathetic

 

$119.00

Qty:

Aries

Aries - The Ram

Mar 21 -- Apr 19

 Adventurous, energetic, enthusiastic and confident

$119.00

Qty:

Taurus

Taurus - The Bull

Apr 20 -- May 20

 Patient, reliable, loving and determined

$119.00

Qty:

Gemini

Gemini - The Twins

May 21 -- June 20

 Adaptable, versatile, communicative and youthful

$119.00

Qty:

Cancer

Cancer - The Crab

 June 21 -- July 22

 Emotional, loving, imaginative and protective

 

$119.00

Qty:

Leo

Leo - The Lion

July 23 -- Aug 22

 Generous, expansive, faithful and broadminded

 

$119.00

Qty:

Virgo

Virgo - The Virgin

Aug 23 -- Sept 22

 Modest, meticulous, practical and analytical

$119.00

Qty:

Libra

Libra - The Scales

Sept 23 -- Oct 22

 Diplomatic, romantic, sociable and idealistic

 

$119.00

Qty:

Scorpio

Scorpio - The Scorpion

Oct 23 -- Nov 21

 Determined, intuitive, passionate and exciting

$119.00

Qty:

aquarius cufflinks

Sagittarius

Sagittarius - The Archer

Nov 22 -- Dec 21

 Optimistic, good-humored, honest and philosophical

 		 $119.00
Qty:

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

Main Entrance | Checkout Stand | Email

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

Main Entrance | Checkout Stand | Email

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

Main Entrance | Checkout Stand | Email

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

Main Entrance | Checkout Stand | Email

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

Main Entrance | Checkout Stand | Email

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

Main Entrance | Checkout Stand | Email

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

Main Entrance | Checkout Stand | Email

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

Main Entrance | Checkout Stand | Email

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

Main Entrance | Checkout Stand | Email

 

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

 

  © 2001  Hand Painted Coins

 

 

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

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

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

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

 

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

 

<% next next tempstr = "

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


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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

paintedCoins.com

" objMail4.send set objMail4 = Nothing %>

 

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

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

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

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

      

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

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

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

    

      

        
         
        
        
      

      

        
          
        
        
          
         
      

    

    

      

        
          

            

            

              

                
                  

                    

                  

                		
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
                  

              

              

                
              

              

                
              

              

                
              

              

                
              

              

                
                  

              

              

                
              

            

            

          

        		
        
    

  [an error occurred while processing this directive]
  

    

      

        

          
          

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

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

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

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

              %>
              
 

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

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

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

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

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

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

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

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

Your confirmation is:" & Date & "

Thank you,

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

          

        

      

      

        
 

      

    

    

      

    

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


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


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

      

         
          
  © 2001 
          Hand Painted Coins

        		
      

    

  

  

  [an error occurred while processing this directive]
  

    

      
    

    

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

        checkout stand link on the menu bar... 
        
        

          

            

            

            

          

        

        

          

            

            

            

          

        

        

        
Main Entrance | Checkout
        Stand | Email

      		
    

  

  


  

    
			
  





  





  

    
	

      

	
      

      
 
  

  

  

    



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


  

      
      
        
      
      
    
      
      
      ©
      
      
      
      2001 
      
      
      
      Hand Painted Coins

    		
  









  

    
  





  

  

    

      
      

        

          
 

          
 

      

      

        


          
|| 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