<%
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:
Shipping warehouse live web cam
Welcome to our Live Internet Web Cam
broadcast. Here you see your products being packaged and shipped. In the
middle is the shipping conveyor that is usually empty after 3:00 PM (UPS Pick-up Time)
People in the picture are packing and processing orders from 10:00 AM until
3:00 PM. Rest assured, your order is in good hands!
