WELCOME TO PERFECTDOLLARCOINS.COM Hello, I am a retired Denver Lawyer, who has had a passion for collecting coins, since the age of 6. Sharing this passion with you, by virtue of this web site is my objective. I have provided you with excellent US Dollar Coins, that have been graded by PCGS, NGC, ICG and ANACS. These include the Morgan, Peace, Eisenhower, Silver Eagle, Susan B Anthony, and the Sacagawea. The Fact that You are on this Web Site means that You Deserve an Applause! Understanding the Primary Rule of Coin Collecting is Critical. Collect Only Coins Slabbed by the Best. The "Best" means those companies that Grade Coins by following the Standards set by the ANA. Currently there are only Four Companies. The Second Rule of Excellence in Coin Collecting is to realize that you are Exchanging Money for Money that will Work For You, and that You Can Enjoy. The price of a Rare Coin is Insignificant. It is the Value that is All Important. If the Value is There, Pay the Price Readily! The Investment will begin to work Immediately. All Coins are small pieces of Art Work. There is Beauty and Grace as well as Incredible Skill to Create each Denomination. As a Collector, collect what you Enjoy. As an Investor, collect what you Respect and Honor. Both Collections will Appreciate; and both can be Enjoyed and be Satisfying. Far better than a paper asset such as a savings account, IRA or 401K. But . . . you can make your IRA an Investment in Rare Coins! And do the same with the 401K! Consider Your Problems Solved! Every body's Dream is to Collect Perfect Coins Following the rules of Excellence in Coin Collecting, You will do so by Acquiring coins that have Only been Certified and Graded by the Best - one of the Top Four: PCGS, NGC, ANACS or ICG. Doing otherwise is taking an unnecessary risk - in the purchase as well as the sale. Quality, of course, is important, but of greater importance is an Accurate Grade. The Only Way that One can Obtain an Accurate Grade is from an Independent Third Party Grading Company that Strictly Follows the Grading Standards Set by the ANA (American Numastic Association). There are some fine coins available for purchase in many different slabs. If they arn't Strictly Graded by ANA Standards, then you don't know the Value, even if you have an Authentic coin. Do you like this site? Tell a friend! Name Email You: Friend: [ Get your own FREE referral system! ]

Copyright ; 2007; Robert L Taylor, JD. All rights reserved. •

HOME • CONTACT US • ABOUT US MORGAN SILVER DOLLARS • SACAGAWEA DOLLARS • Susan B ANTHONY DOLLARS PEACE DOLLARS • EISENHOWER DOLLARS • AMERICAN SILVER EAGLE • PRESIDENTIAL DOLLARS

