まず、repeat〜loopの繰り返しは、受信待ちをしているだけなので一度通信すると10行目のstopで止まってしまいます。
また、HTTPサーバーはHTMLデータをそのまま送信しているわけではありません。(そのままでも動くことには動きますが…)
http://www.tohoho-web.com/ex/http.htm
少し改造しました。
#include "hspsock.as"
httpheader = "HTTP/1.1 200 OK\nContent-Type: text/html; charset=Shift_JIS\n\n"
repeat
sockmake 0, 80 //ソケットを作成
if stat != 0 : mes "エラー" : stop //エラーであればstop
repeat //接続待ち
sockwait 0
if stat == 0 : mes "接続しました。(" + refstr + ")" : break
await 30
loop
html = "ここにHTMLをいれます。(" + cnt + ")"
sockput httpheader + html, 0 //送信
if stat == 0 : mes "データを正しく送信しました。" : else : mes "データの送信に失敗しました。"
sockclose 0
loop