" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "
" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & " " & VBCrLf
strHTML = strHTML & " " & VBCrLf
strHTML = strHTML & " " & VBCrLf
strHTML = strHTML & " " & VBCrLf
strHTML = strHTML & " " & VBCrLf
strHTML = strHTML & "
" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
'// データがある限りループ
For intLoopCount=0 to objCMSData.getintMaxCount() -1 step 1
intImageFlag = 0
If Trim(objCMSData.getstrClass2Data(intLoopCount)) = "1" Or Trim(objCMSData.getstrClass2Data(intLoopCount)) = "" Then
If objCMSData.getintViewDay(intLoopCount) <> "" Then
'// データ日付取得
'// 年
strKijiYear = objSQLInjection.subInjectionEraser(Left(objCMSData.getintViewDay(intLoopCount),4))
'// 月
strKijiMonth = objSQLInjection.subInjectionEraser(Mid(objCMSData.getintViewDay(intLoopCount),5,2))
'// 日
strKijiDay = objSQLInjection.subInjectionEraser(Right(objCMSData.getintViewDay(intLoopCount),2))
'// 曜日
strKijiYoubi = Left(Weekdayname(Weekday(CDate(strKijiYear & "/" & CInt(strKijiMonth) & "/" & CInt(strKijiDay)))),1)
Else
strKijiYear = " "
'// 月
strKijiMonth = " "
'// 日
strKijiDay = " "
'// 曜日
strKijiYoubi = " "
End If
'// strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
'// strHTML = strHTML & "
" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
'// データ表示
Response.Write strHTML
'// メモリ解放
Set objFSO = Nothing
objSQLInjection.close
Set objSQLInjection = Nothing
objCMSData.close
Set objCMSData = Nothing
%>
" & VBCrLf
strHTML = strHTML & "
" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & " " & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "
" & VBCrLf
'// strHTML = strHTML & ""& strKijiYear &"年"& strKijiMonth &"月"& strKijiDay &"日（"& strKijiYoubi &"）
" & VBCrLf
strHTML = strHTML & "" & VBCrLf
'// 区分によって変更
If objCMSData.getstrClass1Data(intLoopCount) = 1 Then
'// strHTML = strHTML & ""タイトル"
" & VBCrLf
strHTML = strHTML & ""&objSQLInjection.subInjectionEraser(objCMSData.getstrTitle(intLoopCount))&"
" & VBCrLf
Else
strHTML = strHTML & ""&objSQLInjection.subInjectionEraser(objCMSData.getstrTitle(intLoopCount))&"
" & VBCrLf
End If
strHTML = strHTML & ""本文"
" & VBCrLf
strHTML = strHTML & ""&SetColor(objSQLInjection.subInjectionEraser(objCMSData.getstrText(intLoopCount)))&"
" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & ""
'// ファイル名1があれば表示
If objFSO.FileExists(Server.MapPath( filePath & objSQLInjection.subInjectionEraser(objCMSData.getstrFileName1(intLoopCount)))) Then
'// strHTML = strHTML & "![]()
" & VBCrLf
strHTML = strHTML & "![]()
" & VBCrLf
intImageFlag = 1
End If
'// ファイル名2があれば表示
If objFSO.FileExists(Server.MapPath( filePath & objSQLInjection.subInjectionEraser(objCMSData.getstrFileName2(intLoopCount)))) Then
strHTML = strHTML & "![]()
" & VBCrLf
intImageFlag = 1
End If
'// ファイル名3があれば表示
If objFSO.FileExists(Server.MapPath( filePath & objSQLInjection.subInjectionEraser(objCMSData.getstrFileName3(intLoopCount)))) Then
strHTML = strHTML & "![]()
" & VBCrLf
intImageFlag = 1
End If
If intImageFlag = 0 Then
strHTML = strHTML & "![]()
" & VBCrLf
End If
strHTML = strHTML & "
"
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
strHTML = strHTML & "" & VBCrLf
End If
Next
strHTML = strHTML & "