<%
Constadinteger = 3
Consentvarchar = 200
'Deklarasikan variabel
Dimmyrecordset
Dimiletter
Dimfield
Dimstraltcolor
Dimbcolor
bcolor = false
'Contoh ini menggunakan Recordset dalam memori, yang perlu Anda lakukan adalah memodifikasi bagian dari tampilan data Anda.
SetMyrecordset = server.createObject ("adodb.recordset")
MyRecordset.fields.Append "ID", Adinteger
MyRecordset.fields.Perampangan "Judul", Advarchar, 25
MyRecordset.fields.Perampangan "Deskripsi", Advarchar, 255
MyRecordset.open
'Fillrswithsampledata:
Foriletter = ASC ("A") TOASC ("M")
MyRecordset.Addnew
MyRecordset.fields ("id"). Value = iletter-64
MyRecordset.Fields ("Judul"). Value = "Letter:" & Chr (iletter)
MyRecordset.fields ("Deskripsi"). Value = "Di sini huruf yang diuji:" & chr (iletter) & "."
MyRecordset.update
Next'iletter
'Pindah ke posisi start kepala sehingga loop berikut dimulai.
MyRecordset.movefirst
'Tunjukkan data di tabel
Response.write "<TableBORDER =" "0" "CellPacing =" "0" "CellPadding =" "3" ">" & vbcrlf
'Periksa header
Response.writevbtab & "<tr>" & vbcrlf
ForeachfieldInmyrecordset.fields
Response.writevbtab & vbtab & "<tdbgcolor =" "#cccccc" "> <strong>"
Response.writefield.name
Response.write "</strong> </td>" & vbcrlf
Selanjutnya
Response.writevbtab & "</tr>" & vbcrlf
Dowhilenotmyrecordset.eof
'Loop untuk mengubah warna latar belakang sel
bcolor = notbcolor
Ifbcolorthen
straltcolor = "#ffffff"
Kalau tidak
straltcolor = "#ff8040"
Endif
'Loop untuk mengubah warna latar belakang sel
Response.writevbtab & "<tr>" & vbcrlf
ForeachfieldInmyrecordset.fields
Response.writevbtab & vbtab & "<tdbgcolor =" ""
Respons.writesstraltcolor
Response.write "" "" "" "& field.Value &" </td> "& vbcrlf
Selanjutnya
Response.writevbtab & "</tr>" & vbcrlf
MyRecordset.Movenext
Lingkaran
'EndThetable