<%
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)
%>
MAINTENANCE KITS
HP Laser Printer Maintenance Kit
Maintenance Kit Compatible with the HP Laserjet 4000.
Part No.PC4118-67909 , C4118-67909, C4118-67902, C411867911, C7851A, C4118.
New, 60 Day Warranty.
HP Laser Printer Maintenance Kit
Maintenance Kit Compatible with the HP 4300.
Part No. PRM1-0101, Q243667903, Q243667907, Q2436A.
New, 60 Day Warranty.
<%
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)
%>