<%
ConstadInteger=3
ConstadVarChar=200
'Declare variables
DimmyRecordset
DimiLetter
DimField
DimstrAltColor
DimbColor
bColor=False
'This example uses the recordset in memory, all you need to do is modify the part of your data display.
SetmyRecordset=Server.CreateObject("ADODB.Recordset")
myRecordset.Fields.Append"ID",adInteger
myRecordset.Fields.Append"Title",adVarChar,25
myRecordset.Fields.Append"Description",adVarChar,255
myRecordset.Open
'FillRSwithsampledata:
ForiLetter=Asc("A")ToAsc("M")
myRecordset.AddNew
myRecordset.Fields("ID").Value=iLetter-64
myRecordset.Fields("Title").Value="Letter:"&Chr(iLetter)
myRecordset.Fields("Description").Value="Here the letters tested: "&Chr(iLetter)&"."
myRecordset.Update
Next'iLetter
'Move to the head start position so that the following loop begins.
myRecordset.MoveFirst
'Show data in table
Response.Write"<tableborder=""0""cellpacing=""0""cellpadding=""3"">"&vbCrLf
'Check header
Response.WritevbTab&"<tr>"&vbCrLf
ForEachFieldinmyRecordset.Fields
Response.WritevbTab&vbTab&"<tdbgcolor=""#CCCCCC""><strong>"
Response.WriteField.Name
Response.Write"</strong></td>"&vbCrLf
Next'Field
Response.WritevbTab&"</tr>"&vbCrLf
DoWhileNotmyRecordset.EOF
'Loop to change the background color of the cell
bColor=NotbColor
IfbColorThen
strAltColor="#FFFFFF"
Else
strAltColor="#FF8040"
EndIf
'Loop to change the background color of the cell
Response.WritevbTab&"<tr>"&vbCrLf
ForEachFieldinmyRecordset.Fields
Response.WritevbTab&vbTab&"<tdbgcolor="""
Response.WritesstrAltColor
Response.Write"""""""&Field.Value&"</td>"&vbCrLf
Next'Field
Response.WritevbTab&"</tr>"&vbCrLf
myRecordset.MoveNext
Loop
'Endthetable