% 'ヘッダー編集 Function writeHeader() Response.Write "
" Response.Write "[商品一覧]" Response.Write "[ショッピングカート]" Response.Write "[購入手続き]" Response.Write "[ご利用方法]
[ホーム]"
Response.Write "[商品一覧]"
Response.Write "[ショッピングカート]"
Response.Write "[購入手続き]"
Response.Write "[ご利用方法]"
End Function
%>