<%@language="VBScript"%> <% Dim strFilePath, objFileSystemObject, objFile, strFileLate, objLate const ReadOnly = 1, WriteOnly = 2, Appending = 8 strFilePath = server.MapPath("/txt_doc") & "/home_main.txt" strFileLate = server.MapPath("/txt_doc") & "/latest_work.txt" ' Create FileSystemObject set objFileSystemObject = CreateObject("Scripting.FileSystemObject") set objFile = objFileSystemObject.OpenTextFile(strFilePath,ReadOnly) set objLate = objFileSystemObject.OpenTextFile(strFileLate,ReadOnly) %> S W Designs - Home *
The menu banner!

Latest Work

Home
<% Dim ReadFile2 Do while objLate.AtEndOfStream <> True ReadFile2 = objLate.ReadAll Response.Write(ReadFile2) Loop %>
<% Dim ReadFile Do while objFile.AtEndOfStream <> True ReadFile = objFile.ReadAll Response.Write(ReadFile) Loop %>
Home | Portfolio | Contact | About
© 2009 S.W. Design and Build Ltd.
Registered Office : 7 Davidson Close, Great Cornard, Sudbury, Suffolk, CO10 0YU
Registered in England and Wales – 5746093
Designed by: RK1 Web Designs