<% 'header ここから Response.Expires = 0 Response.AddHeader "Pragma", "No-Cache" Response.AddHeader "Cache-Control", "No-Cache" folder = server.mappath("text") Set ObjFSys = CreateObject("Scripting.FileSystemObject") dim anews_title(6) dim anews_text(6) for i=1 to 6 '--- Set ObjText = ObjFSys.OpenTextFile(folder & "\news_title" & i & ".txt") anews_title(i) = ObjText.ReadAll ObjText.Close Set ObjText = ObjFSys.OpenTextFile(folder &"\news_text" & i &".txt") anews_text(i) = ObjText.ReadAll ObjText.Close anews_text(i)= left(anews_text(i),len(anews_text(i))-2)'余分な改行を削除 anews_text(i) = replace(anews_text(i),vbcrlf,"
")'改行をbrタグに変換 '--- next 'headerここまで '埋め込み配列 'anews_title(i) 件名　１〜６ 'anews_text(i)　本文　１〜６ %> 恋人の聖地プロジェクト


● <%=anews_title(1)%>
<%=anews_text(1)%>
● <%=anews_title(2)%>
<%=anews_text(2)%>
● <%=anews_title(3)%>
<%=anews_text(3)%>

● <%=anews_title(4)%>
<%=anews_text(4)%>
● <%=anews_title(5)%>
<%=anews_text(5)%>
● <%=anews_title(6)%>
<%=anews_text(6)%>