<pre>-- This is one step up from the proverbial "Hello World" example.-- This one demonstrates the GET method with one submitted form-element.on appleEvent class,event,sender  if class is "WWW" and event is "sdoc" then    request appleEvent data with keyword "kfor"    put parse(it) into userName    reply HTTP() & myResponsePage(userName)  else    pass appleEvent  end ifend appleEventfunction parse postData  set itemDelimiter to "="  return item 2 of postDataend parsefunction HTTP  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 "Content-type: text/html" & crlf & crlf after header  return headerend HTTPfunction myResponsePage userName  put "Hello World" into title  put "HELLO" && userName into content  return "<html><head><title>" & title & "</title></head><body>" & content & "</body></html>end myResponsePage</pre>