<%
Constadinteger = 3
Constadvarchar = 200
'Declarar variables
DimmyRecordset
Dimiletter
Dimfield
Dimstraltcolor
Dimbcolor
bcolor = falso
'Este ejemplo usa el conjunto de registros en la memoria, todo lo que necesita hacer es modificar la parte de su pantalla de datos.
SetMyRecordSet = server.CreateObject ("ADODB.RecordSet")
myrecordset.fields.append "ID", Adinteger
myrecordset.fields.append "Título", Advertar, 25
myrecordset.fields.append "Descripción", Advertar, 255
myrecordset.open
'Fillrswithsampledata:
Foriletter = asc ("a") toasc ("m")
myrecordset.addnew
MyRecordSet.Fields ("ID"). Value = ILETTER-64
MyRecordSet.Fields ("Título"). Valor = "Letter:" & Chr (Iletter)
MyRecordSet.Fields ("Descripción"). Value = "Aquí las letras probadas:" & chr (iletter) & "."
MyRecordSet.update
Next'iletter
'Muévase a la posición inicial de la cabeza para que comience el siguiente bucle.
Myrecordset.MoveFirst
'Mostrar datos en la tabla
Response.write "<tableBorder =" "0" "CellPacing =" "0" "CellPadding =" "3" ">" y VBCrlf
'Verifique el encabezado
Response.WritevBtab y "<tr>" y vbcrlf
ForeachfieldinmyRecordset.fields
Response.WritevBtab & VBtab & "<tdbgcolor =" "#cccccc" "> <strong>"
Response.Writefield.name
Response.write "</strong> </td>" y vbcrlf
Next'field
Response.WritevBtab & "</tr>" y vbcrlf
DowhilenotmyRecordset.EOF
'Bucle para cambiar el color de fondo de la celda
bcolor = Notbcolor
Ifbcolorthen
straltcolor = "#ffffff"
Demás
straltcolor = "#ff8040"
Endif
'Bucle para cambiar el color de fondo de la celda
Response.WritevBtab y "<tr>" y vbcrlf
ForeachfieldinmyRecordset.fields
Respuesta.WritevBtab & VBTAB & "<tdbgcolor =" ""
Respuesta.WritesStraltColor
Response.write "" "" "" "& Field.Value &" </td> "& vbcrlf
Next'field
Response.WritevBtab & "</tr>" y vbcrlf
myrecordset.movenext
Bucle
'Endtetable