460 ' This will alternate the row color, making it easier to read
470 If vRecordCount Mod 2 > 0 Then
480 vbgcolor = "#C0C0C0"
490 Else
500 vbgcolor = "#FFFFFF"
510 End If
520 'Output the results to the web page in a table
530 Response.Write "
540 Response.Write "
rstCustomers.Fields("First_Name") & "
550 Response.Write "
rstCustomers.Fields("Last_Name") & "
560 Response.Write "
& rstCustomers.Fields("State") & "
570 Response.Write "
580 'Move to the next record
590 rstCustomers.MoveNext
600 'Increase the record count
610 vRecordCount = vRecordCount + 1
620 Loop
630 rstCustomers.Close
640 mConn.Close
650 %>
660
670