<%
option Explicit
Dim CSQLEng ' CaoSQLEngine
Dim CSQLCtrl ' CaoSQLController
Dim CSQLItem ' CaoSQLItem
Dim strCtrlName ' ControllerName
Dim i
strCtrlName = Request("CtrlName")
Set CSQLEng = CreateObject("CaoSQL.CaoSQLEngine")
Set CSQLCtrl = CSQLEng.Controller(strCtrlName)
%>
アイテムの値
| コントローラ名 |
値 |
<%
Dim ItemNames ' アイテム名一覧
Dim Val ' アイテム値
ItemNames = CSQLCtrl.ItemNames ' アイテム名の一覧を取得
for i = Lbound(ItemNames) to Ubound(ItemNames)
Set CSQLItem = CSQLCtrl.Item(i)
Val = CSQLItem.Value
Response.Write(""&chr(13))
Response.Write("| "&CSQLItem.Name&" | "&chr(13))
if (IsEmpty(Val) or IsNull(Val)) then
Response.Write(" | "&chr(13))
else
Response.Write(""&Val&" | "&chr(13))
end if
Response.Write("
"&chr(13))
Set CSQLItem = nothing
next
Response.End
%>
<%
Set CSQLCtrl = nothing
Set CSQLEng = nothing
%>