Microsoft Word - Sam's Teach Yourself MySQL in 21 Days - SAMS.doc

330

340 First

350 Name

360 Last

370 Name

380 State

390

400<%

410 ' Set our counter to 0

420 vRecordCount = 0

430 ' Walk through the recordset

440 Do Until rstCustomers.EOF

450 ' This will alternate the row color, making it easier to read

460 If vRecordCount Mod 2 > 0 Then

470 vbgcolor = "#C0C0C0"

480 Else

490 vbgcolor = "#FFFFFF"

500 End If

510 'Output the results to the web page in a table520Response.Write ""

530Response.Write "" & rstCustomers.Fields("First_Name")
& ""

540Response.Write "" & rstCustomers.Fields("Last_Name") &
"

550Response.Write "" & rstCustomers.Fields("State") &
"

560 Response.Write ""

570 'Move to the next record