Dim nFlag As Byte
 
nFlag = 0
Do While Not oRs.Eof
  If nFlag = 0 Then
    sHTML = sHTML & "<DIV ALIGN="left">" & oRs("Name") & "</DIV>"
    nFlag = 1
  Else
    sHTML = sHTML & "<DIV ALIGN="center">" & oRs("Name") & "</DIV>< /BR>"
    nFlag = 0
  End If
  oRs.MoveNext
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de