Xpounded USDA Property Auction

You may find this script useful (or at least infomative). This script makes it easy to keep abreast of the properties the USDA is has listed for auction. Just select the state your interested in and you get a list of avilable properties with the current Government bid.
The script requires the USA map (right click and 'Save Picture') - feel free to reuse the map changing the functionality of the onclick event for your own use purposes

This script requires two other scripts: GovPropStates.vbs for the State listings and Scraper.vbs for the data retrieval. Both are here to downlad - the following file structure must be created - or the code reworked to reflect differing paths.

Required File Structure:
someFolder\USDAProperties.html (the html page below)
someFolder\images\usa50.gif (the Map image)
someFolder\vbs\GovPropStates.vbs (the USDA state links)
someFolder\vbs\Scraper.vbs (the reusable Scraper class for data retrieval)

Requirements:
IE6+ and XP+ (you may have to click the information bar and select 'Allow Blocked Content' for this page to work properly)
GovPropStates.vbs (Required USDA State Links)
Scraper.vbs (Required Scraper Class)
Map of USA (Required Image)
Disclaimers:
The USDA has total control over its site - any recoding on their part will break this script - iow the links and regExps will need to be reworked to function properly

Save this file as USDAProperties.html Mention Us

Select All

<HTML>
<HEAD>
<TITLE>
	Xpounded USDA Property Forclosures For Auction
</TITLE>
<STYLE>

</STYLE>
<SCRIPT LANGUAGE="VBScript" SRC="./vbs/GovPropStates.vbs"></script>
<SCRIPT LANGUAGE="VBScript" SRC="./vbs/Scraper.vbs"></script>
<SCRIPT LANGUAGE="VBScript">
Dim Counties()
Dim CountyName()
Dim glbRecCount, glbAllCounties
Dim Base, Site, page
Base="http://www.resales.usda.gov/sfhdirect/"
Site="http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=OK&StateName=Oklahoma"

Sub window_onload

End Sub

Sub loadPage1(sSite)
	'Create the Scraper Object, Set required properties, and Scrape Page
	Set page=new CScraper
	page.URL = sSite
	page.Proc = "newProc1"
	page.Scrape
End Sub
Sub newProc1
	'Utilize Data (When Ready) From Page Scrape
	if page.DataReady Then
		Actuate1 page.Data
	End If
End Sub
Sub Actuate1(strSiteHTML)
	patern="<a class=" & chr(34) & "SrchPropLinks" & chr(34) & ".*href=([^>]*?)>([^>]*)</a>"
	sep=vbnewline
	step1=Build(strSiteHTML,patern,sep,0)
	step2=Build(step1,patern,sep,7)
	glbRecCount = UBound(Counties)
	loadPage3 Counties(0)
End sub

Sub loadPage2(sSite)
	'Create the Scraper Object, Set required properties, and Scrape Page
	Set page=new CScraper
	page.URL = sSite
	page.Proc = "newProc2"
	page.Scrape
End Sub
Sub newProc2
	'Utilize Data (When Ready) From Page Scrape
	if page.DataReady Then
		Actuate2 page.Data
	End If
End Sub
Sub Actuate2(strSiteHTML)
	patern="<a class=" & chr(34) & "ListPropLinks" & chr(34) & ".*href=([^>]*?)>([^>]*)</a>"
	sep=vbnewline
	step1=Build(strSiteHTML,patern,sep,0)
	step2=Build(step1,patern,sep,6)
	d1.innerText=Replace(step2,"&","&")
End Sub

Sub loadPage3(sSite)
	'Create the Scraper Object, Set required properties, and Scrape Page
	Set page=new CScraper
	page.URL = sSite
	page.Proc = "newProc3"
	page.Scrape
End Sub
Sub newProc3
	'Utilize Data (When Ready) From Page Scrape
	if page.DataReady Then
		Actuate3 page.Data
	End If
