<％
Constadinteger = 3
constadvarchar = 200
'変数を宣言します
dimmyrecordset
Dimiletter
ディムフィールド
dimstraltcolor
dimbcolor
bcolor = false
'この例では、メモリのレコードセットを使用しています。必要なのは、データ表示の部分を変更することだけです。
setMyrecordset = server.createObject（ "adodb.Recordset"）
myRecordset.Fields.Append "id"、adinteger
myRecordset.Fields.Append "Title"、Advarchar、25
myRecordset.Fields.Append "Description"、Advarchar、255
myRecordset.open
'fillswithsampledata：
foriletter = asc（ "a"）toas（ "m"）
myRecordset.addnew
myRecordset.Fields（ "id"）。value = iletter-64
myRecordset.Fields（ "title"）。value = "lette："＆chr（iletter）
myRecordset.Fields（ "descripting"）。value = "ここで、テストされた文字："＆chr（iletter）＆ "。"。 "
myRecordset.update
Next'iletter
「次のループが始まるように、ヘッドスタート位置に移動します。
myRecordset.MoveFirst
'テーブルにデータを表示します
Response.Write "<Tableborder =" "" "" cellpacing = "" "" cellpadding = "" 3 ""> "＆vbcrlf
'ヘッダーをチェックします
Respons.writevbtab＆ "<tr>"＆vbcrlf
foreachfieldinmyrecordset.fields
respons.writevbtab＆vbtab＆ "<tdbgcolor =" "＃cccccc" "> <strong>"
respons.writefield.name
Response.Write "</strong> </td>"＆vbcrlf
次のフィールド
Respons.writevbtab＆ "</tr>"＆vbcrlf
dowhileenotmyrecordset.eof
「セルの背景色を変更するためのループ
bcolor = notbcolor
ifbcolorthen
straltcolor = "＃ffffff"
それ以外
straltcolor = "＃ff8040"
endif
「セルの背景色を変更するためのループ
Respons.writevbtab＆ "<tr>"＆vbcrlf
foreachfieldinmyrecordset.fields
respons.writevbtab＆vbtab＆ "<tdbgcolor =" ""
respons.writesstraltcolor
Response.Write "" "" "" ""＆field.value＆ "</td>"＆vbcrlf
次のフィールド
Respons.writevbtab＆ "</tr>"＆vbcrlf
myRecordset.movenext
ループ
'終了可能