Hand painted Coins

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

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

<%=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 & "

" objMail4.send set objMail4 = Nothing %>

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")%>

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")%>

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")%>

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")%>

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")%>


	If Items do not show up on your screen please click the checkout stand link on the menu bar... Main Entrance \| Checkout Stand \| Email