Har fastnat i logiken (!?). Jag skall skriva ut en fältserie där dom fyra fälten a_1 till a_4 skall hamna på samma rad, det skall skrivas ut en gång. sen fortsätta med b_1 osv.
<% For Each Item In RS.Fields
If item.name <> "recId" AND Item.name <> "recNamn" Then
strString = item.name
strBokstav = Left(strString, Len(strString)-1) %>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr class="brod12">
<td width="73%"> <%Response.Write(RS(strBokstav+"1"))%></td>
<td width="14%"> <%Response.Write(RS(strBokstav+"2"))%></td>
<td width="13%"> <%Response.Write(RS(strBokstav+"3"))%></td>
</tr>
</table>
<% End If
Next %>
Om du endast skriver ut ett värde per iteration stämmer det.
Nu skriver du ut a_1 tom a_4 för varje iterationsvarv du tar.
Prova detta istället
For Each Item In RS.Fields
If item.name <> "recId" AND Item.name <> "recNamn" Then
strString = item.name
strBokstav = Left(strString, Len(strString)-1)
'Håll reda på om det är samma bokstav eller om vi har en ny bokstav.
if strBokstav <> strTmpBokstav then
lngCounter = lngCounter + 1
end if %>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr class="brod12">
<td width="73%"> <%Response.Write(RS(strBokstav+lngCounter))%></td>
</tr>
</table>
<% End If
strTmpBokstav = strBokstav
Next %>