<pre>function HTTP  global yesterday  put (the numToChar of 13) & (the numToChar of 10) into crlf  put "HTTP/1.0 200 OK" & crlf after header  put "Server: MacHTTP" & crlf after header  put "MIME-Version: 1.0" & crlf after header  put "Expires:" && yesterday & crlf after header  put "Content-type: text/html" & crlf & crlf after header  return headerend HTTPon startUp  global yesterday  put the seconds - (24*60*60) into yesterday  convert yesterday to long date  pass startUpend startUp</pre>