<% Dim strSV, intRowColor For Each strSV In Request.ServerVariables If intRowColor = 0 Then Response.Write "
" intRowColor = 1 Else Response.Write "
" intRowColor = 0 End If Response.Write "
" & strSV & "=" & Request.ServerVariables(strSV) & "
" Next %>