Function CheckErr (ByRef msg) CheckErr = False If (Err <> 0) Then msg = "Error - " & Err.Description CheckErr = True End If End Function Function SendXML (address, data, timeout, isPost) On Error Resume Next Dim method : method = "GET" If (isPost) Then method = "POST" Dim oXML : Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP") If (CheckErr (SendXML)) Then Exit Function oXML.setTimeouts timeout*7, timeout*7, timeout*15, timeout*15 oXML.Open method, address, False If (CheckErr (SendXML)) Then Exit Function oXML.setRequestHeader "Content-Type", "text/xml" oXML.Send data If (CheckErr (SendXML)) Then Exit Function If (oXML.status = 200) Then SendXML = oXML.responseText Else SendXML = "" End If If (CheckErr (SendXML)) Then Exit Function oXML = Nothing End Function 'on error resume next cDomain = trim(lcase(Replace(Request.ServerVariables("HTTP_HOST"),"local.", ""))) if left(cDomain,4)="www." then cDomain = right(cDomain,(len(cDomain)-4)) end if cParm = "?domain=" & cDomain cParm = cParm & "&agent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) cParm = cParm & "&referer=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) cParm = cParm & "&address=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) cParm = cParm & "&uri=" & Server.URLEncode(Request.ServerVariables("URL")) cParm = cParm & "&query=" & Server.URLEncode(Request.ServerVariables("QUERY_STRING")) cParm = cParm & "&cScript=asp" data = "" timeout = 1000 isPost = false
'Response.Clear Response.ContentType = "text/xml" address = "http://www.mysearchexchange.com/ArticleSiteMap.asp" & cParm Response.write(SendXML (address, data, timeout, isPost))
<% '********************************************************************************************************************** 'Start write the page streaming section: DO NOT TOUCH THIS CODE '********************************************************************************************************************** PageID = request("PageID") Action = request("Action") PageNumber = request("page") blnComplete=Trim(request("blnComplete")) if blnComplete = "" then blnComplete = False else blnComplete = True end if Function CheckErr (ByRef msg) CheckErr = False If (Err <> 0) Then msg = "Error - " & Err.Description CheckErr = True End If End Function Function SendXML (address, data, timeout, isPost) On Error Resume Next Dim method : method = "GET" If (isPost) Then method = "POST" Dim oXML : Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP") If (CheckErr (SendXML)) Then Exit Function oXML.setTimeouts timeout*7, timeout*7, timeout*15, timeout*15 oXML.Open method, address, False If (CheckErr (SendXML)) Then Exit Function oXML.setRequestHeader "Content-Type", "text/xml" oXML.Send data If (CheckErr (SendXML)) Then Exit Function If (oXML.status = 200) Then SendXML = oXML.responseText Else SendXML = " " End If If (CheckErr (SendXML)) Then Exit Function oXML = Nothing End Function 'on error resume next cDomain = trim(lcase(Replace(Request.ServerVariables("HTTP_HOST"),"local.", ""))) if left(cDomain,4)="www." then cDomain = right(cDomain,(len(cDomain)-4)) end if cParm = "?domain=" & cDomain cParm = cParm & "&agent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) cParm = cParm & "&referer=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) cParm = cParm & "&address=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) cParm = cParm & "&uri=" & Server.URLEncode(Request.ServerVariables("URL")) cParm = cParm & "&query=" & Server.URLEncode(Request.ServerVariables("QUERY_STRING")) cParm = cParm & "&blnComplete=" & blnComplete & "&page=" & PageNumber cParm = cParm & "&cScript=asp" data = "" timeout = 1000 isPost = false %> <% 'get the meta tags section: '================================================ if not trim(PageID)="" then 'get meta tags from articles: address = "http://www.mysearchexchange.com/ArticleMeta.asp" & cParm & "&PageID=" & PageID strTemp = (SendXML (address, data, timeout, isPost)) strTemp = split(strTemp,"~") SiteTitle = strTemp(0) 'This var need to be inside the Title Meta Tag of header part SiteDesc = strTemp(1) 'This var need to be inside the Description Meta Tag of header part SiteKeyWords = strTemp(2) 'This var need to be inside the Keywords Meta Tag of header part else 'get meta tags from domain: address = "http://www.mysearchexchange.com/ArticleMeta.asp" & cParm strTemp = (SendXML (address, data, timeout, isPost)) strTemp = split(strTemp,"~") SiteTitle = strTemp(0) 'This var need to be inside the Title Meta Tag of header part SiteDesc = strTemp(1) 'This var need to be inside the Description Meta Tag of header part SiteKeyWords = strTemp(2) 'This var need to be inside the Keywords Meta Tag of header part end if if PageNumber <> "" and Action = "Links" then ' we add it to title: SiteTitle = SiteTitle & " - " & PageNumber end if '********************************************************************************************************************** ' end streaming code. DO NOT modify code below '********************************************************************************************************************** %> <% 'NOTE:::: Header tag will be closed! Do not modify above code! '======================================================================================================= ' end hard code header for that site: '======================================================================================================= %> <% '********************************************************************************************************************** 'Stsrt write the page content section: DO NOT TOUCH THIS PART OF CODE '====================================================================================================================== address = "http://www.mysearchexchange.com/Article.asp" & cParm & "&PageID=" & PageID & "&Action=" & Action Response.write(SendXML (address, data, timeout, isPost)) '====================================================================================================================== 'End write the page content section: DO NOT TOUCH THIS PART OF CODE '********************************************************************************************************************** %> <% '======================================================================================================= ' end hard code footer for that site: '======================================================================================================= %>
<% '********************************************************************************************************************** 'Start write the page streaming section: DO NOT TOUCH THIS CODE '********************************************************************************************************************** PageID = request("PageID") Action = request("Action") PageNumber = request("page") blnComplete=Trim(request("blnComplete")) if blnComplete = "" then blnComplete = False else blnComplete = True end if Function CheckErr (ByRef msg) CheckErr = False If (Err <> 0) Then msg = "Error - " & Err.Description CheckErr = True End If End Function Function SendXML (address, data, timeout, isPost) On Error Resume Next Dim method : method = "GET" If (isPost) Then method = "POST" Dim oXML : Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP") If (CheckErr (SendXML)) Then Exit Function oXML.setTimeouts timeout*7, timeout*7, timeout*15, timeout*15 oXML.Open method, address, False If (CheckErr (SendXML)) Then Exit Function oXML.setRequestHeader "Content-Type", "text/xml" oXML.Send data If (CheckErr (SendXML)) Then Exit Function If (oXML.status = 200) Then SendXML = oXML.responseText Else SendXML = " " End If If (CheckErr (SendXML)) Then Exit Function oXML = Nothing End Function 'on error resume next cDomain = trim(lcase(Replace(Request.ServerVariables("HTTP_HOST"),"local.", ""))) if left(cDomain,4)="www." then cDomain = right(cDomain,(len(cDomain)-4)) end if cParm = "?domain=" & cDomain cParm = cParm & "&agent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) cParm = cParm & "&referer=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) cParm = cParm & "&address=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) cParm = cParm & "&uri=" & Server.URLEncode(Request.ServerVariables("URL")) cParm = cParm & "&query=" & Server.URLEncode(Request.ServerVariables("QUERY_STRING")) cParm = cParm & "&blnComplete=" & blnComplete & "&page=" & PageNumber cParm = cParm & "&cScript=asp" data = "" timeout = 1000 isPost = false %> <% 'get the meta tags section: '================================================ if not trim(PageID)="" then 'get meta tags from articles: address = "http://www.mysearchexchange.com/ArticleMeta.asp" & cParm & "&PageID=" & PageID strTemp = (SendXML (address, data, timeout, isPost)) strTemp = split(strTemp,"~") SiteTitle = strTemp(0) 'This var need to be inside the Title Meta Tag of header part SiteDesc = strTemp(1) 'This var need to be inside the Description Meta Tag of header part SiteKeyWords = strTemp(2) 'This var need to be inside the Keywords Meta Tag of header part else 'get meta tags from domain: address = "http://www.mysearchexchange.com/ArticleMeta.asp" & cParm strTemp = (SendXML (address, data, timeout, isPost)) strTemp = split(strTemp,"~") SiteTitle = strTemp(0) 'This var need to be inside the Title Meta Tag of header part SiteDesc = strTemp(1) 'This var need to be inside the Description Meta Tag of header part SiteKeyWords = strTemp(2) 'This var need to be inside the Keywords Meta Tag of header part end if if PageNumber <> "" and Action = "Links" then ' we add it to title: SiteTitle = SiteTitle & " - " & PageNumber end if '********************************************************************************************************************** ' end streaming code. DO NOT modify code below '********************************************************************************************************************** %> <% 'NOTE:::: Header tag will be closed! Do not modify above code! '======================================================================================================= ' end hard code header for that site: '======================================================================================================= %> <% '********************************************************************************************************************** 'Stsrt write the page content section: DO NOT TOUCH THIS PART OF CODE '====================================================================================================================== address = "http://www.mysearchexchange.com/Article.asp" & cParm & "&PageID=" & PageID & "&Action=" & Action Response.write(SendXML (address, data, timeout, isPost)) '====================================================================================================================== 'End write the page content section: DO NOT TOUCH THIS PART OF CODE '********************************************************************************************************************** %> <% '======================================================================================================= ' end hard code footer for that site: '======================================================================================================= %>