End Sub
Sub Actuate3(strSiteHTML)
	Dim tblRestr
	patern="<tr>\s*<td[^<]*<a\s+class=" & chr(34) & "SrchPropLinks" &chr(34) & "\s+href=([^<]*?)>([^>]*)</a>[^>]*</td>\s*<td[^>]*>([^>]*)</td>\s*<td[^>]*>([^>]*)</td>\s*<td[^>]*>([^>]*)</td>\s*<td[^>]*>([^>]*)</td>\s*"
	sep="<br>"
	step2=Build(strSiteHTML,patern,sep,8)
	glbAllCounties = glbAllCounties & Replace(step2,"&","&")
	glbRecCount = glbRecCount-1
	If glbRecCount > 0 Then
		dcnt.innerText="Foreclosure Property Count: " & Cstr(Int(Ubound(Counties)-glbRecCount))
		loadPage3 Counties(glbRecCount)
	Else
		tblRestr = "<b>Automation made by Robert Spoons June-2005</b><br>" & _
			"<b><i>USDA Properties for Sale</i> (<a href=""http://www.resales.usda.gov/"">http://www.resales.usda.gov/</a>)"
		If glbState = "" Then
			tblRestr = tblRestr  & " In <font color=""red"" size=""+1"">" & StatesName(CInt(sel1.value)) & "</font></b><br><br>"
		Else
			tblRestr = tblRestr  & " In <font color=""red"" size=""+1"">" & glbState & "</font></b><br><br>"
		End If
		tblRestr = tblRestr  & "<table>" & _
			"<tr>" & _
			"<td>County</td>" & _
			"<td>Match Number</td>" & _
			"<td>Location</td>" & _
			"<td>City</td>" & _
			"<td>Beds</td>" & _
			"<td>BathRms</td>" & _
			"<td>Govt Bid</td>" & _
			"</tr>" & _
			glbAllCounties & _
			"</table>"
		tblButton = "<button onclick=""showMap()"">Search Again</button>"
		d1.innerHTML = tblRestr & tblButton 
	End If	
End Sub

Dim bool2
bool2 =True
Function Build(strContents, strPtrn, strSep, op)
	Dim Coiunter
	Counter=0
   	Dim regEx, Match, Matches, RetStr

'////////////////////////////////// RegExp Obj
   	Set regEx = New RegExp
   	regEx.Pattern = strPtrn
   	regEx.IgnoreCase = True
   	regEx.Global = True
   	Set Matches = regEx.Execute(strContents)

