<% host = "http://" & Request.ServerVariables("HTTP_HOST") dir = Request.ServerVariables("SCRIPT_NAME") If request.querystring("wheels")="" Then pagev="index" else pagev=request.querystring("wheels") End If %> <% Function UpperCase(tmp_str) dim a_result,i a_result = split(tmp_str," ") for i = lbound(a_result) to ubound(a_result) UpperCase = UpperCase & " " & ucase(left(a_result(i),1)) & mid(a_result(i),2) next UpperCase = mid(UpperCase,2) End Function page=request.querystring("wheels") dim page dim metadesc metadesc = "" If page="" Then page=index ElseIf page=index Then page=index End If if page=index Then response.write "Wheel Trims that Cars Love to Have" metadesc= "" else page=Replace(page, "1", "") page=Replace(page, "-", " ") page=UpperCase(page) response.write (page) End If %> <% ' %>
QuickHubs - hub cap and wheel trim suppliers the quick and easy way to replace your hub cap or wheel trim
<% filepath="pages/" & pagev & ".html" FileName = Server.MapPath(filepath) Response.Write CreateObject("Scripting.FileSystemObject").OpenTextFile _ (FileName, 1, False, False).readall %>
<% dim Pages, Recomm, counter, min Pages = "Things to Consider When Choosing a Car Mat,Saving Money by Purchasing Wheel and Tyre Package,Replacing a Garage Door Opener,Proper Sports Car Maintenance,Prepping Your Ride for the Long Haul,Practical Advice on Organising Your Garage,Modern Entertainment Solutions for Your Car,How to be a Private Taxi Driver,How Racing for Pink Slips Work,How Neon Light Tubes Work,First Aid Essentials to Keep In Your Car,Choose Your Online Car Reviews Carefully,Buying a Bluetooth Car Kit for Hands-Free Calling,Basic Maintenance Tips to Keep Your Car Running Well" 'initialize values on new arrays Recomm = Split(Pages,",") For counter = LBound(Recomm) to UBound(Recomm) 'convert page title to uppercases so we can compare to the current page' Recomm(counter) = Lcase(Recomm(counter)) Recomm(counter) = Replace(Recomm(counter),"-"," ") Recomm(counter)= UpperCase(Recomm(counter)) 'check if array content is equal to current page, if true, set min to array index of current page' if page = Recomm(counter) Then min = counter End If Next '### set combined array one dim totalSize1, a, combinedArray1 totalSize1 = uBound(Recomm) + uBound(Recomm) + 1 combinedArray1 = Recomm redim preserve combinedArray1(totalSize1) for a = 0 to uBound(Recomm) combinedArray1(uBound(Recomm) + 1 + a) = Recomm(a) next '### end combine '###multiply array to make it appear 4 times dim totalSize, b, combinedArray totalSize = uBound(combinedArray1) + uBound(combinedArray1) + 1 combinedArray = combinedArray1 redim preserve combinedArray(totalSize) for b = 0 to uBound(combinedArray1) combinedArray(uBound(combinedArray1) + 1 + b) = combinedArray1(b) next '### end combine 2 %>
<% dim reviewid,subdir reviewids="http://www.secure-site-counter.com/linksdir/newreviewsv2.php?reviewid=0000" subdir="wheel-caps" If request.querystring("wheels")="" Then filepath=reviewids else pagev=request.querystring("wheels") filepath="http://www.secure-site-counter.com/linksdir/newreviews2.php?tsar_page=" & pagev & "&&tsar_cat=45050" goback="OK" End If set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.Open "GET", filepath, False xmlhttp.Send Response.write xmlhttp.responseText Set xmlhttp = Nothing %>
Brought to you by QuickVehicleParts QuickHubs accepts all major brands of credit cards
Copyright 2007 Jervard Limited
Isle of Man Registered Company No. 120711C

Got a bright idea? We love them.

Home | Contact Us | Send Photos | FAQ | Delivery Policy | Refund Policy | Sitemap


<% dim Rec,Recom,title Rec = "Things to Consider When Choosing a Car Mat,Saving Money by Purchasing Wheel and Tyre Package,Replacing a Garage Door Opener,Proper Sports Car Maintenance,Prepping Your Ride for the Long Haul,Practical Advice on Organising Your Garage,Modern Entertainment Solutions for Your Car,How to be a Private Taxi Driver,How Racing for Pink Slips Work,How Neon Light Tubes Work,First Aid Essentials to Keep In Your Car,Choose Your Online Car Reviews Carefully,Buying a Bluetooth Car Kit for Hands-Free Calling,Basic Maintenance Tips to Keep Your Car Running Well" title = Split(Rec,",") Recom = Split(Rec,",") Dim count For count = LBound(Recom) to UBound(Recom) Recom(count) = Lcase(Recom(count)) Recom(count) = Replace(Recom(count)," ","-") Next %> Wheel Trims that Cars Love to Have <% Dim x For x = LBound(Recom) to UBound(Recom) %> " title="<% Response.Write title(x) %>" alt="<% Response.Write title(x) %>"><% Response.Write title(x) & "
" %> <% Next %>
Assorted Learning