2018年
- Jan
<%
newslist = newslist & "" & _
" "
%>
<%
newslist = newslist & ""
newstime = "00:00:00"
if "00:00:00" = "00:00:00" or "00:00:00" = "" then
newstime = "08:48:33"
end if
' check if editor has put in a date, if not display creation date
If "2018-11-30" = "" Then
newsdate = "2018-12-03 " & newstime
listTimeOffset = formatDateOffsetCreated
else
newsdate = "2018-11-30 " & newstime
listTimeOffset = ""
End If
newstimestamp = formatDate("%U%", newsdate, listTimeOffset, "")
newsdate = formatDate("%Y%/%m%/%d%", newsdate, listTimeOffset, "")
newslist = newslist & "ドイツ銀行の事業所における検察当局の捜査:概要報告" & _
"/jp/content/6633_6788.html" & _
"ドイツ銀行の事業所における検察当局の捜査:概要報告" & _
"" & newsdate & "" & _
"" & newstimestamp & "" & _
"" & _
"" & _
"jp" & _
"" & _
"" & _
"" & _
"HeadlinesJP" & _
"en" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
""
newstime = "00:00:00"
if "00:00:00" = "00:00:00" or "00:00:00" = "" then
newstime = "01:16:58"
end if
' check if editor has put in a date, if not display creation date
If "2018-11-29" = "" Then
newsdate = "2018-12-03 " & newstime
listTimeOffset = formatDateOffsetCreated
else
newsdate = "2018-11-29 " & newstime
listTimeOffset = ""
End If
newstimestamp = formatDate("%U%", newsdate, listTimeOffset, "")
newsdate = formatDate("%Y%/%m%/%d%", newsdate, listTimeOffset, "")
newslist = newslist & "ドイツ銀行本社およびその他の事業所において捜索" & _
"/jp/content/6633_6787.html" & _
"ドイツ銀行本社およびその他の事業所において捜索" & _
"" & newsdate & "" & _
"" & newstimestamp & "" & _
"" & _
"" & _
"jp" & _
"" & _
"" & _
"" & _
"HeadlinesJP" & _
"en" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
""
newstime = "00:00:00"
if "00:00:00" = "00:00:00" or "00:00:00" = "" then
newstime = "06:28:02"
end if
' check if editor has put in a date, if not display creation date
If "2018-11-27" = "" Then
newsdate = "2018-11-28 " & newstime
listTimeOffset = formatDateOffsetCreated
else
newsdate = "2018-11-27 " & newstime
listTimeOffset = ""
End If
newstimestamp = formatDate("%U%", newsdate, listTimeOffset, "")
newsdate = formatDate("%Y%/%m%/%d%", newsdate, listTimeOffset, "")
newslist = newslist & "ドイツ銀行、公開入札による債券の買入れ予定額を発表" & _
"/jp/content/6633_6786.html" & _
"ドイツ銀行、公開入札による債券の買入れ予定額を発表" & _
"" & newsdate & "" & _
"" & newstimestamp & "" & _
"" & _
"" & _
"jp" & _
"" & _
"" & _
"" & _
"HeadlinesJP" & _
"en" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
""
newstime = "00:00:00"
if "00:00:00" = "00:00:00" or "00:00:00" = "" then
newstime = "06:05:00"
end if
' check if editor has put in a date, if not display creation date
If "" = "" Then
newsdate = "2018-11-26 " & newstime
listTimeOffset = formatDateOffsetCreated
else
newsdate = " " & newstime
listTimeOffset = ""
End If
newstimestamp = formatDate("%U%", newsdate, listTimeOffset, "")
newsdate = formatDate("%Y%/%m%/%d%", newsdate, listTimeOffset, "")
newslist = newslist & "ドイツ銀行日本における代表者兼東京支店長に本間民夫が就任" & _
"/jp/content/6633_6785.html" & _
"ドイツ銀行日本における代表者兼東京支店長に本間民夫が就任" & _
"" & newsdate & "" & _
"" & newstimestamp & "" & _
"" & _
"" & _
"jp" & _
"" & _
"" & _
"" & _
"HeadlinesJP" & _
"en" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
""
newstime = "00:00:00"
if "00:00:00" = "00:00:00" or "00:00:00" = "" then
newstime = "10:11:06"
end if
' check if editor has put in a date, if not display creation date
If "2018-11-19" = "" Then
newsdate = "2018-11-21 " & newstime
listTimeOffset = formatDateOffsetCreated
else
newsdate = "2018-11-19 " & newstime
listTimeOffset = ""
End If
newstimestamp = formatDate("%U%", newsdate, listTimeOffset, "")
newsdate = formatDate("%Y%/%m%/%d%", newsdate, listTimeOffset, "")
newslist = newslist & "ドイツ銀行、公開入札による債券の買入れを発表" & _
"/jp/content/6633_6784.html" & _
"ドイツ銀行、公開入札による債券の買入れを発表" & _
"" & newsdate & "" & _
"" & newstimestamp & "" & _
"" & _
"" & _
"jp" & _
"" & _
"" & _
"" & _
"HeadlinesJP" & _
"en" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
""
newstime = "00:00:00"
if "00:00:00" = "00:00:00" or "00:00:00" = "" then
newstime = "05:29:04"
end if
' check if editor has put in a date, if not display creation date
If "" = "" Then
newsdate = "2018-11-19 " & newstime
listTimeOffset = formatDateOffsetCreated
else
newsdate = " " & newstime
listTimeOffset = ""
End If
newstimestamp = formatDate("%U%", newsdate, listTimeOffset, "")
newsdate = formatDate("%Y%/%m%/%d%", newsdate, listTimeOffset, "")
newslist = newslist & "ドイチェ・アセット・マネジメント 新代表取締役社長 就任のお知らせ" & _
"/jp/content/6633_6783.html" & _
"ドイチェ・アセット・マネジメント 新代表取締役社長 就任のお知らせ" & _
"" & newsdate & "" & _
"" & newstimestamp & "" & _
"" & _
"" & _
"jp" & _
"" & _
"" & _
"" & _
"HeadlinesJP" & _
"en" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
""
newstime = "00:00:00"
if "00:00:00" = "00:00:00" or "00:00:00" = "" then
newstime = "03:28:45"
end if
' check if editor has put in a date, if not display creation date
If "2018-11-02" = "" Then
newsdate = "2018-11-08 " & newstime
listTimeOffset = formatDateOffsetCreated
else
newsdate = "2018-11-02 " & newstime
listTimeOffset = ""
End If
newstimestamp = formatDate("%U%", newsdate, listTimeOffset, "")
newsdate = formatDate("%Y%/%m%/%d%", newsdate, listTimeOffset, "")
newslist = newslist & "ドイツ銀行: 欧州銀行監督機構2018年ストレス・テストの結果" & _
"/jp/content/6633_6782.html" & _
"ドイツ銀行: 欧州銀行監督機構2018年ストレス・テストの結果" & _
"" & newsdate & "" & _
"" & newstimestamp & "" & _
"" & _
"" & _
"jp" & _
"" & _
"" & _
"" & _
"HeadlinesJP" & _
"en" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
"" & _
""
newslist = newslist & " "
If listId = "HeadlinesJP" and output="true" Then
%>
<%
End If
%>- Feb
- Mar
- Apr
- May
- Jun
- Jul
- Aug
- Sep
- Oct
- Nov
- Dec