<%
Constadinteger = 3
Constadvarchar = 200
'Variablen deklarieren
Dimmyrecordset
Dimiletter
Dimfield
Dimstraltcolor
Dimbcolor
bcolor = false
'Dieses Beispiel verwendet den Datensatz im Speicher. Sie müssen lediglich den Teil Ihrer Datenanzeige ändern.
SetMyRecordset = server.createObject ("adodb.recordset"))
myRecordset.fields.Append "ID", Adinteger
myRecordset.fields.Append "Titel", Advarchar, 25
myRecordset.fields.Append "Beschreibung", Advarchar, 255
myrecordset.open
'Fillrswithsampledata:
Foriletter = ASC ("a") toasc ("m")
myRecordset.addnew
myRecordset.fields ("id"). value = iletter-64
myRecordset.fields ("title"). value = "borre:" & chr (iletter)
myRecordset.fields ("Beschreibung"). value = "Hier testeten die Buchstaben:" & chr (iletter) & ".
myRecordset.update
Nächstes
'Gehen Sie in die Position der Headstart, damit die folgende Schleife beginnt.
myRecordset.movefirst
'Daten in der Tabelle anzeigen
Antwort
'Überprüfen Sie den Kopf
Response.writevBtab & "<tr>" & vbcrlf
Foreachfieldinmyrecordset.fields
Response.writevBtab & VBTAB & "<tdbgcolor =" "#cccccc" "> <strong>"
Response.writefield.name
Response.write "</strong> </td>" & vbcrlf
Nächstes
Response.writevBtab & "</tr>" & vbcrlf
Dowhilenotmyrecordset.eof
'Schleife, um die Hintergrundfarbe der Zelle zu ändern
Bcolor = Notbcolor
Ifbcolorthen
Straltcolor = "#ffffff"
Anders
Straltcolor = "#ff8040"
Endif
'Schleife, um die Hintergrundfarbe der Zelle zu ändern
Response.writevBtab & "<tr>" & vbcrlf
Foreachfieldinmyrecordset.fields
Response.writevBtab & VBTAB & "<tdbgcolor =" "" "
Response.writessstraltColor
Response.write "" "" "" & field.value & "</td>" & vbcrlf
Nächstes
Response.writevBtab & "</tr>" & vbcrlf
MyRecordset.Movenext
Schleife
'Endthetable