% 'Generate Credit Card List Do While NOT RSCC.EOF ccOption = ccOption & vbCrLf & "" RSCC.MoveNext Loop %> <% 'Generate State List Do While NOT RSState.EOF stateOption = stateOption & vbCrLf & "" RSState.MoveNext Loop %> <% 'Generate Country List Do While NOT RSCountry.EOF countryOption = countryOption & vbCrLf & "" RSCountry.MoveNext Loop %>