loops and tables

This is a multipart message in MIME format.
--=_alternative 0064CE658025711B_=
Content-Type: text/plain; charset="us-ascii"

I'm trying to loop through a text file that contains losts of surnames and
produce a table with all the A surnames in row 1, B surnames in row 2 etc
but I'm getting a bit stuck, I keep ending up with a table with 24 rows
and only the surnames begining with A in all the rows. I realise I need
to add another loop in somewhere to produce the table row and then move
onto the next letter but i can't get my head round it at the moment.

Here's my code:

<table border="1" width="520" align="center">
<%
for i = 65 to 89
do while objTextFile.AtEndOfStream <> True
strTextFileLine = objTextFile.ReadLine
if Left(strTextFileLine, 1) = i then
strSurnameList = strSurnameList &
strTextFileLine & ","
end if
Loop
strMain2 = "<tr><td>" & strSurnameList & "</td></tr>"
response.write strMain2
next
%>
</table>
--=_alternative 0064CE658025711B_=
Content-Type: text/html; charset="us-ascii"

 I'm trying to loop through a text file that contains losts of surnames and produce a table with all the A surnames in row 1, B surnames in row 2 etc but I'm getting a bit stuck, I keep ending up with a table with 24 rows and only the surnames begining with A in all the rows.  I realise I need to add another loop in somewhere to produce the table row and then move onto the next letter but i can't get my head round it at the moment.
 
 Here's my code:
 
 <table border="1" width="520" align="center">
         <%
         for i = 65 to 89
                 do while objTextFile.AtEndOfStream <> True
                         strTextFileLine = objTextFile.ReadLine
                                 if Left(strTextFileLine, 1) = i then
                                         strSurnameList = strSurnameList & strTextFileLine & ","
                                 end if
                     Loop
                 strMain2 = "<tr><td>" & strSurnameList  & "</td></tr>"
                 response.write strMain2
         next
         %>
         </table>
--=_alternative 0064CE658025711B_=--

Steven
Mon Feb 20 12:44:34 CST 2006

How is the file containing the names setup?

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

<helen@postle.co.uk> wrote in message
news:fOnKf.25911$DM.13953@fe3.news.blueyonder.co.uk...
> I'm trying to loop through a text file that contains losts of surnames and
> produce a table with all the A surnames in row 1, B surnames in row 2 etc
> but I'm getting a bit stuck, I keep ending up with a table with 24 rows
> and only the surnames begining with A in all the rows. I realise I need
> to add another loop in somewhere to produce the table row and then move
> onto the next letter but i can't get my head round it at the moment.
>
> Here's my code:
>
> <table border="1" width="520" align="center">
> <%
> for i = 65 to 89
> do while objTextFile.AtEndOfStream <> True
> strTextFileLine = objTextFile.ReadLine
> if Left(strTextFileLine, 1) = i then
> strSurnameList = strSurnameList &
> strTextFileLine & ","
> end if
> Loop
> strMain2 = "<tr><td>" & strSurnameList & "</td></tr>"
> response.write strMain2
> next
> %>
> </table>

\
Mon Feb 20 13:37:38 CST 2006

> I'm trying to loop through a text file that contains losts of surnames and
> produce a table with all the A surnames in row 1, B surnames in row 2 etc
> but I'm getting a bit stuck, I keep ending up with a table with 24 rows
> and only the surnames begining with A in all the rows. I realise I need
> to add another loop in somewhere to produce the table row and then move
> onto the next letter but i can't get my head round it at the moment.

Assuming all the names, A to Z, are in a single file, this should work (they
don't have to be sorted):
'------------------------------------------------------------
<table border="1" width="520" align="center">
<%
dim rows(26)

do until objTextFile.AtEndOfStream
strTextFileLine = objTextFile.ReadLine
n=asc(ucase(Left(strTextFileLine, 1)))-64
rows(n)=rows(n) & "," & strTextFileLine
loop

for i = 1 to 26
if len(rows(i)) then
response.write "<tr><td>" & rows(i) & "</td></tr>"
end if
next
%>
</table>
'---------------------------------------------------------------
--
Crash
"The pursuit of perfection often impedes improvement." -- George Will

loops and tables

Re: loops and tables by Steven

Re: loops and tables by \