Laptops, accessories, parts - Laptops for Less.com

Your source for low-priced laptop accessories and parts for Dell, IBM, Toshiba and more.

Live operators 7-5 PST: 1-714-361-2653
Fax P.O.'s/Volume Orders: 1-714-200-0206

          HACKER SAFE certified sites prevent over 99.9% of hacker crime.
e.g.: "Toshiba Satellite AC adapter" or "PA2450U"

<% Const ForReading3 = 1, ForWriting3 = 2 set fso = server.CreateObject("Scripting.FileSystemObject") set f = fso.GetFile("/var/www/www.laptopsforless.com/html/templates/nav_bar.txt") set ts = f.OpenAsTextStream(ForReading3, -2) TextStreamTest = ts.ReadLine Do While not ts.AtEndOfStream myNavBarText = myNavBarText & ts.ReadLine & vbCrLf Loop %> <% response.write(myNavBarText) %>

Home
<% Const ForReading = 1, ForWriting = 2 set fso = server.CreateObject("Scripting.FileSystemObject") set f = fso.GetFile("/var/www/www.laptopsforless.com/html/templates/leftmenu_lfl.txt") set ts = f.OpenAsTextStream(ForReading, -2) TextStreamTest = ts.ReadLine Do While not ts.AtEndOfStream myText = myText & ts.ReadLine & vbCrLf Loop %> <% response.write(myText) %>

Write a Review

Tell us what you liked or disliked about us. We are always looking for ways to improve.

Rating:
Excellent
Good
Fair
Poor
None
power bank

BBBOnLine Reliability Seal

 <% Const ForReading2 = 1, ForWriting2 = 2 set fso = server.CreateObject("Scripting.FileSystemObject") set f = fso.GetFile("/var/www/www.laptopsforless.com/html/templates/footer.txt") set ts = f.OpenAsTextStream(ForReading2, -2) TextStreamTest = ts.ReadLine Do While not ts.AtEndOfStream myFooterText = myFooterText & ts.ReadLine & vbCrLf Loop %> <% response.write(myFooterText) %>