![]() |
| <% 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) %> |
|
|||||||||||
| <% 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) %> |