&lt;%<br>
Dim ResultsString<br>
Dim objFileSystemObject<br>
Dim objTextStream<br>
Dim strFileName<br>
<br>
' grab the string, using a comma as a record separator and a tab as a record separator<br>
ResultsString = &quot;&lt;html&gt;&lt;head&gt;&lt;title&gt;Untitled Document&lt;/title&gt;&quot; 
&amp;_<br>
&quot;&lt;meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'&gt;&quot; 
&amp;_<br>
&quot;&lt;/head&gt;&lt;body&gt;&lt;/body&gt;&lt;/html&gt;&quot;
<p></p>
<p> ' create a link to the local file system on the server<br>
  Set objFileSystem = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)<br>
  <br>
  ' Create a text file and dump the contents of the string to the file,<br>
  ' using the file name export with the current date and time as a way to seperate 
  out differing users<br>
  strFileName=&quot;\export123.html&quot;</p>
<p> Set objFile = objFileSystem.CreateTextFile(Server.MapPath(strFileName), True, 
  False)<br>
  objFile.Write(ResultsString)<br>
  <br>
  ' Clean up<br>
  Set objFile = Nothing<br>
  Set objFileSystem = Nothing<br>
  <br>
  ' return a link to the file to the browser<br>
  Response.Write(&quot;The file &lt;a href='&quot; &amp; strFileName &amp;&quot;'&gt;&quot; 
  &amp; strFileName &amp; &quot;&lt;/a&gt; is now available to download&quot;)<br>
  %&gt;</p>