[an error occurred while processing this directive]

International Coins

Please note: Coins shown on this web site are not shown 
in actual size. Size of coins my be different. 
Coins are Hand Painted and come in assorted colors. 
Each coin is painted on both sides before the final plastic coating process. It is then mounted in a 14 Karat gold filled pendant ring.
Colors seen on this web site may vary and are not guaranteed. 
Prices are subject to change based on market conditions.
Pictures are not available for all coins. 
 Please write to me for details on countries not displayed.
`

return to PaintedCoins.com home page

Coins

Item #

Type

Price
Peru
PER101 1/2 Sol De Oro $45.00

Qty:
To Top
Philippines
PHI101 Philippines Butterfly $45.00

Qty:
PHI401 Philippines Eagle $50.00

Qty:
To Top
Poland
POL101  

5 Groszy

(size of 
US Cent)

 $47.00

Qty:
POL102 50 Groszy Eagle w/ Leaves $50.00

Qty:
POL201 2 Zloty
w/ hole		 $75.00

Qty:
POL202 2 Zloty
Wolves		 $75.00

Qty:
POL203 2 Zloty
Owl		 $60.00

Qty:
POL204 2 Zloty
John Paul II		 $75.00

Qty:
POL205 2 Zloty
Turtle		 $60.00

Qty:
POL206 2 Zloty
Ship		 $60.00

Qty:
POL208 2 Zloty
Frog		 $60.00

Qty:
POL209 2 Zloty
Two Birds		 $60.00

Qty:
POL210 2 Zloty
Exotic Bird		 $60.00

Qty:
To Top
Portugal

POR102 XX Centavos $45.00

Qty:

POR301 Ship $50.00

Qty:

POR302 Cross $50.00

Qty:

POR303 50 Centavos $50.00

Qty:
To Top
Rhodesia

RHO516 Elephants $60.00

Qty:

RHO519 Giraffes $60.00

Qty:
To Top
Romania

ROM301 20 Lei King's Head w/ Crown $45.00

Qty:
To Top
Russia
RUS101 Grizzly Bear $50.00

Qty:
RUS102 Russia Dolphin $50.00

Qty:
RUS301 CCCP $50.00

Qty:
To Top
Scotland
SCO301 5 New Pence $50.00

Qty:
SCO302 2 Pence $50.00

Qty:
SCO401 1 Pound with Lion $95.00
Qty:
To Top
Sierra Leone

SL503 Crocodile $175.00

Qty:

SL504 Giraffe $175.00

Qty:

SL523 Gorilla $175.00

Qty:

SL601 Hippo $175.00

Qty:
To Top
Singapore
SIN101 Sea Horse $50.00

Qty:
SIN401 Swordfish $50.00

Qty:
To Top
Somalia

SOM301 5 Cent Elephant $45.00

Qty:
To Top
Spain
SPN101 5 Ptas $45.00

Qty:
SPN102 1 Peseta  $45.00

Qty:
SPN301 Anchor $50.00

Qty:
SPN401 5 Ptas
Dancer		 $55.00

Qty:
To Top
Swaziland

SWA301 Elephant $50.00

Qty:
To Top
Sweden

SWE301 1 Kroner $50.00

Qty:
To Top
Switzerland

SWI301 Swiss 301 $50.00

Qty:

SWI401 Swiss 401 $50.00

Qty:

SWI402 Swiss Cross $50.00

Qty:
To Top
Taiwan

TAI301 Taiwan Flowers $45.00

Qty:
TAI401 Dragon $65.00

Qty:
To Top
Tanzania
TAN101 Rhinos $60.00

Qty:
To Top
Thailand
THA101 Small Sunburst w/ Hole in Center $50.00

Qty:
THA201 Bird-God $55.00

Qty:
To Top
Trinidad
TRI102 1 Cent Hummingbird $45.00

Qty:
To Top
Turkey
TUR102 25 Kurus $45.00

Qty:
TUR401 Turkey 401 $50.00

Qty:
To Top
Ukraine
UKR301 Ukraine $175.00

Qty:
UKR401 Ukraine 1992 $50.00

Qty:
To Top
Uruguay
URU101 Uruguay Horse $45.00

Qty:
To Top
Venezuela
VEN101 Crest $60.00

Qty:
To Top
Vietnam
VIET101 Bamboo Tree $45.00

Qty:
VIET102 Flowers $45.00

Qty:
To Top
Wales
WAL101 1 Pound w/ Green Dragon $60.00

Qty:
WAL102 1 Pound w/ Red Dragon $60.00

Qty:
To Top

Argentina through Finland   France through Norway 


 

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