'///////////////////////////////// The Build
	'RetStr = "Total Number of Matches  = " & Matches.Count & strSep
	On Error Resume Next
	Select case op
		case 0
   			For Each Match in Matches   			' Iterate Matches collection.
      			RetStr = RetStr & Match.Value & strSep
				Counter=Counter+1
   			Next
		case 1
  			For Each Match in Matches   			' Iterate Matches collection.
				RetStr = RetStr & Match.Value & " LINKS HREF = " & Match.SubMatches(0) & strSep
				Counter=Counter+1
   			Next
		case 3
  			For Each Match in Matches   			' Iterate Matches collection.
				RetStr = RetStr & "State(1," & Counter & " )= " & Match.SubMatches(0) & strSep
				Counter=Counter+1
   			Next
		case 4
  			For Each Match in Matches   			' Iterate Matches collection.
				RetStr = RetStr & "<a href=""" & Base & mid(Match.SubMatches(0),2,len(Match.SubMatches(0))-2) & """></a>" & strSep
				Counter=Counter+1
   			Next
		case 5
  			For Each Match in Matches   			' Iterate Matches collection.
					RetStr = RetStr & "<a href=""" & Base & mid(Match.SubMatches(0),2,len(Match.SubMatches(0))-2) & """>" & Match.SubMatches(1) & "</a>" & strSep
					Counter=Counter+1
   			Next
		case 6
  			For Each Match in Matches   			' Iterate Matches collection.
					RetStr = RetStr & "'" & Match.SubMatches(1) & strSep & "States(" & Counter & ")=""" & Base & mid(Match.SubMatches(0),2,len(Match.SubMatches(0))-2) & """" & strSep
					Counter=Counter+1
   			Next
		case 7
			Redim Counties(0)
			Redim CountyName(0)
  			For Each Match in Matches   			' Iterate Matches collection.
					Redim Preserve Counties(Counter+1)
					Redim Preserve CountyName(Counter+1)
					CountyName(Counter) = Match.SubMatches(1)
					Counties(Counter)=Base & mid(Match.SubMatches(0),2,len(Match.SubMatches(0))-2)
					RetStr = RetStr & "'" & Match.SubMatches(1) & strSep & "Counties(" & Counter & ")=""" & Base & mid(Match.SubMatches(0),2,len(Match.SubMatches(0))-2) & """" & strSep
					Counter=Counter+1
   			Next
		case 8
  			For Each Match in Matches   			' Iterate Matches collection.
					If bool2 Then
						bool2=False
						sTblr="<tr style=""background:lightgrey"">"
					Else
						bool2=True
						sTblr="<tr style=""background:white"">"
					End If
					RetStr = RetStr & sTblr & _
						"<td>" & CountyName(glbRecCount) & "</td>" & _
						"<td>" & Counter & "</td>" & _
						"<td><a href=" & chr(34) & "JavaScript:var dummy=window.open('" & Base & mid(Match.SubMatches(0),2,len(Match.SubMatches(0))-2) & ";return(0)')" & chr(34) & ">" & Match.SubMatches(1) & "</a></td>" & _
						"<td>" & Match.SubMatches(2) & "</td>" & _
						"<td>" & Match.SubMatches(3) & "</td>" & _
						"<td>" & Match.SubMatches(4) & "</td>" & _
						"<td>" & Match.SubMatches(5) & "</td>" & _
						"</tr>"
					Counter=Counter+1
   			Next
		case 9
  			For Each Match in Matches   			' Iterate Matches collection.
					RetStr = RetStr & "'Match Number " & Counter & strSep & _
					Match.SubMatches(0) & strSep & _
					Match.SubMatches(1) & strSep
					Counter=Counter+1
   			Next
	End Select
	On Error Goto 0
   	Build = RetStr
End Function

Dim glbState
Sub Go2(webSite,sState)
	glbAllCounties = ""
	glbRecCount = 0
	glbState=sState
	amap.style.display="none"
	gotosite=webSite
	If Left(gotosite,4) = "http" Then
			loadPage1 gotosite
	End If
End Sub
Sub showMap
	d1.innerHTML=""
	dcnt.innerText=""
	amap.style.display="block"
End sub
</script>
</HEAD>
<BODY>
<div id="dcnt" style="font-weight:bold;"></div>
<span id="d0" style="display:none"></span>
<div id="amap">
<center>
<font size="+1"><b>USDA Property Forclosures For Auction<br>
Click your State of Interest to Examine Avilable Properites</b></font>
<IMG SRC="images\usa50.gif" alt="Click on a state" width="559" height="327" usemap="#usa50" style="border-style:none">
</center>
</div>
<div id="d1"></div>
<div>
<map id="usa50" name="usa50">
<area shape="poly" alt="Washington" coords="66,29,70,24,68,23,68,20,74,19,68,13,72,15,63,15,59,10,54,10,54,23,57,26,53,30,53,38,60,41,63,48,112,52,121,24,77,13,76,23,70,29" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=WA&StateName=Washington';Go2(gotosite2,'Washington')" title="Washington" />
<area shape="poly" alt="Oregon" coords="52,38,44,60,37,68,37,84,61,90,99,95,102,78,106,76,104,72,104,72,114,57,112,52,63,48,60,41" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=OR&StateName=Oregon';Go2(gotosite2,'Oregon')" title="Oregon" />
<area shape="poly" alt="California" coords="35,84,27,101,28,109,31,127,36,133,38,145,45,165,49,168,46,174,63,187,75,195,76,203,101,206,101,208,104,202,104,197,112,185,109,183,108,176,67,124,73,92" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=CA&StateName=California';Go2(gotosite2,'California')" title="California" />
<area shape="poly" alt="Arizona" coords="104,202,101,207,102,210,110,212,139,227,161,227,168,161,118,157,118,164,114,166,111,165,108,165,108,176,109,183,112,185,104,197" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=AZ&StateName=Arizona';Go2(gotosite2,'Arizona')" title="Arizona" />
<area shape="poly" alt="Nevada" coords="108,176,108,165,111,165,114,166,118,164,118,157,127,99,73,92,67,124" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=NV&StateName=Nevada';Go2(gotosite2,'Nevada')" title="Nevada" />
<area shape="poly" alt="Utah" coords="118,157,168,161,171,117,153,117,154,101,129,99,127,100" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=UT&StateName=Utah';Go2(gotosite2,'Utah')" title="Utah" />
<area shape="poly" alt="Idaho" coords="121,24,112,53,115,57,104,72,106,76,102,78,99,96,126,99,155,101,157,78,140,77,135,61,133,61,136,53,129,35,131,25" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=ID&StateName=Idaho';Go2(gotosite2,'Idaho')" title="Idaho" />
<area shape="poly" alt="Montana" coords="131,25,129,35,136,53,133,61,135,61,140,77,157,78,158,72,220,72,220,28" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=MT&StateName=Montana';Go2(gotosite2,'Montana')" title="Montana" />
<area shape="poly" alt="Wyoming" coords="220,72,158,72,157,78,154,117,220,117" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=WY&StateName=Wyoming';Go2(gotosite2,'Wyoming')" title="Wyoming" />
<area shape="poly" alt="Colorado" coords="171,117,239,117,239,166,167,166" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=CO&StateName=Colorado';Go2(gotosite2,'Colorado')" title="Colorado" />
<area shape="poly" alt="New Mexico" coords="167,166,162,226,168,226,172,221,227,220,227,164" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=NM&StateName=New%20Mexico';Go2(gotosite2,'New%20Mexico')" title="New Mexico" />
<area shape="poly" alt="Texas" coords="228,171,228,172,228,221,189,222,198,234,201,239,205,240,212,249,220,255,224,250,228,251,229,247,239,245,246,248,252,262,256,265,262,270,267,279,272,283,279,286,287,286,289,288,292,287,287,273,287,270,293,260,299,258,307,257,313,250,313,247,316,247,323,244,323,237,328,230,319,218,319,209,318,208,318,203,310,198,307,198,297,201,293,199,283,199,280,197,267,196,265,194,260,196,258,193,258,171" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=TX&StateName=Texas';Go2(gotosite2,'Texas')" title="Texas" />
<area shape="poly" alt="Oklahoma" coords="313,199,307,197,297,201,297,202,294,199,283,199,280,197,267,196,264,194,260,196,258,194,258,171,227,171,227,166,311,166,312,182" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=OK&StateName=Oklahoma';Go2(gotosite2,'Oklahoma')" title="Oklahoma" />
<area shape="poly" alt="Kansas" coords="239,165,311,165,311,140,311,140,311,141,307,141,304,136,308,133,300,132,239,132" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=KS&StateName=Kansas';Go2(gotosite2,'Kansas')" title="Kansas" />
<area shape="poly" alt="Nebraska" coords="239,131,301,131,289,103,282,99,273,97,220,97,220,116,239,116" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=NE&StateName=Nebraska';Go2(gotosite2,'Nebraska')" title="Nebraska" />
<area shape="poly" alt="South Dakota" coords="220,97,275,97,286,101,288,103,288,96,285,91,286,90,286,69,283,67,285,65,220,65" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=SD&StateName=South%20Dakota';Go2(gotosite2,'South%20Dakota')" title="South Dakota" />
<area shape="poly" alt="North Dakota" coords="220,28,220,65,285,65,286,62,285,49,280,28" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=ND&StateName=North%20Dakota';Go2(gotosite2,'North%20Dakota')" title="North Dakota" />
<area shape="poly" alt="Minnesota" coords="286,91,285,68,284,67,286,63,285,47,280,28,296,26,300,21,304,22,305,29,308,33,315,30,331,35,346,35,340,42,334,43,329,47,329,51,326,53,326,57,320,62,322,74,320,78,325,79,335,86,335,91" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=MN&StateName=Minnesota';Go2(gotosite2,'Minnesota')" title="Minnesota" />
<area shape="poly" alt="Wisconsin" coords="326,53,328,52,336,51,336,54,340,54,344,57,355,60,360,60,360,62,363,62,364,65,364,69,362,74,369,66,369,72,367,78,368,92,370,98,370,99,341,101,336,99,337,94,335,91,335,86,325,79,320,78,322,74,320,62,326,57" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=WI&StateName=Wisconsin';Go2(gotosite2,'Wisconsin')" title="Wisconsin" />
<area shape="poly" alt="Illinois" coords="370,99,370,99,341,101,345,104,345,108,341,111,337,111,337,114,341,118,339,124,335,125,337,130,338,134,340,136,342,139,346,142,348,141,350,145,352,145,352,151,361,159,364,157,368,158,368,155,372,155,371,150,377,141,376,129,373,106,369,104" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=IL&StateName=Illinois';Go2(gotosite2,'Illinois')" title="Illinois" />
<area shape="poly" alt="Iowa" coords="335,91,336,94,337,94,336,99,343,102,345,104,345,108,340,111,336,111,336,114,341,118,339,124,334,125,337,130,330,126,299,126,288,102,288,95,285,91" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=IA&StateName=Iowa';Go2(gotosite2,'Iowa')" title="Iowa" />
<area shape="poly" alt="Missouri" coords="299,126,329,126,337,130,338,134,341,138,345,141,348,141,350,145,352,152,361,159,361,164,358,169,355,169,356,167,311,169,311,140,306,141,304,136,307,133,302,132" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=MO&StateName=Missouri';Go2(gotosite2,'Missouri')" title="Missouri" />
<area shape="poly" alt="Arizona" coords="311,169,355,167,355,169,357,170,358,169,350,197,351,209,319,209,318,208,318,203,313,199" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=AZ&StateName=Arizona';Go2(gotosite2,'Arizona')" title="Arizona" />
<area shape="poly" alt="Louisiana" coords="319,209,351,209,352,215,347,228,367,228,366,233,371,238,365,238,363,237,360,239,363,241,367,241,368,243,372,240,375,241,376,243,373,244,372,247,369,247,376,251,380,251,381,255,378,255,377,254,372,254,366,248,365,250,369,254,368,257,364,257,362,251,354,255,352,254,354,250,353,247,354,245,350,244,348,246,351,249,350,251,344,247,340,247,334,244,324,244,323,237,328,230,320,219" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=LA&StateName=Louisiana';Go2(gotosite2,'Louisiana')" title="Louisiana" />
<area shape="poly" alt="Mississippi" coords="347,228,367,228,366,233,372,238,378,234,382,234,378,216,378,181,354,182,350,197,352,214" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=MS&StateName=Mississippi';Go2(gotosite2,'Mississippi')" title="Mississippi" />
<area shape="poly" alt="Alabama" coords="382,234,385,234,387,229,390,233,393,234,395,232,392,230,390,226,417,223,415,215,413,213,415,206,412,202,404,179,378,181,378,217" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=AL&StateName=Alabama';Go2(gotosite2,'Alabama')" title="Alabama" />
<area shape="poly" alt="Georgia" coords="426,175,404,179,413,203,415,206,413,213,415,216,417,223,420,223,448,222,450,218,455,219,456,218,454,214,458,202,449,195,447,190,441,188,433,180,426,179" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=GA&StateName=Georgia';Go2(gotosite2,'Georgia')" title="Georgia" />
<area shape="poly" alt="Florida" coords="455,220,450,218,448,222,415,223,390,226,392,230,395,232,400,231,404,230,406,230,406,230,411,232,414,236,423,235,425,231,428,231,429,229,430,231,433,231,435,236,441,236,443,237,443,251,446,254,448,254,448,257,451,263,452,264,457,265,456,270,458,272,467,276,469,281,472,281,478,279,480,272,482,269,479,261,476,253,470,244,470,237,466,237,457,225" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=FL&StateName=Florida';Go2(gotosite2,'Florida')" title="Florida" />
<area shape="poly" alt="South Carolina" coords="458,202,473,188,479,175,466,168,451,171,449,168,446,170,444,168,431,171,426,175,427,179,433,180,442,188,447,190,451,196" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=SC&StateName=South%20Carolina';Go2(gotosite2,'South%20Carolina')" title="South Carolina" />
<area shape="poly" alt="Tennessee" coords="414,176,418,173,418,169,423,169,427,165,429,165,431,159,434,157,436,159,440,156,440,152,375,162,374,164,363,164,361,159,361,165,358,171,355,182,404,179" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=TN&StateName=Tennessee';Go2(gotosite2,'Tennessee')" title="Tennessee" />
<area shape="poly" alt="North Carolina" coords="440,151,440,156,435,159,434,157,431,159,429,165,427,165,423,169,418,169,418,173,414,176,426,175,431,170,444,168,446,169,450,167,451,171,466,167,480,175,480,176,485,175,485,169,488,166,493,164,498,164,501,160,499,158,497,158,497,156,500,154,503,153,502,147,499,146,496,141" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=NC&StateName=North%20Carolina';Go2(gotosite2,'North%20Carolina')" title="North Carolina" />
<area shape="poly" alt="Kentucky" coords="371,151,372,155,368,155,368,158,364,157,361,159,364,164,374,164,375,162,425,154,428,149,427,148,432,147,433,143,431,143,422,135,422,131,414,134,409,135,402,132,399,134,399,137,397,140,397,142,395,143,393,142,390,141,387,146,387,146,377,146" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=KY&StateName=Kentucky';Go2(gotosite2,'Kentucky')" title="Kentucky" />
<area shape="poly" alt="Michigan" coords="340,54,343,56,355,60,361,60,361,61,364,62,364,69,363,71,367,67,369,62,375,60,377,60,378,57,385,58,384,60,384,63,383,68,382,64,380,64,376,68,376,74,374,81,376,89,380,97,379,102,377,105,398,103,401,101,411,100,411,94,414,91,417,90,416,84,411,73,408,73,405,74,402,79,399,77,401,75,404,72,403,64,403,62,398,59,387,57,392,57,396,55,396,54,390,48,386,48,386,46,384,46,381,46,378,48,368,48,368,50,365,49,362,47,357,47,355,48,355,47,359,45,360,45,360,43,357,42,352,44,351,46,350,49,344,51" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=MI&StateName=Michigan';Go2(gotosite2,'Michigan')" title="Michigan" />
<area shape="poly" alt="Indiana" coords="373,106,380,105,398,103,403,131,398,134,399,138,396,140,396,142,394,143,390,141,387,146,377,146,372,150,377,142" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=IN&StateName=Indiana';Go2(gotosite2,'Indiana')" title="Indiana" />
<area shape="poly" alt="Ohio" coords="398,103,403,101,423,99,437,89,437,95,438,95,439,107,438,109,438,111,438,115,438,117,435,119,433,118,434,123,435,124,433,125,428,125,428,129,425,132,421,131,410,135,403,132" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=OH&StateName=Ohio';Go2(gotosite2,'Ohio')" title="Ohio" />
<area shape="poly" alt="West Virginia" coords="439,106,438,111,438,117,435,119,434,119,433,118,434,122,435,124,433,125,428,125,428,129,425,132,422,132,422,135,430,142,431,143,434,143,436,145,440,146,441,142,445,143,446,143,450,138,453,138,455,135,454,133,457,131,458,128,457,125,463,125,463,119,466,117,466,112,468,112,470,114,472,112,470,110,466,110,460,112,456,115,454,115,453,112,441,114" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=WV&StateName=West%20Virginia';Go2(gotosite2,'West%20Virginia')" title="West Virginia" />
<area shape="poly" alt="Virginia" coords="425,154,439,152,440,152,440,151,496,141,497,140,497,137,503,132,503,119,501,125,497,125,498,130,496,135,493,134,492,131,490,125,482,125,482,118,477,115,477,113,472,112,470,114,468,112,466,112,466,117,463,119,463,125,457,125,458,128,457,131,454,133,455,135,453,138,450,138,446,143,441,142,440,146,436,145,434,143,433,143,432,147,427,148,428,149" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=VA&StateName=Virginia';Go2(gotosite2,'Virginia')" title="Virginia" />
<area shape="poly" alt="Pennsylvania" coords="437,89,437,95,438,95,439,107,441,114,453,112,468,108,485,104,485,102,490,102,490,99,492,99,493,99,493,97,488,93,489,84,485,82,482,79,443,88,442,87,439,87" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=PA&StateName=Pennsylvania';Go2(gotosite2,'Pennsylvania')" title="Pennsylvania" />
<area shape="poly" alt="Maryland" coords="453,112,454,115,456,115,460,112,466,110,470,110,472,112,477,113,477,115,482,118,482,125,487,125,487,122,486,119,485,117,485,115,482,112,482,109,485,107,486,111,488,115,491,117,491,122,497,122,497,125,501,125,502,119,496,119,488,105,485,104" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=MD&StateName=Maryland';Go2(gotosite2,'Maryland')" title="Maryland" />
<area shape="poly" alt="Delaware" coords="485,104,488,105,496,119,502,119,503,118,503,116,495,111,495,109,489,105,489,102,485,102" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=DE&StateName=Delaware';Go2(gotosite2,'Delaware')" title="Delaware" />
<area shape="poly" alt="New Jersey" coords="489,102,489,105,493,108,497,108,497,110,500,110,500,94,498,94,498,92,500,89,500,88,495,88,495,87,489,86,488,93,493,97,493,99,490,99,490,102" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=NJ&StateName=New%20Jersey';Go2(gotosite2,'New%20Jersey')" title="New Jersey" />
<area shape="poly" alt="New York" coords="487,41,476,43,472,45,468,50,467,54,461,58,462,60,465,60,465,62,466,65,465,67,460,71,448,71,441,74,441,77,442,78,446,78,446,80,439,87,442,87,443,88,482,79,485,82,489,84,489,86,495,87,495,88,500,88,500,89,498,92,498,93,498,94,500,92,504,92,514,85,514,83,509,83,503,87,502,85,502,83,499,81,498,75,497,65,495,58,493,58,490,53,490,50,488,49,488,47,487,47" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=NY&StateName=New%20York';Go2(gotosite2,'New%20York')" title="New York" />
<area shape="poly" alt="Connecticut" coords="498,74,511,71,511,74,512,74,512,77,513,77,513,79,511,79,511,80,509,81,504,82,504,83,502,85,502,83,499,81" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=CT&StateName=Connecticut';Go2(gotosite2,'Connecticut')" title="Connecticut" />
<area shape="poly" alt="Rhode Island" coords="511,71,513,71,513,70,516,70,516,74,517,75,517,78,513,78,513,77,512,77,512,74,511,74" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=RI&StateName=Rhode%20Island';Go2(gotosite2,'Rhode%20Island')" title="Rhode Island" />
<area shape="poly" alt="Massachusetts" coords="497,65,513,61,516,59,517,60,517,61,519,61,519,64,521,65,521,66,523,68,526,69,526,64,527,64,530,66,530,69,524,72,522,72,522,75,518,76,517,75,516,74,516,70,513,70,513,71,510,71,498,74" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=MA&StateName=Massachusetts';Go2(gotosite2,'Massachusetts')" title="Massachusetts" />
<area shape="poly" alt="Vermont" coords="487,41,500,36,501,34,502,34,502,39,501,39,501,41,502,41,502,43,499,46,499,49,500,49,500,57,500,58,501,58,501,61,502,61,502,64,497,65,495,58,493,58,490,53,490,50,488,49,488,47,487,47" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=VT&StateName=Vermont';Go2(gotosite2,'Vermont')" title="Vermont" />
<area shape="poly" alt="New Hampshire" coords="502,34,506,34,516,55,517,55,518,57,516,59,513,61,502,64,502,61,501,61,501,58,500,58,500,49,499,49,499,46,502,43,502,41,501,41,501,39,502,39" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=NH&StateName=New%20Hampshire';Go2(gotosite2,'New%20Hampshire')" title="New Hampshire" />
<area shape="poly" alt="Maine" coords="505,33,508,31,508,28,510,27,510,20,512,16,512,12,518,1,521,1,522,4,526,3,526,3,530,3,534,8,536,18,539,18,539,22,542,22,543,25,543,27,538,29,536,31,533,31,533,34,528,35,528,39,526,40,525,40,520,46,520,48,519,48,519,57,518,57,517,55,516,55,506,34,504,34" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=ME&StateName=Maine';Go2(gotosite2,'Maine')" title="Maine" />
<area shape="poly" alt="Alaska" coords="66,201,62,198,57,199,51,199,44,199,36,196,27,196,15,204,15,208,10,208,8,212,10,214,13,216,21,217,21,220,16,223,15,220,10,219,7,220,2,226,4,232,14,233,19,230,20,234,18,236,15,236,11,237,3,247,4,249,6,250,6,253,7,255,9,256,15,256,17,258,16,262,17,263,23,263,23,265,25,265,28,263,28,266,24,269,21,273,14,274,9,280,4,282,3,285,4,286,7,286,15,282,18,278,22,277,26,277,39,267,40,261,42,260,43,256,50,250,50,254,51,256,49,259,50,261,54,260,61,254,61,251,64,251,70,255,74,254,79,253,83,256,95,257,102,264,106,265,114,271,118,271,123,266,124,264,120,263,116,264,113,263,113,258,106,259,98,252,98,249,94,248,93,251,93,252,90,251,87,248,84,248,82,246" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=AK&StateName=Alaska';Go2(gotosite2,'Alaska')" title="Alaska" />
<area shape="poly" alt="Hawaii" coords="227,320,232,325,237,325,239,323,239,321,238,320,238,319,243,319,245,319,247,316,255,316,257,314,257,310,253,309,254,306,251,305,250,303,248,301,245,301,241,300,238,297,234,296,231,294,228,295,227,298,228,300,228,302,223,307,224,310,229,313" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=HI&StateName=Hawaii';Go2(gotosite2,'Hawaii')" title="Hawaii" />
<area shape="poly" alt="Hawaii" coords="193,279,196,280,199,278,199,281,198,283,201,287,205,287,206,289,210,288,210,286,208,284,214,285,214,289,216,291,219,291,221,288,228,288,230,284,223,281,216,281,213,278,210,277,210,276,202,274,195,275" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=HI&StateName=Hawaii';Go2(gotosite2,'Hawaii')" title="Hawaii" />
<area shape="poly" alt="Hawaii" coords="180,264,174,264,170,267,170,270,171,271,173,272,174,274,175,275,177,275,180,274,183,276,186,276,187,274,186,269,183,269" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=HI&StateName=Hawaii';Go2(gotosite2,'Hawaii')" title="Hawaii" />
<area shape="poly" alt="Hawaii" coords="157,255,150,255,147,258,147,261,150,264,156,264,159,262,160,259,160,258" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=HI&StateName=Hawaii';Go2(gotosite2,'Hawaii')" title="Hawaii" />
<area shape="rect" alt="Maine" coords="532,51,559,64" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=ME&StateName=Maine';Go2(gotosite2,'Maine')" title="Maine" />
<area shape="rect" alt="Rhode Island" coords="532,67,556,81" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=RI&StateName=Rhode%20Island';Go2(gotosite2,'Rhode%20Island')" title="Rhode Island" />
<area shape="rect" alt="Connecticut" coords="530,85,558,100" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=CT&StateName=Connecticut';Go2(gotosite2,'Connecticut')" title="Connecticut" />
<area shape="rect" alt="New Jersey" coords="529,100,556,116" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=NJ&StateName=New%20Jersey';Go2(gotosite2,'New%20Jersey')" title="New Jersey" />
<area shape="rect" alt="Delaware" coords="529,117,560,134" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=DE&StateName=Delaware';Go2(gotosite2,'Delaware')" title="Delaware" />
<area shape="rect" alt="Maryland" coords="528,132,565,153" href="JavaScript:gotosite2='http://www.resales.usda.gov/sfhdirect/propertycotext.cfm?StateAbbreviation=MD&StateName=Maryland';Go2(gotosite2,'Maryland')" title="Maryland" />
<area shape="default" nohref="nohref" alt="" />
</map>
</div>
</BODY>
</HTML>

No HTML to View

- Copyright 2004 Xpounded -
All JS code developed by Xpounded is developed in RHSCoder.
All VBS code developed by Xpounded is developed in VBS QuickDev IDE, or RHSCoder.
Privacy Statement
Contact rdspoons at sbcglobal.net