Match columns

<% Dim ci, ri, guess, fld, sample, usedGuess Set usedGuess = CreateObject("Scripting.Dictionary") For ci = 0 To UBound(headers) guess = ImportFile_GuessField(headers(ci)) ' Only the first column guessed for a field is pre-selected. If Len(guess) > 0 Then If usedGuess.Exists(guess) Then guess = "" Else usedGuess.Add guess, 1 End If %> <% Next %>

Column in file	Import as	Sample values
<%= H(headers(ci)) %>	Ignore <% For Each fld In fields %> ><%= H(fld(1)) %> <% Next %>	<% sample = "" For ri = 0 To rows.Count - 1 If Len(ImportFile_Cell(rows(ri), ci)) > 0 Then If Len(sample) > 0 Then sample = sample & " · " sample = sample & H(Left(ImportFile_Cell(rows(ri), ci), 40)) End If Next Response.Write sample %>