<%
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)
%>
<%
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)
%>
Browse Laptop
Parts and Accessories by Manufacturer:
Laptop Keyboards by Manufacturer
Thank you for visiting LaptopsForLess.com. We stock a large selection of laptop keyboards.
Please call us at 1-800-556-4490 with the latpop keyboard part number you are looking for,
and one of our Guest Service Representatives will be happy to assist you.
Thank you again for visiting LaptopsForLess.com!
<%
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)
%>