<%
ConstadInteger = 3
Constadvarchar = 200
'Declare variáveis
DimmyRecordSet
Dimiletter
Dimfield
DIMSTRALTCOLOR
Dimbcolor
bcolor = false
'Este exemplo usa o conjunto de registros na memória, tudo o que você precisa fazer é modificar a parte da exibição dos dados.
SetMyRecordSet = server.createObject ("adodb.recordset")
MyRecordset.fields.append "ID", Adinteger
MyRecordset.fields.append "Title", AdventChar, 25
MyRecordset.fields.append "Descrição", AdventChar, 255
MyRecordset.open
'Fillrswithsampledata:
FORLETTER = ASC ("A") TOASC ("M")
myRecordset.addnew
myRecordset.fields ("id"). value = iletter-64
myRecordset.fields ("title").
MyRecordset.fields ("Descrição"). Value = "Aqui as cartas testadas:" & Chr (ILETTER) & "."
myRecordset.Update
Próximo 'Miletter
'Vá para a posição da vantagem para que o seguinte loop comece.
myRecordset.movefirst
'Mostrar dados na tabela
Response.Write "<tableborder =" "0" "CellPacing =" "0" "CellPadding =" "3" ">" & vbcrlf
'Verifique o cabeçalho
Response.WriteVBTAB & "<tr>" & vbcrlf
ForeachfieldInmyRecordset.fields
Response.WriteVBTAB & VBTAB & "<tdbgcolor =" "#cccccc" "> <strong>"
Response.writefield.name
Response.Write "</strong> </td>" & vbcrlf
Próximo
Response.WriteVBTAB & "</tr>" & vbcrlf
DowhilenotmyRecordSet.eof
'Loop para alterar a cor de fundo da célula
bcolor = notbcolor
Ifbcolorthen
straltcolor = "#ffffff"
Outro
straltcolor = "#ff8040"
Endif
'Loop para alterar a cor de fundo da célula
Response.WriteVBTAB & "<tr>" & vbcrlf
ForeachfieldInmyRecordset.fields
Response.WriteVBTAB & VBTAB & "<TDBGCOLOR =" "" "
Response.WritessTaltColor
Response.Write "" "" "" "& Field.value &" </td> "& vbcrlf
Próximo
Response.WriteVBTAB & "</tr>" & vbcrlf
MyRecordset.movenext
Laço
'ENDTHETABLE