% @LANGUAGE="VBSCRIPT" %> <% '*** create fso object dim objFSO set objFSO = createobject("scripting.filesystemobject") '***--- '*** define the path to the file(s) your editing '*** examples given dim strFilePath strFilePath = "" 'strFilePath = request.querystring("path") 'strFilePath = request.form("path") '***--- '***--- if they've not submitted the update form if request.form("update") = "" then const fsoForReading = 1 '***--- '*** get the file dim objFile objFile = "home_inc.htm" '***--- '*** get the file contents in a string dim objFileContents set objFileContents = objFSO.OpenTextFile(server.mappath(strFilePath & objFile), fsoForReading) dim strFileContents strFileContents = objFileContents.ReadAll '***---- end if %>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Welcome to Middleton Hall Golf Club |
||||
|
||||
|
||||
For more information about any of our facilities,
contact: |
||||
![]() |
||||
|