<% Function wawa_savehtml (f, s) 'OF: Frog Prince YORK': To store data on the server side dim fs, ts, dir, files, path Set fs = CreateObject ( "Scripting.FileSystemObject") dir = server. Mappath ("HTML") IF (fs.folderexists (dir)) THEN ELSE FS.CREATEFOLDER (DIR) end if files = f & "HTML" Path = DIR & "/" & files set ts = fs.createtextfile (path, true) Ts.writeline (s) set ts = Nothing set fs = nothingend functionif request ("submit") <> "" THEN CALL WAWA_SAVEHTML (Request ("Name"), Request ("Body") Response.write ("