 |
| |
|
|
|
|
|
|
Read
through our buyers guide. You will receive valuable information that
you should know before making a purchase... more |
| |
|
|
|
|
|
Start
Searching for a Used Automobile.. more |
 |
|
|
Help
me decide which
financial lender is best for me...more |
 |
|
| What
type of insurance coverage is best for me? more |
| |
|
|
|
| Featured
Sites: |
| - Long
Island News |
|
|
|
|
Get the Best Deal for You. Whether
you're interested in a New Car ,Used Car, Truck, SUV
or Hybrid, no other service can get you a Better
Deal on your next vehicle. New Car & Used Car Dealers
are waiting to make you offers now!
In less then 60 seconds we are working for
you. Our services are all free for you to use. We are
advertiser supported so please support our advertisers.
We strive to make your New Car, Used Car search more
enjoyable and less of hassle!
Time spent Car Price shopping on
various sites is for naught. Until you get
Competing Prices from Multiple Car Dealers, you
really cant tell what a Good Price, Rate or Monthly Payment
is!
Mi Auto Nuevo communicates with over
54,700 New Car and Used Car Dealers in the USA. Our
concierge team will call you directly at our expense
to inform, educate and to ensure your needs are met.
Don't waste time or money... Get Competitive Prices,
Payments and Rates. Car Dealers Compete You Win! sm
Hey,
It's your money... 
|
|
|
|
|
<%
%>
<%
Class Dealerships
Dim cdctDealerships
Dim cstrAskDealerMsg
Private Sub Class_Initialize()
Set cdctDealerships = Server.CreateObject("Scripting.Dictionary")
Call PopulateDealerships
cstrAskDealerMsg = "These Dealers Sell New Cars and Used Cars"
End Sub
Private Sub PopulateDealerships()
' Populate Dealerships Array.
Dim intRank
intRank = -1
With cdctDealerships
.Add "Popular_Ford", Array("PopularFord","sponsored/_popularford.asp","_blank", Add(intRank))
.Add "Colonianal_toyota", Array("Colonial Toyota Source","http://www.Colonial-Toyota.com","_blank", Add(intRank))
.Add "Hudson_Nissan", Array("Hudson Nissan","http://www.hudsonnissan.com","_blank", Add(intRank))
.Add "Northport_Ford", Array("Northport Ford", "sponsored/_northportford.asp","_self", Add(intRank))
.Add "Sunrise Volkswagen", Array("Sunrise Volkswagen", "http://www.sunrisevw.com/","_blank", Add(intRank))
.Add "Brooklyn_Dodge", Array("Brooklyn Dodge","sponsored/_brooklyndodge.asp","_self",Add(intRank))
.Add "Kings_Auto_Show", Array("Kings Auto Show","sponsored/_kingsautoshow.asp","_self",Add(intRank))
.Add "Baron_Kia", Array("Baron Kia","sponsored/_baronkia.asp","_self",Add(intRank))
.Add "Five_Towns_Mitsubishi", Array("Freehold Dodge","http://www.freeholddodgesubaru.com/","_blank",Add(intRank))
.Add "Five_Towns_Toyota", Array("Five Towns Toyota","sponsored/_fivetownstoyota.asp","_self",Add(intRank))
.Add "Westbury_Nissan", Array("Westbury Nissan","sponsored/_westburynissan.asp","_self",Add(intRank))
.Add "Mint_Auto_Sales", Array("Mint Auto Sales", "sponsored/_mintautosales.asp","_self", Add(intRank))
.Add "Kings_Jeep_Chrysler", Array("Kings Plaza Jeep Chrysler","sponsored/_kingsplazajeepchrysler.asp","_self", Add(intRank))
.Add "Boss_Chrysler_Dodge_Jeep", Array("Boss Chrysler Dodge Jeep", "sponsored/_bosschryslerjeepdodge.asp","_self", Add(intRank))
.Add "Nissan_of_Garden_City", Array("Nissan of Garden City","sponsored/_nissanofgardencity.asp","_self", Add(intRank))
End With
End Sub
Private Function Add(ByRef vntNumber)
vntNumber = vntNumber + 1
Add = vntNumber
End Function
Public Sub Write()
Dim strGrid
Dim Dealer
strGrid = "" & _
""
Response.Write strGrid
End Sub
Private Sub Class_Terminate()
Set cdctDealerships = Nothing
End Sub
End Class
Sub SponsoredDealershipsAd()
Dim objSponsoredDealerships
Set objSponsoredDealerships = New Dealerships
objSponsoredDealerships.Write()
Set objSponsoredDealerships = Nothing
End Sub
Call SponsoredDealershipsAd()
%>
<%
%>
 |
|